projects
/
rrq
/
rrqforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6feac19
)
fixed END to resolve properly
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sun, 30 May 2021 13:58:42 +0000
(23:58 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sun, 30 May 2021 13:58:42 +0000
(23:58 +1000)
control.asm
patch
|
blob
|
history
diff --git
a/control.asm
b/control.asm
index f46d7d4e552e97336a6b2c0a516611b3e40892ca..b6bfe0f005e964ce1773fa025d7d618e01ea95e4 100644
(file)
--- a/
control.asm
+++ b/
control.asm
@@
-146,17
+146,18
@@
p_ifagain_resolve:
;; Resolves all open branches for the preceding BEGIN and
;; optional several IFBREAK
mov rax,rsp
;; Resolves all open branches for the preceding BEGIN and
;; optional several IFBREAK
mov rax,rsp
+p_end_scan:
cmp qword [rax],0
je p_end_resolve
add rax,8
cmp qword [rax],0
je p_end_resolve
add rax,8
- jmp p_end_
DFA
+ jmp p_end_
scan
p_end_resolve:
mov rax,qword [rax+8] ; address of BEGIN
p_end_next:
pop rbx
cmp rbx,0
je p_end_ending
p_end_resolve:
mov rax,qword [rax+8] ; address of BEGIN
p_end_next:
pop rbx
cmp rbx,0
je p_end_ending
- mov rcx,
rax
+ mov rcx,
qword [p_here_DFA]
sub rcx,rbx
mov qword [rbx-8],rcx
jmp p_end_next
sub rcx,rbx
mov qword [rbx-8],rcx
jmp p_end_next