Changeset 11862

Timestamp:

05/14/09 20:00:24 (14 years ago)

Author:

ehuelsmann

Message:

Fix stack ordering problems introduced when creating closure bindings.

File:

• branches/closure-fixes/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (3 diffs)

branches/closure-fixes/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -3920 +3920 @@
          (emit-invokevirtual +lisp-thread-class+ "bindSpecial"
                              (list +lisp-symbol+ +lisp-object+) nil))
-        ((variable-closure-index variable)
-         (emit 'new "org/armedbear/lisp/ClosureBinding")
-         (emit 'dup)
+        ((variable-closure-index variable)              ;; stack:
+         (emit 'new "org/armedbear/lisp/ClosureBinding") ;; value c-b
+         (emit 'dup_x1)                                  ;; c-b value c-b
+         (emit 'swap)                                    ;; c-b c-b value
          (emit-invokespecial-init "org/armedbear/lisp/ClosureBinding"
-                                 (list +lisp-object+))
+                                 (list +lisp-object+))   ;; c-b
          (aload (compiland-closure-register *current-compiland*))
-         (emit 'swap) ; array value
+                                                         ;; c-b array
+         (emit 'swap)                                    ;; array c-b
          (emit-push-constant-int (variable-closure-index variable))
+                                                         ;; array c-b int
          (emit 'swap) ; array index value
          (emit 'aastore))
@@ -8123 +8126 @@
                (emit 'dup) ; array
                (emit-push-constant-int (variable-closure-index variable))
-               (aload (variable-register variable))
                (emit 'new "org/armedbear/lisp/ClosureBinding")
                (emit 'dup)
+               (aload (variable-register variable))
                (emit-invokespecial-init "org/armedbear/lisp/ClosureBinding"
-                                       (list "Lorg/armedbear/lisp/LisObject;"))
+                                       (list +lisp-object+))
                (emit 'aastore)
                (setf (variable-register variable) nil))
@@ -8133 +8136 @@
                (emit 'dup) ; array
                (emit-push-constant-int (variable-closure-index variable))
+               (emit 'new "org/armedbear/lisp/ClosureBinding")
+               (emit 'dup)
                (aload (compiland-argument-register compiland))
                (emit-push-constant-int (variable-index variable))
                (emit 'aaload)
-               (emit 'new "org/armedbear/lisp/ClosureBinding")
-               (emit 'dup)
                (emit-invokespecial-init "org/armedbear/lisp/ClosureBinding"
-                                       (list "Lorg/armedbear/lisp/LisObject;"))
+                                       (list +lisp-object+))
                (emit 'aastore)
                (setf (variable-index variable) nil))))