diff options
| author | Camil Staps | 2016-07-03 19:57:27 +0200 |
|---|---|---|
| committer | Camil Staps | 2016-07-03 19:59:22 +0200 |
| commit | fa8b99969d7a6966c1cd309d41384051599070fb (patch) | |
| tree | 269be5ac51c66178816d472e5c9e4a80c9c4c142 /ABC/Code | |
| parent | Added ABC.Code (diff) | |
Fix RTS; working example
Diffstat (limited to 'ABC/Code')
| -rw-r--r-- | ABC/Code/RTS.icl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ABC/Code/RTS.icl b/ABC/Code/RTS.icl index f28f4d8..89032f3 100644 --- a/ABC/Code/RTS.icl +++ b/ABC/Code/RTS.icl @@ -7,6 +7,8 @@ rts = [ Descriptor "INT" "_rnf" 0 "integer" , Descriptor "BOOL" "_rnf" 0 "boolean" , Jmp "init_graph" + , Label "_rnf" + , Rtn , Label "init_graph" , Create , Fill "Start" 0 "n_Start" 0 @@ -31,6 +33,7 @@ rts , DecI , Jmp "_brackets" , Label "_exit" + , Pop_b 1 , Rtn , Label "_args" , Print "(" @@ -49,8 +52,6 @@ rts , Jsr "_driver" , DecI , Jmp "_arg_loop" - , Label "_rnf" - , Rtn , Label "_cycle" , Print "cycle in spine\n" , Halt |