diff options
Diffstat (limited to 'docs/history/13-gap-fixes/code/tests/misc.zc')
| -rw-r--r-- | docs/history/13-gap-fixes/code/tests/misc.zc | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/docs/history/13-gap-fixes/code/tests/misc.zc b/docs/history/13-gap-fixes/code/tests/misc.zc deleted file mode 100644 index 25fc53b..0000000 --- a/docs/history/13-gap-fixes/code/tests/misc.zc +++ /dev/null @@ -1,30 +0,0 @@ -// ct { ... } runs a block while compiling and leaves its result as a constant -immediate fn ct() -{ - let q, v; - next(); - q = grab(); - v = eval(q); - free(d*q); - lit(v); - return 0; -} -// teach the asm syntax that p means out, like the old repl demo -immediate fn teach() { next(); mnem[12] = 'p'; return 0; } -teach - -fn countdown() -{ - asm { 5 :top 0 $ '0' + p 1 - 0 $ done z top j :done _ 10 p } - return 0; -} -fn main() -{ - putn(ct { let i = 0, s = 0; while (i < 10) { s += i; i++; } return s; }); putc(10); - countdown(); - puts(lazy()); putc(10); - return 0; -} -// the analyzer is off from here on -unchecked; -fn lazy() { let p = new(3); p[0] = 'o'; p[1] = 'k'; return p; } |
