Ignore:
Timestamp:
08/07/11 14:20:58 (10 years ago)
Author:
ehuelsmann
Message:

Dead code removal.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13275 r13449  
    31163116  )
    31173117
    3118 (defun restore-environment-and-make-handler (register label-START)
    3119   (let ((label-END (gensym "U"))
    3120         (label-EXIT (gensym "E")))
    3121     (emit 'goto label-EXIT)
    3122     (label label-END)
    3123     (restore-dynamic-environment register)
    3124     (emit 'athrow)
    3125     ;; Restore dynamic environment.
    3126     (label label-EXIT)
    3127     (restore-dynamic-environment register)
    3128     (add-exception-handler label-START label-END label-END nil)))
    3129 
    31303118(defun p2-m-v-b-node (block target)
    31313119  (let* ((*register* *register*)
     
    31343122         (vars (second form))
    31353123         (bind-special-p nil)
    3136          (variables (m-v-b-vars block))
    3137          (label-START (gensym "F")))
     3124         (variables (m-v-b-vars block)))
    31383125    (dolist (variable variables)
    31393126      (let ((special-p (variable-special-p variable)))
     
    31493136      ;; Save current dynamic environment.
    31503137      (setf (m-v-b-environment-register block) (allocate-register nil))
    3151       (save-dynamic-environment (m-v-b-environment-register block))
    3152       (label label-START))
     3138      (save-dynamic-environment (m-v-b-environment-register block)))
    31533139    ;; Make sure there are no leftover values from previous calls.
    31543140    (emit-clear-values)
     
    35393525         (form (let-form block))
    35403526         (*visible-variables* *visible-variables*)
    3541          (specialp nil)
    3542          (label-START (gensym "F")))
     3527         (specialp nil))
    35433528    ;; Walk the variable list looking for special bindings and unused lexicals.
    35443529    (dolist (variable (let-vars block))
     
    35513536      ;; We need to save current dynamic environment.
    35523537      (setf (let-environment-register block) (allocate-register nil))
    3553       (save-dynamic-environment (let-environment-register block))
    3554       (label label-START))
     3538      (save-dynamic-environment (let-environment-register block)))
    35553539    (propagate-vars block)
    35563540    (ecase (car form)
     
    39533937         (*register* *register*)
    39543938         (environment-register
    3955           (setf (progv-environment-register block) (allocate-register nil)))
    3956          (label-START (gensym "F")))
     3939          (setf (progv-environment-register block) (allocate-register nil))))
    39573940    (with-operand-accumulation
    39583941        ((compile-operand symbols-form nil)
     
    39623945  (emit-clear-values))
    39633946      (save-dynamic-environment environment-register)
    3964       (label label-START)
    39653947      ;; Compile call to Lisp.progvBindVars().
    39663948      (emit-push-current-thread)
     
    71397121
    71407122         (*thread* nil)
    7141          (*initialize-thread-var* nil)
    7142          (label-START (gensym "F")))
     7123         (*initialize-thread-var* nil))
    71437124
    71447125    (class-add-method class-file method)
     
    72837264              (allocate-register nil))
    72847265        (save-dynamic-environment (compiland-environment-register compiland))
    7285         (label label-START)
    72867266        (dolist (variable (compiland-arg-vars compiland))
    72877267          (when (variable-special-p variable)
Note: See TracChangeset for help on using the changeset viewer.