;;; referring to the doer field of the called word.
macro next {
+ call p_calltrace_DFA
lodsq ; mov rax, [rsi] + add rsi,8
jmp qword [rax] ; goto code of that FORTH word (64 bit jump)
}
;;; ========================================
;;; The DOFORTH lays out a single FORTH call
-macro DOFORTH label {
+macro DOFORTH [label] {
+common
FORTH
+forward
dq label
+common
ENDFORTH
}