summaryrefslogtreecommitdiff
path: root/examples/gfcc/ImperJVM.gf
diff options
context:
space:
mode:
authoraarne <unknown>2004-09-25 21:49:21 +0000
committeraarne <unknown>2004-09-25 21:49:21 +0000
commite1617bbb8e7d7dfa8ba4ba50cf1c321610f57ace (patch)
tree20c027980047347c9e8199c4d78a24105ef54d9f /examples/gfcc/ImperJVM.gf
parent2094e335df40545a5303e0b2340f53e54f8e5896 (diff)
version 2 of doc
Diffstat (limited to 'examples/gfcc/ImperJVM.gf')
-rw-r--r--examples/gfcc/ImperJVM.gf6
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 ;
}