70

mu.arc

@@ -29,6 +29,7 @@
               integer-boolean-pair-array (obj array t  elem 'integer-boolean-pair)
               integer-integer-pair (obj size 2  record t  elems '(integer integer))
               integer-point-pair (obj size 2  record t  elems '(integer integer-integer-pair))
+              custodian  (obj size 1  record t  elems '(integer))
               ))
   (= memory* (table))
   (= function* (table)))

new.arc

@@ -1,14 +1,29 @@
-;; simple slab allocator. Intended only to carve out isolated memory for
-;; different threads/routines as they request.
+; Memory management primitive.
 
 (= Allocator_start 1000)  ; lower locations reserved
 
+; memory map: 0-2 for convenience numbers
+; for these, address == value always; never modify them
+(= Zero 0)
+(= One 1)
+(= Two 2)
+; memory map: 3 for root custodian (size 1)
+; 'new' will allocate from custodians. Custodians will be arranged in trees,
+; each node knowing its parent. The root custodian controls all memory
+; allocations. And it's located at..
+(= Root_custodian 3)
+
 (enq (fn ()
-       (run `(((Root_allocator_pointer location) <- literal ,Allocator_start))))
+       (run `(((,Zero integer) <- literal 0)
+              ((,One integer) <- literal 1)
+              ((,Two integer) <- literal 2)
+              ((,Root_custodian location) <- literal ,Allocator_start))))
      initialization-fns*)
 
+;; simple slab allocator. Intended only to carve out isolated memory for
+;; different threads/routines as they request.
+; memory map: 4-5 locals for slab allocator
 (init-fn new
-  ((2 integer-address) <- copy (Root_allocator_pointer integer))
-  ((3 integer) <- literal 1)
-  ((Root_allocator_pointer integer) <- add (Root_allocator_pointer integer) (3 integer))
-  (reply (2 integer-address)))
+  ((4 integer-address) <- copy (3 location))
+  ((3 location) <- add (3 location) (1 integer))
+  (reply (4 integer-address)))

new.arc.t

@@ -2,10 +2,8 @@
 (load "new.arc")
 
 (reset)
-(add-fns
-  '((main)))
-(run function*!main)
-(if (~iso memory*!Root_allocator_pointer Allocator_start)
+;? (prn memory*)
+(if (~iso memory*.Root_custodian Allocator_start)
   (prn "F - allocator initialized"))
 
 (reset)
@@ -15,7 +13,7 @@
       ((x integer-address deref) <- literal 34))))
 (run function*!main)
 ;? (prn memory*)
-(if (~iso memory*!Root_allocator_pointer (+ Allocator_start 1))
+(if (~iso memory*.Root_custodian (+ Allocator_start 1))
   (prn "F - 'new' increments allocator pointer"))
 (if (~iso memory*.Allocator_start 34)
   (prn "F - 'new' returns old location"))