From 52c3822e0870942112a7d180d81d2caedd6aea4e Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 31 Jul 2014 02:18:00 -0700 Subject: 43 - tests for 'deref' and 'copy' --- mu.arc.t | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'mu.arc.t') diff --git a/mu.arc.t b/mu.arc.t index a054a48e..4d2efd3c 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -295,6 +295,27 @@ (if (~iso memory* (obj 1 2 2 4 3 nil 4 3)) (prn "F - 'jif' can take a negative offset to make backward jumps")) +(clear) +(add-fns + '((main + ((1 integer) <- literal 34) + ((2 integer) <- copy (1 integer))))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 34 2 34)) + (prn "F - 'copy' performs direct addressing")) + +(clear) +(add-fns + '((main + ((1 integer-address) <- literal 2) + ((2 integer) <- literal 34) + ((3 integer) <- deref (1 integer-address))))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 2 2 34 3 34)) + (prn "F - 'deref' performs indirect addressing")) + (clear) (add-fns '((test1 -- cgit 1.4.1-2-gfad0