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 } |