Changeset 12051


Ignore:
Timestamp:
07/18/09 09:35:56 (13 years ago)
Author:
ehuelsmann
Message:

Follow up to r12015: Removal of class file verification
to speed up the compiler (because class loading clears out
the JIT and HOTSPOT caches).

File:
1 edited

Legend:

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

    r12040 r12051  
    49134913       (delete-file pathname))))
    49144914
    4915 (defun verify-class-file-loadable (pathname)
    4916   (let ((*load-truename* (pathname pathname)))
    4917     (unless (ignore-errors (load-compiled-function pathname))
    4918       (error "Unable to load ~S." pathname))))
    4919 
    49204915(defknown p2-flet-process-compiland (t) t)
    49214916(defun p2-flet-process-compiland (local-function)
     
    49274922                                               :lambda-list lambda-list)))
    49284923       (set-compiland-and-write-class-file class-file compiland)
    4929        (verify-class-file-loadable pathname)
    49304924             (setf (local-function-class-file local-function) class-file)))
    49314925          (t
     
    49464940                                               :lambda-list lambda-list)))
    49474941       (set-compiland-and-write-class-file class-file compiland)
    4948        (verify-class-file-loadable pathname)
    49494942             (setf (local-function-class-file local-function) class-file)
    49504943             (let ((g (declare-local-function local-function)))
     
    84598452                   (load-compiled-function
    84608453                    (compile-defun name expr env tempfile))))
    8461         (delete-file tempfile)))
     8454        ;;(delete-file tempfile)
     8455        ))
    84628456    (when (and name (functionp compiled-function))
    84638457      (sys::set-function-definition name compiled-function definition))
Note: See TracChangeset for help on using the changeset viewer.