aboutsummaryrefslogtreecommitdiff
path: root/docs/history/13-gap-fixes/code/tests/misc.zc
diff options
context:
space:
mode:
Diffstat (limited to 'docs/history/13-gap-fixes/code/tests/misc.zc')
-rw-r--r--docs/history/13-gap-fixes/code/tests/misc.zc30
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; }