picolisp

commit c3952e4b6bde40988f6d6f1740ab8d3695627ed4
parent 857e0a28b1199037ee74e6d40c3dd518bd5d6db4
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 24 Aug 2011 17:00:06 +0200

Use 'lea S' instead of 'add S' to preserve flags
Diffstat:
M
src64/subr.l
 | 
2
+-
M
src64/sym.l
 | 
4
++--

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src64/subr.l b/src64/subr.l
@@ -3511,7 +3511,7 @@
             jlt stkErr
             call unifyCEYZ_F  # Match?
             if eq  # Yes
-               add S I  # Drop pilog environment
+               lea S (S I)  # Drop pilog environment
                ret  # 'z'
             end
          end
diff --git a/src64/sym.l b/src64/sym.l
@@ -1408,11 +1408,11 @@
       end
       ld (S) A
    loop
-   add S II  # Drop locals
+   lea S (S II)  # Drop locals
    pop Z
    pop Y
    pop X
-   ret
+   ret  # 'z' or 'nz'
 
 # (pre? 'any1 'any2) -> any2 | NIL
 (code 'doPreQ 2)