The Lambda Lab
/
projects
/
jars.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7526b1f
)
Fixed some mars instruction handling bugs.
author
plugd
<plugd@thelambdalab.xyz>
Sun, 24 Nov 2019 11:18:52 +0000
(12:18 +0100)
committer
plugd
<plugd@thelambdalab.xyz>
Sun, 24 Nov 2019 11:18:52 +0000
(12:18 +0100)
mars.scm
patch
|
blob
|
history
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)