Changeset 11870

Timestamp:

05/15/09 17:19:34 (14 years ago)

Author:

ehuelsmann

Message:

Remove the TEMP-REGISTER slot from the
VARIABLE-INFO structure: it's used only locally.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• compiler-pass2.lisp (modified) (3 diffs)
• jvm.lisp (modified) (1 diff)

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

@@ -4228 +4228 @@
       (aver (null (variable-register variable)))
       (setf (variable-register variable) t)))
-  (let ((must-clear-values nil))
+  (let (must-clear-values
+        temporary-storage)
     (declare (type boolean must-clear-values))
     ;; Evaluate each initform. If the variable being bound is special, allocate
@@ -4259 +4260 @@
                  (allocate-variable-register variable))
                (cond ((variable-special-p variable)
-                      (emit-move-from-stack
-                       (setf (variable-temp-register variable)
-                             (allocate-register))))
+                      (let ((temp-register (allocate-register)))
+                        ;; FIXME: this permanently allocates a register
+                        ;; which has only a single local use
+                        (push (cons temp-register variable)
+                              temporary-storage)
+                        (emit-move-from-stack temp-register)))
                      ((variable-representation variable)
                       (emit-move-to-variable variable))
@@ -4270 +4274 @@
     ;; Now that all the initforms have been evaluated, move the results from
     ;; the temporary registers (if any) to their proper destinations.
-    (dolist (variable (block-vars block))
-      (when (variable-temp-register variable)
-        (aver (variable-special-p variable))
-        (aload (variable-temp-register variable))
-        (compile-binding variable))))
+    (dolist (temp temporary-storage)
+      (aload (car temp))
+      (compile-binding (cdr temp))))
   ;; Now make the variables visible.
   (dolist (variable (block-vars block))

trunk/abcl/src/org/armedbear/lisp/jvm.lisp

@@ -246 +246 @@
   name
   initform
-  temp-register
   (declared-type :none)
   (derived-type :none)