Changeset 13449

Timestamp:

08/07/11 14:20:58 (12 years ago)

Author:

ehuelsmann

Message:

Dead code removal.

File:

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

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

@@ -3116 +3116 @@
   )
 
-(defun restore-environment-and-make-handler (register label-START)
-  (let ((label-END (gensym "U"))
-        (label-EXIT (gensym "E")))
-    (emit 'goto label-EXIT)
-    (label label-END)
-    (restore-dynamic-environment register)
-    (emit 'athrow)
-    ;; Restore dynamic environment.
-    (label label-EXIT)
-    (restore-dynamic-environment register)
-    (add-exception-handler label-START label-END label-END nil)))
-
 (defun p2-m-v-b-node (block target)
   (let* ((*register* *register*)
@@ -3134 +3122 @@
          (vars (second form))
          (bind-special-p nil)
-         (variables (m-v-b-vars block))
-         (label-START (gensym "F")))
+         (variables (m-v-b-vars block)))
     (dolist (variable variables)
       (let ((special-p (variable-special-p variable)))
@@ -3149 +3136 @@
       ;; Save current dynamic environment.
       (setf (m-v-b-environment-register block) (allocate-register nil))
-      (save-dynamic-environment (m-v-b-environment-register block))
-      (label label-START))
+      (save-dynamic-environment (m-v-b-environment-register block)))
     ;; Make sure there are no leftover values from previous calls.
     (emit-clear-values)
@@ -3539 +3525 @@
          (form (let-form block))
          (*visible-variables* *visible-variables*)
-         (specialp nil)
-         (label-START (gensym "F")))
+         (specialp nil))
     ;; Walk the variable list looking for special bindings and unused lexicals.
     (dolist (variable (let-vars block))
@@ -3551 +3536 @@
       ;; We need to save current dynamic environment.
       (setf (let-environment-register block) (allocate-register nil))
-      (save-dynamic-environment (let-environment-register block))
-      (label label-START))
+      (save-dynamic-environment (let-environment-register block)))
     (propagate-vars block)
     (ecase (car form)
@@ -3953 +3937 @@
          (*register* *register*)
          (environment-register
-          (setf (progv-environment-register block) (allocate-register nil)))
-         (label-START (gensym "F")))
+          (setf (progv-environment-register block) (allocate-register nil))))
     (with-operand-accumulation
         ((compile-operand symbols-form nil)
@@ -3962 +3945 @@
   (emit-clear-values))
       (save-dynamic-environment environment-register)
-      (label label-START)
       ;; Compile call to Lisp.progvBindVars().
       (emit-push-current-thread)
@@ -7139 +7121 @@
 
          (*thread* nil)
-         (*initialize-thread-var* nil)
-         (label-START (gensym "F")))
+         (*initialize-thread-var* nil))
 
     (class-add-method class-file method)
@@ -7283 +7264 @@
               (allocate-register nil))
         (save-dynamic-environment (compiland-environment-register compiland))
-        (label label-START)
         (dolist (variable (compiland-arg-vars compiland))
           (when (variable-special-p variable)