Changeset 12633


Ignore:
Timestamp:
04/24/10 15:46:29 (13 years ago)
Author:
ehuelsmann
Message:

Move a section of code around to separate the

class file finalization from the method finalization.

File:
1 edited

Legend:

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

    r12622 r12633  
    85418541      (setf *code* (nconc code *code*)))
    85428542
     8543    (setf (abcl-class-file-superclass class-file)
     8544          (if (or *hairy-arglist-p*
     8545      (and *child-p* *closure-variables*))
     8546        +lisp-compiled-closure-class+
     8547      +lisp-primitive-class+))
     8548
     8549    (setf (abcl-class-file-lambda-list class-file) args)
     8550    (setf (method-max-locals execute-method) *registers-allocated*)
     8551    (push execute-method (abcl-class-file-methods class-file))
     8552
     8553
     8554    ;;;  Move here
    85438555    (finalize-code)
    85448556    (optimize-code)
     
    85548566                            (symbol-value (handler-to handler))))
    85558567                     *handlers*))
    8556 
    8557     (setf (method-max-locals execute-method) *registers-allocated*)
    8558     (setf (method-handlers execute-method) (nreverse *handlers*))
    8559 
    8560     (setf (abcl-class-file-superclass class-file)
    8561           (if (or *hairy-arglist-p*
    8562       (and *child-p* *closure-variables*))
    8563         +lisp-compiled-closure-class+
    8564       +lisp-primitive-class+))
    8565 
    8566     (setf (abcl-class-file-lambda-list class-file) args)
    8567 
    8568     (push execute-method (abcl-class-file-methods class-file)))
     8568    ;;; to here
     8569    ;;; To a separate function which is part of class file finalization
     8570    ;;;  when we have a section of class-file-generation centered code
     8571
     8572
     8573    (setf (method-handlers execute-method) (nreverse *handlers*)))
    85698574  t)
    85708575
Note: See TracChangeset for help on using the changeset viewer.