Changeset 7736


Ignore:
Timestamp:
Nov 25, 2007, 2:32:26 AM (12 years ago)
Author:
gb
Message:

break->compiler-bug.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r6505 r7736  
    13151315      (let* ((nb (ash (+ n 7) -3)))
    13161316        (fasl-out-ivect v 0 nb))
    1317       (break "need to byte-swap ~a" v))))
     1317      (compiler-bug "need to byte-swap ~a" v))))
    13181318
    13191319(defun fasl-dump-8-bit-ivector (v op)
     
    13581358      (let* ((nb (ash n 3)))
    13591359        (fasl-out-ivect v 0 nb))
    1360       (break "need to byte-swap ~a" v))))
     1360      (compiler-bug "need to byte-swap ~a" v))))
    13611361
    13621362(defun fasl-dump-double-float-vector (v)
     
    13681368        (fasl-out-ivect v (- target::misc-dfloat-offset
    13691369                             target::misc-data-offset) nb))
    1370       (break "need to byte-swap ~a" v))))
     1370      (compiler-bug "need to byte-swap ~a" v))))
    13711371
    13721372;;; This is used to dump functions and "xfunctions".
     
    13781378  (if (and (not (eq *fasl-backend* *host-backend*))
    13791379           (typep f 'function))
    1380     (break "Dumping a native function constant ~s during cross-compilation." f))
     1380    (compiler-bug "Dumping a native function constant ~s during cross-compilation." f))
    13811381  (if (and (= (typecode f) target::subtag-xfunction)
    13821382           (= (typecode (uvref f 0)) target::subtag-u8-vector))
     
    13921392  (if (and (not (eq *fasl-backend* *host-backend*))
    13931393           (typep f 'function))
    1394     (break "Dumping a native function constant ~s during cross-compilation." f))
     1394    (compiler-bug "Dumping a native function constant ~s during cross-compilation." f))
    13951395  (if (and (= (typecode f) target::subtag-xfunction)
    13961396           (= (typecode (uvref f 0)) target::subtag-u8-vector))
     
    14411441  (if (and (not (eq *fasl-backend* *host-backend*))
    14421442           (typep c 'code-vector))
    1443     (break "Dumping a native code-vector constant ~s during cross-compilation." c))
     1443    (compiler-bug "Dumping a native code-vector constant ~s during cross-compilation." c))
    14441444  (let* ((n (uvsize c)))
    14451445    (fasl-out-opcode $fasl-code-vector c)
Note: See TracChangeset for help on using the changeset viewer.