akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

55

This commit is contained in:
Kartik K. Agaram 2014-08-19 12:16:47 -07:00
parent 624b9e86a1
commit 6b133a720e
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
new.arc
View File

@ -12,8 +12,3 @@
((3 integer) <- literal 1)
((Root_allocator_pointer integer) <- add (Root_allocator_pointer integer) (3 integer))
(reply (2 integer-address)))
; tests to express:
; every call increments the pointer
; no other function can increment the pointer
; no later clause can increment the pointer after this base clause
; multiple threads/routines can't call the allocator at once

5
new.arc.t
View File

@ -19,3 +19,8 @@
(prn "F - 'new' increments allocator pointer"))
(if (~iso memory*.Allocator_start 34)
(prn "F - 'new' returns old location"))
; other tests to express:
; no other function can increment the pointer
; no later clause can increment the pointer after this base clause
; multiple threads/routines can't call the allocator at once