Mercurial > repos > tabletprog
comparison modules/llcompile.tp @ 356:3b023e5a0b42
llcompile almost working well enough for fib sample
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Wed, 15 Apr 2015 23:03:24 -0700 |
| parents | a6cdcc1b1c02 |
| children | f237d0cae58b |
comparison
equal
deleted
inserted
replaced
| 355:0b4d4f06bf91 | 356:3b023e5a0b42 |
|---|---|
| 219 option none | 219 option none |
| 220 } | 220 } |
| 221 _compileExpr: expr syms: syms ilfun: ilf dest: asn | 221 _compileExpr: expr syms: syms ilfun: ilf dest: asn |
| 222 } | 222 } |
| 223 block <- ilf popBlock | 223 block <- ilf popBlock |
| 224 ilf add: (il skipIf: (il neq) block) | 224 ilf add: (il skipIf: (il eq) block) |
| 225 dest value: :d { d } none: { _compileError: "Something went wrong" } | 225 dest value: :d { d } none: { _compileError: "Something went wrong" } |
| 226 } | 226 } |
| 227 } | 227 } |
| 228 } | 228 } |
| 229 } | 229 } |
| 271 option none | 271 option none |
| 272 } | 272 } |
| 273 _compileExpr: expr syms: syms ilfun: ilf dest: (option none) | 273 _compileExpr: expr syms: syms ilfun: ilf dest: (option none) |
| 274 } | 274 } |
| 275 elseblock <- ilf popBlock | 275 elseblock <- ilf popBlock |
| 276 ilf add: (il skipIf: (il neq) block else: elseblock) | 276 ilf add: (il skipIf: (il eq) block else: elseblock) |
| 277 dest value: :d { d } none: { _compileError: "Something went wrong" } | 277 dest value: :d { d } none: { _compileError: "Something went wrong" } |
| 278 } | 278 } |
| 279 } | 279 } |
| 280 } | 280 } |
| 281 } | 281 } |