Changeset 12622

Timestamp:

04/18/10 09:26:22 (13 years ago)

Author:

Mark Evenson

Message:

Restore buildable trunk arising from ASDF2 compilation.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• compile-file.lisp (modified) (3 diffs)
• compiler-error.lisp (modified) (1 diff)
• compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -146 +146 @@
                                  ,@decls (block ,block-name ,@body)))
                         (classfile (next-classfile-name))
-                        (compilation-failure-p nil)
+                        (internal-compiler-errors nil)
                         (result (with-open-file
             (f classfile
@@ -155 +155 @@
                                       ((internal-compiler-error
                                         #'(lambda (e)
-                                            (setf compilation-failure-p e)
+                                            (push e internal-compiler-errors)
                                             (continue))))
                                     (report-error
                                      (jvm:compile-defun name expr nil
                                                         classfile f nil)))))
-                        (compiled-function (and (not compilation-failure-p)
-                                                (verify-load classfile))))
+                        (compiled-function (if (not internal-compiler-errors)
+                                               (verify-load classfile)
+                                               nil)))
        (declare (ignore result))
                    (cond
-                     ((and (not compilation-failure-p)
+                     ((and (not internal-compiler-errors)
                            compiled-function)
                       (setf form
@@ -177 +178 @@
                       ;; FIXME Should be a warning or error of some sort...
                       (format *error-output*
-                              "; Unable to compile function ~A~%" name)
-                      (when compilation-failure-p
-                        (format *error-output*
-                                "; ~A~%" compilation-failure-p))
+                              "; Unable to compile function ~A.  Using interpreted form instead.~%" name)
+                      (when internal-compiler-errors
+                        (dolist (e internal-compiler-errors)
+                          (format *error-output*
+                                  "; ~A~%" e)))
                       (let ((precompiled-function
                              (precompiler:precompile-form expr nil

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

@@ -57 +57 @@
 
 (defun internal-compiler-error (format-control &rest format-arguments)
-  (signal 'internal-compiler-error
-         :format-control format-control
-         :format-arguments format-arguments))
+  (cerror "Eventually use interpreted form instead" 
+          'internal-compiler-error
+          :format-control format-control
+          :format-arguments format-arguments))
 
 (defun compiler-unsupported (format-control &rest format-arguments)

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

@@ -1342 +1342 @@
       (when instruction-depth
         (unless (= (the fixnum instruction-depth) (the fixnum (+ depth instruction-stack)))
-          (format t "~&Stack inconsistency at index ~D: found ~S, expected ~S.~%"
-                   i instruction-depth (+ depth instruction-stack))
-          (internal-compiler-error "Stack inconsistency detected in ~A." 
-                                   (compiland-name *current-compiland*)))
+          (internal-compiler-error 
+           "Stack inconsistency detected in ~A at index ~D: found ~S, expected ~S." 
+           (compiland-name *current-compiland*)
+           i instruction-depth (+ depth instruction-stack)))
         (return-from walk-code))
       (let ((opcode (instruction-opcode instruction)))