diff options
Diffstat (limited to 'examples/gfcc/ImperJVM.gf')
| -rw-r--r-- | examples/gfcc/ImperJVM.gf | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/gfcc/ImperJVM.gf b/examples/gfcc/ImperJVM.gf index 007f8cd6f..5b2009e32 100644 --- a/examples/gfcc/ImperJVM.gf +++ b/examples/gfcc/ImperJVM.gf @@ -75,6 +75,9 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ; ESub = binopt "_sub" ; EMul = binopt "_mul" ; ELt t = binop ("invokestatic" ++ t.s ++ "runtime/lt" ++ paren (t.s ++ t.s) ++ "i") ; + EAppNil val f = instr ( + "invokestatic" ++ f.s ++ paren [] ++ val.s + ) ; EApp args val f exps = instr ( exps.s ++ "invokestatic" ++ f.s ++ paren args.s ++ val.s @@ -83,11 +86,8 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ; TNum t = t ; TInt = ss "i" ; TFloat = ss "f" ; - NilTyp = ss [] ; ConsTyp = cc2 ; - - NilExp = ss [] ; OneExp _ e = e ; ConsExp _ _ = cc2 ; } |