From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 4 Jun 2021 08:14:39 +0000 (+1000)
Subject: Moving the debug trace point to be prior to advancing %rsi
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=aa6d10c30115571b859b9e7e3d6e8a9b9ced599b;p=rrq%2Frrqforth.git

Moving the debug trace point to be prior to advancing %rsi
---

diff --git a/machine.asm b/machine.asm
index 86b1e7f..f1fb51c 100644
--- a/machine.asm
+++ b/machine.asm
@@ -73,8 +73,8 @@ macro popr x {
 ;;; referring to the doer field of the called word.
 
 macro next {
-	lodsq			; mov rax, [rsi] + add rsi,8
 	call p_calltrace_DFA
+	lodsq			; mov rax, [rsi] + add rsi,8
 	jmp qword [rax]		; goto code of that FORTH word (64 bit jump)
 }