From c007cbd75900b5df4aac0e2fdcdb1062ed26cdd0 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Mon, 24 May 2021 21:22:07 +1000 Subject: [PATCH] added debug call target. reverted forth sequence compaction --- rrqforth.asm | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/rrqforth.asm b/rrqforth.asm index 765b8fc..ecea117 100644 --- a/rrqforth.asm +++ b/rrqforth.asm @@ -73,6 +73,13 @@ dostring: pushpname rax next + WORD p_calltrace,'calltrace',dovalue + ;; Common call point for debugging + ;; rax = cfa of called word + ;; rsi = cell* of next forth word + ;; [$rsp] = from where the call was + ret + include 'syscalls.asm' ;;; ======================================== @@ -211,13 +218,21 @@ last_forth_word: p_quit_INITIALIZED: ;; Initial blurb FORTH - dq p_program_version, p_tell, p_stdin, p_evaluate_stream + dq p_program_version + dq p_tell + dq p_stdin + dq p_evaluate_stream BRANCH 0,p_quit_ERROR - dq p_false, sys_exit + dq p_false + dq sys_exit p_quit_ERROR: dq p_literal_string STRING 10,'*** Unknown word: ' - dq p_tell, p_this_word, p_2get, p_tell, p_literal_string + dq p_tell + dq p_this_word + dq p_2get + dq p_tell + dq p_literal_string STRING 10 dq p_tell ENDFORTH -- 2.39.2