fixed AGAIN (CnP) bug

[rrq/rrqforth.git] / control.asm

diff --git a/control.asm b/control.asm
index 949f48c7110c262c6683bbfafaf44d8c1cbcf0b9..81c4c724e384bcaa6b1ae1d3035619c8c6feae4b 100644 (file)
--- a/control.asm
+++ b/control.asm
@@ -176,12 +176,11 @@ p_end_ending:
        mov rbx,rsp
 p_again_loop:
        cmp qword [rbx],0
-       je p_ifagain_resolve
+       je p_again_resolve
        add rbx,8
-       jmp p_ifagain_loop
+       jmp p_again_loop
 p_again_resolve:
        mov rbx,qword [rbx+8]
        sub rbx,rax
        mov qword [rax-8],rbx
-       mov rax,rsp
-       jmp p_end_scan
+       jmp p_end_DFA