From 764d368fcefee647569660b167624506c35175aa Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 30 May 2021 23:58:42 +1000
Subject: [PATCH] fixed END to resolve properly

---
 control.asm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
2.39.2