Changeset 13464

Timestamp:

08/11/11 19:44:30 (12 years ago)

Author:

ehuelsmann

Message:

On second thought: revert r13463, it's not about value assignment,
but about binding establishment (ie assigning a new value to the
closure array's slots).

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -2163 +2163 @@
          (register (allocate-register nil)))
     (aload (compiland-closure-register compiland))        ;; src
-    (when (some #'(lambda (var)
-                    (< 1 (variable-writes var)))
-                *closure-variables*)
-      (emit-push-constant-int 0) ;; srcPos
-      (emit-push-constant-int (length *closure-variables*))
-      (emit-anewarray +lisp-closure-binding+) ;; dest
-      (emit 'dup)
-      (astore register)        ;; save dest value
-      (emit-push-constant-int 0)                          ;; destPos
-      (emit-push-constant-int (length *closure-variables*)) ;; length
-      (emit-invokestatic +java-system+ "arraycopy"
-                         (list +java-object+ :int
-                               +java-object+ :int :int) nil)
-      (aload register)))) ;; reload dest value
+    (emit-push-constant-int 0)                            ;; srcPos
+    (emit-push-constant-int (length *closure-variables*))
+    (emit-anewarray +lisp-closure-binding+)             ;; dest
+    (emit 'dup)
+    (astore register)  ;; save dest value
+    (emit-push-constant-int 0)                            ;; destPos
+    (emit-push-constant-int (length *closure-variables*)) ;; length
+    (emit-invokestatic +java-system+ "arraycopy"
+                       (list +java-object+ :int
+                             +java-object+ :int :int) nil)
+    (aload register))) ;; reload dest value