From: Ralph Ronnquist Date: Sun, 30 May 2021 13:58:42 +0000 (+1000) Subject: fixed END to resolve properly X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=764d368fcefee647569660b167624506c35175aa;p=rrq%2Frrqforth.git fixed END to resolve properly --- diff --git a/control.asm b/control.asm index f46d7d4..b6bfe0f 100644 --- 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 +p_end_scan: 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 - mov rcx,rax + mov rcx,qword [p_here_DFA] sub rcx,rbx mov qword [rbx-8],rcx jmp p_end_next