Changeset 12622


Ignore:
Timestamp:
04/18/10 09:26:22 (12 years ago)
Author:
Mark Evenson
Message:

Restore buildable trunk arising from ASDF2 compilation.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12620 r12622  
    146146                                 ,@decls (block ,block-name ,@body)))
    147147                        (classfile (next-classfile-name))
    148                         (compilation-failure-p nil)
     148                        (internal-compiler-errors nil)
    149149                        (result (with-open-file
    150150            (f classfile
     
    155155                                      ((internal-compiler-error
    156156                                        #'(lambda (e)
    157                                             (setf compilation-failure-p e)
     157                                            (push e internal-compiler-errors)
    158158                                            (continue))))
    159159                                    (report-error
    160160                                     (jvm:compile-defun name expr nil
    161161                                                        classfile f nil)))))
    162                         (compiled-function (and (not compilation-failure-p)
    163                                                 (verify-load classfile))))
     162                        (compiled-function (if (not internal-compiler-errors)
     163                                               (verify-load classfile)
     164                                               nil)))
    164165       (declare (ignore result))
    165166                   (cond
    166                      ((and (not compilation-failure-p)
     167                     ((and (not internal-compiler-errors)
    167168                           compiled-function)
    168169                      (setf form
     
    177178                      ;; FIXME Should be a warning or error of some sort...
    178179                      (format *error-output*
    179                               "; Unable to compile function ~A~%" name)
    180                       (when compilation-failure-p
    181                         (format *error-output*
    182                                 "; ~A~%" compilation-failure-p))
     180                              "; Unable to compile function ~A.  Using interpreted form instead.~%" name)
     181                      (when internal-compiler-errors
     182                        (dolist (e internal-compiler-errors)
     183                          (format *error-output*
     184                                  "; ~A~%" e)))
    183185                      (let ((precompiled-function
    184186                             (precompiler:precompile-form expr nil
  • trunk/abcl/src/org/armedbear/lisp/compiler-error.lisp

    r12620 r12622  
    5757
    5858(defun internal-compiler-error (format-control &rest format-arguments)
    59   (signal 'internal-compiler-error
    60          :format-control format-control
    61          :format-arguments format-arguments))
     59  (cerror "Eventually use interpreted form instead"
     60          'internal-compiler-error
     61          :format-control format-control
     62          :format-arguments format-arguments))
    6263
    6364(defun compiler-unsupported (format-control &rest format-arguments)
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12620 r12622  
    13421342      (when instruction-depth
    13431343        (unless (= (the fixnum instruction-depth) (the fixnum (+ depth instruction-stack)))
    1344           (format t "~&Stack inconsistency at index ~D: found ~S, expected ~S.~%"
    1345                    i instruction-depth (+ depth instruction-stack))
    1346           (internal-compiler-error "Stack inconsistency detected in ~A."
    1347                                    (compiland-name *current-compiland*)))
     1344          (internal-compiler-error
     1345           "Stack inconsistency detected in ~A at index ~D: found ~S, expected ~S."
     1346           (compiland-name *current-compiland*)
     1347           i instruction-depth (+ depth instruction-stack)))
    13481348        (return-from walk-code))
    13491349      (let ((opcode (instruction-opcode instruction)))
Note: See TracChangeset for help on using the changeset viewer.