The Lambda Lab
/
projects
/
jars.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed some mars instruction handling bugs.
[jars.git]
/
mars.scm
diff --git
a/mars.scm
b/mars.scm
index
9610d10
..
a9ba7c5
100644
(file)
--- a/
mars.scm
+++ b/
mars.scm
@@
-262,15
+262,15
@@
((JMP)
(list (core '->addr A-ptr)))
((JMZ)
((JMP)
(list (core '->addr A-ptr)))
((JMZ)
- (list (core '->addr (if (instr-zero? B-ptr modifier #f name)
+ (list (core '->addr (if (instr-zero?
core
B-ptr modifier #f name)
A-ptr
(+ ptr 1)))))
((JMN)
A-ptr
(+ ptr 1)))))
((JMN)
- (list (core '->addr (if (not (instr-zero? B-ptr modifier #f name))
+ (list (core '->addr (if (not (instr-zero?
core
B-ptr modifier #f name))
A-ptr
(+ ptr 1)))))
((DJN)
A-ptr
(+ ptr 1)))))
((DJN)
- (list (core '->addr (if (not (instr-zero? B-ptr modifier #t name))
+ (list (core '->addr (if (not (instr-zero?
core
B-ptr modifier #t name))
A-ptr
(+ ptr 1)))))
((SEQ CMP)
A-ptr
(+ ptr 1)))))
((SEQ CMP)