Changeset 7736

Timestamp:

Nov 24, 2007, 6:32:26 PM (17 years ago)

Author:

Gary Byers

Message:

break->compiler-bug.

File:

• branches/working-0711/ccl/lib/nfcomp.lisp (modified) (6 diffs)

branches/working-0711/ccl/lib/nfcomp.lisp

@@ -1315 +1315 @@
       (let* ((nb (ash (+ n 7) -3)))
         (fasl-out-ivect v 0 nb))
-      (break "need to byte-swap ~a" v))))
+      (compiler-bug "need to byte-swap ~a" v))))
 
 (defun fasl-dump-8-bit-ivector (v op)
@@ -1358 +1358 @@
       (let* ((nb (ash n 3)))
         (fasl-out-ivect v 0 nb))
-      (break "need to byte-swap ~a" v))))
+      (compiler-bug "need to byte-swap ~a" v))))
 
 (defun fasl-dump-double-float-vector (v)
@@ -1368 +1368 @@
         (fasl-out-ivect v (- target::misc-dfloat-offset
                              target::misc-data-offset) nb))
-      (break "need to byte-swap ~a" v))))
+      (compiler-bug "need to byte-swap ~a" v))))
 
 ;;; This is used to dump functions and "xfunctions".
@@ -1378 +1378 @@
   (if (and (not (eq *fasl-backend* *host-backend*))
            (typep f 'function))
-    (break "Dumping a native function constant ~s during cross-compilation." f))
+    (compiler-bug "Dumping a native function constant ~s during cross-compilation." f))
   (if (and (= (typecode f) target::subtag-xfunction)
            (= (typecode (uvref f 0)) target::subtag-u8-vector))
@@ -1392 +1392 @@
   (if (and (not (eq *fasl-backend* *host-backend*))
            (typep f 'function))
-    (break "Dumping a native function constant ~s during cross-compilation." f))
+    (compiler-bug "Dumping a native function constant ~s during cross-compilation." f))
   (if (and (= (typecode f) target::subtag-xfunction)
            (= (typecode (uvref f 0)) target::subtag-u8-vector))
@@ -1441 +1441 @@
   (if (and (not (eq *fasl-backend* *host-backend*))
            (typep c 'code-vector))
-    (break "Dumping a native code-vector constant ~s during cross-compilation." c))
+    (compiler-bug "Dumping a native code-vector constant ~s during cross-compilation." c))
   (let* ((n (uvsize c)))
     (fasl-out-opcode $fasl-code-vector c)