From d9dfd8a31a97150d8974933ad22671b8591fc4bc Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 28 Nov 2014 16:16:30 -0800 Subject: 357 --- mu.arc.t | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'mu.arc.t') diff --git a/mu.arc.t b/mu.arc.t index c7c4a6c1..c677413d 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -721,6 +721,16 @@ (prn "F - 'addr' works with indirectly-addressed 'deref'")) (= routine* make-routine!foo) +(if (~is 4 (addr '(4 integer))) + (prn "F - directly addressed operands are their own address inside routines")) +(if (~is 4 (addr '(4 integer-address))) + (prn "F - directly addressed operands are their own address inside routines - 2")) +(if (~is 4 (addr '(4 literal))) + (prn "F - 'addr' doesn't understand literals inside routines")) +(= memory*.4 23) +(if (~is 23 (addr '(4 integer-address deref))) + (prn "F - 'addr' works with indirectly-addressed 'deref' inside routines")) + (= rep.routine*!call-stack.0!default-scope 10) (= memory*.10 5) ; bounds check for default-scope (if (~is 14 (addr '(4 integer))) -- cgit 1.4.1-2-gfad0