added debug call into "next" macro

diff --git a/machine.asm b/machine.asm
index 4628077226d1c0487e15c708a584a942a48313f1..86b1e7f1aac47f5276c6a3019dcb917b02f9febf 100644 (file)
--- 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)
 }