aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/share.zc
diff options
context:
space:
mode:
authorGravatar Moon Flower <moonflower@elhenney.local> 2026-10-14 08:29:46 +0330
committerGravatar Moon Flower <moonflower@elhenney.local> 2026-10-14 08:29:46 +0330
commit1c53304d03414890af0da7432d1aea87e754a14a (patch)
tree97190d86cf548c9bc63f68c86a4d2a4f09809713 /tests/programs/share.zc
parenta (diff)
feat: grow memory limits, add icon/actor libraries, overhaul LSP diagnostics
Compiler and VM - make every memory map limit dynamic and adjustable at both build time and runtime, including compiler tables, stacks, and every execution region - reserve and grow tables, operand and return stacks, frame segments, and image-building output without relocating live code or globals - rename i/o and string helpers consistently (puts -> put_s, putn -> put_n, scat -> cat_s) across compiler, runtime, examples, tests, and docs - recast and consume values assigned to globals from inside functions - allow fixed and const together, add typed closure returns (fn:t(...)), multi-include syntax (include rt, run, core;), and recurse type inference - never infer string literals as word, anywhere, as argument, variable, or return type - draft docs/BORROW.md: a borrow checker less intrusive than Rust's but more intelligent LSP and editor integration - require explicit includes and give every toolchain area its own namespace (rt, lsp, run, core) - hover for built-in types, inferred types, values known at hover time, array and pointer lifetime/size, library names in include statements, and inferred lifetimes with explanations - honor /* */ comments as documentation for variables and arguments, and stop misattributing section headers or trailing comments as variable hints - stream diagnostics and cancel stale requests on change - jump to definition and references, including cross-file - quick fixes with automatic library import, and namespace completion Hints and diagnostics - render hints as blue squigglies by default, with hints on/small/off per file - suppress magic-number hints via a preceding /* */ comment, and say so - warn on unused arguments; allow multiple _ discards in parameters, pattern matching, and tagged enums, warning if a _ is actually used - rewrite hint and comment prose in professional compiler-doc register Libraries - add icon.zc: run-time self-modification, find/replace syntax, type and block edits, and step-through inspection of locals and globals - add actor.zc: async actors with Actor<I,O>, implicit this, spawn/recv/send, injected into the compiler machinery at include time rather than built in Tooling and docs - reorganize sources, tests, and designs into subdirectories - unify windows entry points in tinyvm.bat and add a matching tinyvm.sh - add --help across the toolchain - polish the learning guide, stdlib docs, and design notes Tests - add accept, reject, and regression coverage across the compiler, LSP, - runtime, icon, actors, threads, formatting, and the toolchain contracts, plus fuzzers and property tests
Diffstat (limited to 'tests/programs/share.zc')
-rw-r--r--tests/programs/share.zc71
1 files changed, 44 insertions, 27 deletions
diff --git a/tests/programs/share.zc b/tests/programs/share.zc
index e9c381f..91a3918 100644
--- a/tests/programs/share.zc
+++ b/tests/programs/share.zc
@@ -1,34 +1,51 @@
+namespace;
+include rt;
+
// shared cons cells, a shared string, and a cycle. the collector reclaims
// them once nothing points at them. free of a shared cell does nothing.
+// the shared cells again without printing, moved by a few blocks. returns the blocks left over
+fn churn(base) {
+ let a = rt.cons(1, 2), b = rt.cons(a, 3), c = rt.cons(a, 4), cyc = rt.cons(0, 1), tri = rt.triple(5, 6, 7);
+ cyc[0] = cyc;
+ a = 0; b = 0; c = 0; cyc = 0; tri = 0;
+ rt.scrub();
+ rt.gc();
+ return rt.live_objects() - base;
+}
fn main() {
- let base = live_objects(), a, b, c, s, p, q, cyc, n, tri;
- a = cons(1, 2);
- b = cons(a, 3);
- c = cons(a, 4);
- put_n(car(a)); put_c(32);
- put_n(cdr(a)); put_c(32);
- put_n(car(car(b))); put_c(32);
- put_n(cdr(c)); put_c(32);
- put_n(car(b) == a); put_c(32);
- put_n(is_shared(a)); put_c(32);
- n = live_objects();
- free(a);
- put_n(live_objects() == n); put_c(32);
- put_n(car(a)); put_c(32);
- s = n_to_s(42);
- p = cons(s, 0);
- q = cons(s, 1);
- put_n(s_to_n(car(p))); put_c(32);
- put_n(car(p) == car(q)); put_c(32);
- cyc = cons(0, 1);
+ let base = rt.live_objects(), a, b, c, s, p, q, cyc, n, tri, k, pad;
+ a = rt.cons(1, 2);
+ b = rt.cons(a, 3);
+ c = rt.cons(a, 4);
+ rt.put_n(rt.car(a)); rt.put_c(32);
+ rt.put_n(rt.cdr(a)); rt.put_c(32);
+ rt.put_n(rt.car(rt.car(b))); rt.put_c(32);
+ rt.put_n(rt.cdr(c)); rt.put_c(32);
+ rt.put_n(rt.car(b) == a); rt.put_c(32);
+ rt.put_n(rt.is_shared(a)); rt.put_c(32);
+ n = rt.live_objects();
+ rt.free(a);
+ rt.put_n(rt.live_objects() == n); rt.put_c(32);
+ rt.put_n(rt.car(a)); rt.put_c(32);
+ s = rt.n_to_s(42);
+ p = rt.cons(s, 0);
+ q = rt.cons(s, 1);
+ rt.put_n(rt.s_to_n(rt.car(p))); rt.put_c(32);
+ rt.put_n(rt.car(p) == rt.car(q)); rt.put_c(32);
+ cyc = rt.cons(0, 1);
cyc[0] = cyc;
- put_n(cdr(cyc)); put_c(32);
- put_n(car(cyc) == cyc); put_c(32);
- tri = triple(5, 6, 7);
- put_n(tget(tri, 1)); put_c(32);
+ rt.put_n(rt.cdr(cyc)); rt.put_c(32);
+ rt.put_n(rt.car(cyc) == cyc); rt.put_c(32);
+ tri = rt.triple(5, 6, 7);
+ rt.put_n(rt.tget(tri, 1)); rt.put_c(32);
a = 0; b = 0; c = 0; s = 0; p = 0; q = 0; cyc = 0; tri = 0;
- scrub();
- gc();
- put_n(live_objects() - base); put_c(10);
+ rt.scrub();
+ rt.gc();
+ // the collector marks conservatively: on a small map a word in the code can equal a block's address by
+ // chance and keep it. shifting where the blocks land must therefore reach a clean count
+ n = rt.live_objects() - base;
+ k = 0;
+ while (n && k < 40) { pad = rt.cons(k, k); rt.scrub(); rt.gc(); n = churn(rt.live_objects()); k++; }
+ rt.put_n(n); rt.put_c(10);
return 0;
}