mediocregopher/ginger
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

don't name function blocks, make build operations immutable

Browse Source
This commit is contained in:
Brian Picciano 2016-08-20 13:11:25 -06:00
parent 867f83377f
commit 551c5efd7e
3 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
expr/build.go
View File

@ -35,11 +35,13 @@ func (bctx BuildCtx) BuildStmt(ctx Ctx, s Statement) Expr {
case Macro:
return ctx.Macro(o)(bctx, ctx, s.Arg)
case Identifier:
s.Op = ctx.Identifier(o).(llvmVal)
return bctx.BuildStmt(ctx, s)
s2 := s
s2.Op = ctx.Identifier(o).(llvmVal)
return bctx.BuildStmt(ctx, s2)
case Statement:
s.Op = bctx.BuildStmt(ctx, o)
return bctx.BuildStmt(ctx, s)
s2 := s
s2.Op = bctx.BuildStmt(ctx, o)
return bctx.BuildStmt(ctx, s2)
case llvmVal:
arg := bctx.buildExpr(ctx, s.Arg).(llvmVal)
out := bctx.B.CreateCall(llvm.Value(o), []llvm.Value{llvm.Value(arg)}, "")
@ -71,15 +73,17 @@ func (bctx BuildCtx) buildExprTill(ctx Ctx, e Expr, fn func(e Expr) bool) Expr {
case Statement:
return bctx.BuildStmt(ctx, ea)
case Tuple:
ea2 := make(Tuple, len(ea))
for i := range ea {
ea[i] = bctx.buildExprTill(ctx, ea[i], fn)
ea2[i] = bctx.buildExprTill(ctx, ea[i], fn)
}
return ea
return ea2
case List:
ea2 := make(Tuple, len(ea))
for i := range ea {
ea[i] = bctx.buildExprTill(ctx, ea[i], fn)
ea2[i] = bctx.buildExprTill(ctx, ea[i], fn)
}
return ea
return ea2
case Ctx:
return ea
default:
@ -157,7 +161,7 @@ var _ = func() bool {
// TODO obviously this needs to be fixed
fn := llvm.AddFunction(bctx.M, "", llvm.FunctionType(llvm.Int64Type(), []llvm.Type{llvm.Int64Type()}, false))
fnbl := llvm.AddBasicBlock(fn, "entry")
fnbl := llvm.AddBasicBlock(fn, "")
prevbl := bctx.B.GetInsertBlock()
bctx.B.SetInsertPoint(fnbl, fnbl.FirstInstruction())

2
expr/expr.go
View File

@ -72,7 +72,7 @@ func (i Int) equal(e equaler) bool {
}
func (i Int) String() string {
return fmt.Sprint(int64(i))
return fmt.Sprintf("%d", i)
}
////////////////////////////////////////////////////////////////////////////////

4
main.go
View File

@ -48,13 +48,13 @@ func main() {
stmts := []expr.Statement{
expr.NewStatement(
incr,
expr.Int(5),
expr.NewStatement(incr, expr.Int(4)),
),
}
log.Printf("creating main function")
mainFn := llvm.AddFunction(bctx.M, "main", llvm.FunctionType(llvm.Int64Type(), []llvm.Type{}, false))
mainBlock := llvm.AddBasicBlock(mainFn, "entry")
mainBlock := llvm.AddBasicBlock(mainFn, "")
bctx.B.SetInsertPoint(mainBlock, mainBlock.FirstInstruction())
log.Printf("actually processing program")
out := bctx.Build(ctx, stmts...)