picolisp

commit 1df97ad4f0bacad96d4de562f6b8bb2678e71be6
parent 706f90f7e53765c221c5374f6c1768ebc8ec102e
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Jan 2011 10:56:55 +0100

Wrong frame pointer in 64-bit vararg method calls
Diffstat:
M
CHANGES
 | 
1
+
M
ersatz/picolisp.jar
 | 
0

M
src64/flow.l
 | 
6
+++---
M
src64/version.l
 | 
4
++--

4 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXmar11 picoLisp-3.0.6
+   Bug in vararg method calls (64-bit)
    'fill' handles '^'
    'le0' function
    Interpreter not exited upon <enter>
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 25jan11abu
+# 27jan11abu
 # (c) Software Lab. Alexander Burger
 
 (code 'redefMsgEC)
@@ -753,8 +753,8 @@
       link  # Close varArgs frame
    end
    ld (EnvBind) Y  # Close bind frame
-   xchg (EnvCls) ((L) III)  # 'cls'
-   xchg (EnvKey) ((L) II)  # 'key'
+   xchg (EnvCls) ((Y) III)  # 'cls'
+   xchg (EnvKey) ((Y) II)  # 'key'
    ld C (Y)  # End of bindings in C
    add Y I
    do
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 25jan11abu
+# 27jan11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 5 8)
+(de *Version 3 0 5 9)
 
 # vi:et:ts=3:sw=3