X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=machine.asm;h=86b1e7f1aac47f5276c6a3019dcb917b02f9febf;hb=1fb804b8f6a4bd907491e5d64d4a16e190e64c17;hp=4628077226d1c0487e15c708a584a942a48313f1;hpb=aa0b9f4e49a0da794e59d2803dc4654ff66824fb;p=rrq%2Frrqforth.git

diff --git a/machine.asm b/machine.asm
index 4628077..86b1e7f 100644
--- a/machine.asm
+++ b/machine.asm
@@ -74,6 +74,7 @@ macro popr x {
 
 macro next {
 	lodsq			; mov rax, [rsi] + add rsi,8
+	call p_calltrace_DFA
 	jmp qword [rax]		; goto code of that FORTH word (64 bit jump)
 }