projects
/
app-scheme79asm.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9924aa7
)
Heredocs
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 10 Feb 2018 18:41:39 +0000
(18:41 +0000)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 10 Feb 2018 18:41:39 +0000
(18:41 +0000)
t/App-Scheme79asm.t
patch
|
blob
|
blame
|
history
diff --git
a/t/App-Scheme79asm.t
b/t/App-Scheme79asm.t
index 7da1c058420cf9cf4758bd8fab3871a14471482a..9d07525fcdf12daaa1e42a02001e68892bb33ccb 100644
(file)
--- a/
t/App-Scheme79asm.t
+++ b/
t/App-Scheme79asm.t
@@
-15,7
+15,7
@@
sub run_test {
is $actual, $expected, $name
}
is $actual, $expected, $name
}
-run_test {addr_bits => 5}, '(quoted (symbol 5))', <<'', '(QUOTE 5)';
+run_test {addr_bits => 5}, '(quoted (symbol 5))', <<'
EOF
', '(QUOTE 5)';
mem[0] <= 0; // (cdr part of NIL)
mem[1] <= 0; // (car part of NIL)
mem[2] <= 8'b00100000; // (cdr part of T)
mem[0] <= 0; // (cdr part of NIL)
mem[1] <= 0; // (car part of NIL)
mem[2] <= 8'b00100000; // (cdr part of T)
@@
-24,8
+24,9
@@
mem[4] <= 8'd8; // (free storage pointer)
mem[5] <= 8'b11100111; // QUOTED 7
mem[6] <= 0; // (result of computation)
mem[7] <= 8'b00100101; // SYMBOL 5
mem[5] <= 8'b11100111; // QUOTED 7
mem[6] <= 0; // (result of computation)
mem[7] <= 8'b00100101; // SYMBOL 5
+EOF
-run_test {addr_bits => 13}, '(call (more (funcall nil) (proc (var -2))) (number 5))', <<'', '((LAMBDA ID (X) X) 5)';
+run_test {addr_bits => 13}, '(call (more (funcall nil) (proc (var -2))) (number 5))', <<'
EOF
', '((LAMBDA ID (X) X) 5)';
mem[ 0] <= 0; // (cdr part of NIL)
mem[ 1] <= 0; // (car part of NIL)
mem[ 2] <= 16'b0010000000000000; // (cdr part of T)
mem[ 0] <= 0; // (cdr part of NIL)
mem[ 1] <= 0; // (car part of NIL)
mem[ 2] <= 16'b0010000000000000; // (cdr part of T)
@@
-38,3
+39,4
@@
mem[ 8] <= 16'b0010000000000101; // NUMBER 5
mem[ 9] <= 16'b1110000000000000; // FUNCALL NIL
mem[10] <= 16'b1000000000001011; // PROC 11
mem[11] <= 16'b0011111111111110; // VAR -2
mem[ 9] <= 16'b1110000000000000; // FUNCALL NIL
mem[10] <= 16'b1000000000001011; // PROC 11
mem[11] <= 16'b0011111111111110; // VAR -2
+EOF
This page took
0.01118 seconds
and
4
git commands to generate.