diff options
| author | aarne <unknown> | 2004-09-25 21:49:21 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-25 21:49:21 +0000 |
| commit | e1617bbb8e7d7dfa8ba4ba50cf1c321610f57ace (patch) | |
| tree | 20c027980047347c9e8199c4d78a24105ef54d9f /examples/gfcc/ImperJVM.gf | |
| parent | 2094e335df40545a5303e0b2340f53e54f8e5896 (diff) | |
version 2 of doc
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 ; } |
