projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added debug call target. reverted forth sequence compaction
[rrq/rrqforth.git]
/
rrqforth.asm
diff --git
a/rrqforth.asm
b/rrqforth.asm
index 765b8fc26497555fb3c2a6373344cd0c3eaabf1f..ecea1171612a82f840f91d82ce44931432805576 100644
(file)
--- a/
rrqforth.asm
+++ b/
rrqforth.asm
@@
-73,6
+73,13
@@
dostring:
pushpname rax
next
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'
;;; ========================================
include 'syscalls.asm'
;;; ========================================
@@
-211,13
+218,21
@@
last_forth_word:
p_quit_INITIALIZED:
;; Initial blurb
FORTH
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
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: '
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
STRING 10
dq p_tell
ENDFORTH