Changeset 11817

Timestamp:

05/03/09 06:10:01 (14 years ago)

Author:

ehuelsmann

Message:

A little bit of reindenting; making some lines < 80

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (10 diffs)

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

@@ -3992 +3992 @@
       (setf (block-environment-register block) (allocate-register))
       (emit-push-current-thread)
-      (emit 'getfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+)
+      (emit 'getfield +lisp-thread-class+ "lastSpecialBinding"
+            +lisp-special-binding+)
       (astore (block-environment-register block))
       (label label-START))
@@ -4017 +4018 @@
              (aload values-register)
              (emit 'ifnull LABEL1)
-             ;; Reaching here, we have multiple values (or no values at all). We need
-             ;; the slow path if we have more variables than values.
+             ;; Reaching here, we have multiple values (or no values at all).
+             ;; We need the slow path if we have more variables than values.
              (aload values-register)
              (emit 'arraylength)
              (emit-push-constant-int (length vars))
              (emit 'if_icmplt LABEL1)
-             ;; Reaching here, we have enough values for all the variables. We can use
-             ;; the values we have. This is the fast path.
+             ;; Reaching here, we have enough values for all the variables.
+             ;; We can use the values we have. This is the fast path.
              (aload values-register)
              (emit 'goto LABEL2)
@@ -4063 +4064 @@
       (aload *thread*)
       (aload (block-environment-register block))
-      (emit 'putfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+)
+      (emit 'putfield +lisp-thread-class+ "lastSpecialBinding"
+            +lisp-special-binding+)
       (push (make-handler :from label-START
                           :to label-END
@@ -4093 +4095 @@
                                 ;; We can eliminate the variable.
                                 ;; FIXME This may no longer be true when we start tracking writes!
-                                (aver (= (variable-reads variable) (length (variable-references variable))))
+                                (aver (= (variable-reads variable)
+                                         (length (variable-references variable))))
                                 (dolist (ref (variable-references variable))
                                   (aver (eq (var-ref-variable ref) variable))
                                   (setf (var-ref-variable ref) source-var))
                                 ;; Check for DOTIMES limit variable.
-                                (when (get (variable-name variable) 'sys::dotimes-limit-variable-p)
-                                  (let* ((symbol (get (variable-name variable) 'sys::dotimes-index-variable-name))
+                                (when (get (variable-name variable)
+                                           'sys::dotimes-limit-variable-p)
+                                  (let* ((symbol (get (variable-name variable)
+                                                      'sys::dotimes-index-variable-name))
                                          (index-variable (find-variable symbol (block-vars block))))
                                     (when index-variable
-                                      (setf (get (variable-name index-variable) 'sys::dotimes-limit-variable-name)
+                                      (setf (get (variable-name index-variable)
+                                                 'sys::dotimes-limit-variable-name)
                                             (variable-name source-var)))))
                                 (push variable removed)))))))
@@ -4272 +4278 @@
                  (allocate-variable-register variable))
                (cond ((variable-special-p variable)
-                      (emit-move-from-stack (setf (variable-temp-register variable) (allocate-register))))
+                      (emit-move-from-stack
+                       (setf (variable-temp-register variable)
+                             (allocate-register))))
                      ((variable-representation variable)
                       (emit-move-to-variable variable))
@@ -4387 +4395 @@
       (setf (block-environment-register block) (allocate-register))
       (emit-push-current-thread)
-      (emit 'getfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+)
+      (emit 'getfield +lisp-thread-class+ "lastSpecialBinding"
+            +lisp-special-binding+)
       (astore (block-environment-register block))
       (label label-START))
@@ -4545 +4554 @@
             (aload *thread*)
             (aload register)
-            (emit 'putfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+))
+            (emit 'putfield +lisp-thread-class+ "lastSpecialBinding"
+                  +lisp-special-binding+))
           (maybe-generate-interrupt-check)
           (emit 'goto (tag-label tag))
@@ -4822 +4832 @@
       (emit-clear-values))
     (emit-push-current-thread)
-    (emit 'getfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+)
+    (emit 'getfield +lisp-thread-class+ "lastSpecialBinding"
+          +lisp-special-binding+)
     (astore environment-register)
     (label label-START)
@@ -4835 +4846 @@
     (aload *thread*)
     (aload environment-register)
-    (emit 'putfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+)
+    (emit 'putfield +lisp-thread-class+ "lastSpecialBinding"
+          +lisp-special-binding+)
     (emit 'athrow)
 
@@ -4842 +4854 @@
     (aload *thread*)
     (aload environment-register)
-    (emit 'putfield +lisp-thread-class+ "lastSpecialBinding" +lisp-special-binding+)
+    (emit 'putfield +lisp-thread-class+ "lastSpecialBinding"
+          +lisp-special-binding+)
     (fix-boxing representation nil)
     (push (make-handler :from label-START