53 - simplest possible allocator: just one word at a time

But with tests this time.

1 files changed, 19 insertions, 0 deletions

diff --git a/new.arc.t b/new.arc.t
new file mode 100644
index 00000000..e256ea86
--- /dev/null
+++ b/new.arc.t
@@ -0,0 +1,19 @@
+(load "mu.arc")
+(load "new.arc")
+
+(reset)
+(add-fns
+  '((main)))
+(run function*!main)
+(if (~iso memory* (obj Root_allocator_pointer 1000))
+  (prn "F - allocator initialized"))
+
+(reset)
+(add-fns
+  '((main
+      ((x integer-address) <- new)
+      ((x integer-address deref) <- literal 34))))
+(run function*!main)
+;? (prn memory*)
+(if (~iso memory*!Root_allocator_pointer 1001)
+  (prn "F - 'new' increments allocator pointer"))