remove IMMEDAITE from quote and literal

[rrq/rrqforth.git] / rrqforth.asm

diff --git a/rrqforth.asm b/rrqforth.asm
index ab4fd997cb32f85c2b1c767ea5945347ab369449..ecea1171612a82f840f91d82ce44931432805576 100644 (file)
--- 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'
 
 ;;; ========================================
@@ -192,7 +199,7 @@ main:
        ;; followed by the argument pointers.
        mov qword [p_args_DFA],rsp
        jmp p_quit_DFA          ; QUIT
-       
+
 ;;; This word is also the last word before syscalls
 last_forth_word:
        WORD p_quit,'QUIT',fasm
@@ -214,8 +221,6 @@ p_quit_INITIALIZED:
        dq p_program_version
        dq p_tell
        dq p_stdin
-       dq p_clear_stream
-       dq p_stdin
        dq p_evaluate_stream
        BRANCH 0,p_quit_ERROR
        dq p_false