picolisp

commit 1e21056afcdb46984e66b98ad84a0a05067e7402
parent 1df97ad4f0bacad96d4de562f6b8bb2678e71be6
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Jan 2011 13:50:46 +0100

Wrong frames in 64-bit apply/method calls
Diffstat:
M
src64/apply.l
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src64/apply.l b/src64/apply.l
@@ -1,4 +1,4 @@
-# 25jan11abu
+# 27jan11abu
 # (c) Software Lab. Alexander Burger
 
 (code 'applyXYZ_E 0)
@@ -458,13 +458,13 @@
          push Z  # Save arg pointers
          push Y
          ld Y C  # 'msg'
-         ld Z Nil  # No classes
+         ld Z 0  # No classes
          call methodEY_FCYZ  # Found?
          jne msgErrYX  # No
-         ld (S I) (EnvCls)  # 'cls'
-         ld (S) (EnvKey)  # 'key'
-         ld (EnvCls) Z  # Set new
-         ld (EnvKey) Y  # 'key'
+         xchg Z (S I)  # 'cls'
+         xchg (S I) (EnvCls)
+         xchg Y (S)  # 'key'
+         xchg (S) (EnvKey)  # 'key'
          ld X (C)  # Parameter list in X
          push (EnvBind)  # Build bind frame
          link