picolisp

commit 96e5e78f9a829b7a17ab2d6a45145ac52873749d
parent 56da1448c5a39ee7ecbddcc60a8887842f6396ff
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  1 Mar 2011 14:17:53 +0100

Don't save flags in debug function
Diffstat:
M
src64/err.l
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src64/err.l b/src64/err.l
@@ -1,4 +1,4 @@
-# 26feb11abu
+# 01mar11abu
 # (c) Software Lab. Alexander Burger
 
 # Debug print routine
@@ -7,7 +7,6 @@
    xchg E (S I)  # Get argument, save return
    push C  # Save all registers
    push A
-   push F  # And flags
    push (OutFile)  # Save output channel
    ld (OutFile) ((OutFiles) II)  # Set to OutFiles[2] (stderr)
    push (PutB)  # Save 'put'
@@ -16,7 +15,6 @@
    call newline  # and a newline
    pop (PutB)  # Restore 'put'
    pop (OutFile)  # and output channel
-   pop F
    pop A
    pop C
    pop E