picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Msrc64/subr.l | 2+-
Msrc64/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)