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:
f0289d3
)
Fix tests
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 3 Mar 2018 11:52:41 +0000
(11:52 +0000)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 3 Mar 2018 11:57:24 +0000
(11:57 +0000)
t/App-Scheme79asm.t
patch
|
blob
|
blame
|
history
diff --git
a/t/App-Scheme79asm.t
b/t/App-Scheme79asm.t
index 9d07525fcdf12daaa1e42a02001e68892bb33ccb..8e7e72c8f5d602d589be22334c71db32483dcd5b 100644
(file)
--- a/
t/App-Scheme79asm.t
+++ b/
t/App-Scheme79asm.t
@@
-10,7
+10,7
@@
sub run_test {
my $actual = '';
open my $fh, '>', \$actual;
my $asm = App::Scheme79asm->new(%$args);
my $actual = '';
open my $fh, '>', \$actual;
my $asm = App::Scheme79asm->new(%$args);
- $asm->parse_and_print($input, $fh);
+ $asm->parse_and_print
_verilog
($input, $fh);
close $fh;
is $actual, $expected, $name
}
close $fh;
is $actual, $expected, $name
}
@@
-26,7
+26,7
@@
mem[6] <= 0; // (result of computation)
mem[7] <= 8'b00100101; // SYMBOL 5
EOF
mem[7] <= 8'b00100101; // SYMBOL 5
EOF
-run_test {addr_bits => 13}, '(call (more (funcall
nil
) (proc (var -2))) (number 5))', <<'EOF', '((LAMBDA ID (X) X) 5)';
+run_test {addr_bits => 13}, '(call (more (funcall
0
) (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)
@@
-36,7
+36,7
@@
mem[ 5] <= 16'b1100000000000111; // CALL 7
mem[ 6] <= 0; // (result of computation)
mem[ 7] <= 16'b0000000000001001; // MORE 9
mem[ 8] <= 16'b0010000000000101; // NUMBER 5
mem[ 6] <= 0; // (result of computation)
mem[ 7] <= 16'b0000000000001001; // MORE 9
mem[ 8] <= 16'b0010000000000101; // NUMBER 5
-mem[ 9] <= 16'b1110000000000000; // FUNCALL
NIL
+mem[ 9] <= 16'b1110000000000000; // FUNCALL
0
mem[10] <= 16'b1000000000001011; // PROC 11
mem[10] <= 16'b1000000000001011; // PROC 11
-mem[11] <= 16'b0
01
1111111111110; // VAR -2
+mem[11] <= 16'b0
10
1111111111110; // VAR -2
EOF
EOF
This page took
0.011483 seconds
and
4
git commands to generate.