From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 May 2021 11:22:07 +0000 (+1000)
Subject: added debug call target. reverted forth sequence compaction
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=c007cbd75900b5df4aac0e2fdcdb1062ed26cdd0;p=rrq%2Frrqforth.git

added debug call target. reverted forth sequence compaction
---

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