Changeset 7718


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

break->compiler-bug.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x862.lisp

    r7636 r7718  
    4848  (if (eq (acode-operator x) (%nx1-operator immediate))
    4949    (cadr x)
    50     (error "~&Bug: not an immediate: ~s" x)))
     50    (compiler-bug "not an immediate: ~s" x)))
    5151
    5252(defmacro with-x86-p2-declarations (declsform &body body)
     
    251251       ((eq cell bottom) res)
    252252    (if (null cell)
    253       (error "Horrible compiler bug.")
     253      (compiler-bug "Horrible compiler bug.")
    254254      (if (eq (lcell-kind cell) kind)
    255255        (push cell res)))))
     
    347347(defun x862-reverse-cr-bit (cr-bit)
    348348  (or (svref *x862-reversed-cr-bits* cr-bit)
    349       (error "Can't reverse CR bit ~d" cr-bit)))
     349      (compiler-bug "Can't reverse CR bit ~d" cr-bit)))
    350350
    351351
     
    657657                    (if lap-label
    658658                      (x86-lap-label-address lap-label)
    659                       (error "Missing or bad ~s label: ~s"
    660                              (if start-p 'start 'end) sym)))
     659                      (compiler-bug "Missing or bad ~s label: ~s"
     660                                    (if start-p 'start 'end) sym)))
    661661                  x8664::fulltag-function)))
    662662          (destructuring-bind (var sym startlab endlab) info
     
    11001100              (x862-form seg nil nil f ))
    11011101            (apply fn seg vreg xfer (%cdr form)))
    1102           (error "x862-form ? ~s" form))))))
     1102          (compiler-bug "x862-form ? ~s" form))))))
    11031103
    11041104;;; dest is a float reg - form is acode
    11051105(defun x862-form-float (seg freg xfer form)
    11061106  (declare (ignore xfer))
    1107   (when (or (nx-null form)(nx-t form))(error "x862-form to freg ~s" form))
     1107  (when (or (nx-null form)(nx-t form))(compiler-bug "x862-form to freg ~s" form))
    11081108  (when (and (= (get-regspec-mode freg) hard-reg-class-fpr-mode-double)
    11091109             (x862-form-typep form 'double-float))
     
    11141114             (setq fn (svref *x862-specials* (%ilogand #.operator-id-mask (acode-operator form)))))     
    11151115      (apply fn seg freg nil (%cdr form))
    1116       (error "x862-form ? ~s" form))))
     1116      (compiler-bug "x862-form ? ~s" form))))
    11171117
    11181118
     
    24832483      (when tail-p
    24842484        #-no-compiler-bugs
    2485         (unless (or immp symp lfunp (typep fn 'lreg) (fixnump fn)) (error "Well, well, well.  How could this have happened ?"))
     2485        (unless (or immp symp lfunp (typep fn 'lreg) (fixnump fn)) (compiler-bug "Well, well, well.  How could this have happened ?"))
    24862486        (when a-reg
    24872487          (x862-copy-register seg destreg a-reg))
     
    25052505          (if (x862-mvpass-p xfer)
    25062506            (let* ((call-reg (if symp ($ x8664::fname) ($ x8664::temp0))))
    2507               (unless mvpass-label (error "bug: no label for mvpass"))
     2507              (unless mvpass-label (compiler-bug "no label for mvpass"))
    25082508              (if label-p
    25092509                (x862-copy-register seg call-reg ($ x8664::fn))
     
    28772877               ($ x8664::arg_z)
    28782878               (make-wired-lreg x8664::imm0 :mode mode)))
    2879             (t (error "Unknown register class for reg ~s" reg))))))
     2879            (t (compiler-bug "Unknown register class for reg ~s" reg))))))
    28802880
    28812881;;; The compiler often generates superfluous pushes & pops.  Try to
     
    39633963      (progn
    39643964        (when (%ilogbitp $vbitpunted bits)
    3965           (error "bind-var: var ~s was punted" var))
     3965          (compiler-bug "bind-var: var ~s was punted" var))
    39663966        (when make-vcell
    39673967          (with-node-target (x8664::allocptr) closed
     
    39993999                   (not (logbitp $vbitpunted bits))))
    40004000      (let ((endnote (%car (%cdddr (assq var *x862-recorded-symbols*)))))
    4001         (unless endnote (error "x862-close-var for ~s" (var-name var)))
     4001        (unless endnote (compiler-bug "x862-close-var for ~s" (var-name var)))
    40024002        (setf (vinsn-note-class endnote) :end-variable-scope)
    40034003        (append-dll-node (vinsn-note-label endnote) seg)))))
     
    47084708                           (x862-decode-stack (aref *x862-undo-stack* target-catch))))
    47094709    (if (%i< 0 (setq diff (%i- current-cstack target-cstack)))
    4710       (error "Bug: adjust foreign stack ?"))
     4710      (compiler-bug "Bug: adjust foreign stack ?"))
    47114711    (if (%i< 0 (setq diff (%i- current-vstack target-vstack)))
    47124712      (with-x86-local-vinsn-macros (seg)
     
    49834983                  (incf num-c-frames))
    49844984                (if (%i> cstack target-cstack)
    4985                   (error "bug: adjust foreign stack ??"))
     4985                  (compiler-bug "bug: adjust foreign stack ??"))
    49864986                ;; else what's going on? $sp-stkcons, for one thing
    49874987                (setq cstack target-cstack)))
     
    50245024      (declare (fixnum numopt nkeys numreq vtotal doadlword))
    50255025      (when (or (> numreq 255) (> numopt 255) (> nkeys 255))
    5026         (error "A lambda list can contain a maximum of 255 required, 255 optional, and 255 keywords args"))
     5026        (compiler-bug "A lambda list can contain a maximum of 255 required, 255 optional, and 255 keywords args"))
    50275027      (if (fixnump listform)
    50285028        (x862-store-ea seg listform argreg)
     
    52675267                        (backend-lisp-context-register *target-backend*)
    52685268                        (or (assq valform unique-labels)
    5269                             (error
     5269                            (compiler-bug
    52705270                             "unknown vinsn label ~s" valform))))
    52715271                     ((atom valform) valform)
     
    53175317                         (unless (eval-predicate pred)
    53185318                           (return nil))))
    5319                  (t (error "Unknown predicate: ~s" f))))
     5319                 (t (compiler-bug "Unknown predicate: ~s" f))))
    53205320             (expand-pseudo-op (f)
    53215321               (destructuring-bind (directive arg) f
     
    53455345                         (:quad (frag-list-push-64 frag-list 0)
    53465346                                (setq reloctype :expr64))
    5347                          ((:align :talign) (error "~s expression ~s not constant" directive arg)))
     5347                         ((:align :talign) (compiler-bug "~s expression ~s not constant" directive arg)))
    53485348                       (when reloctype
    53495349                         (push
     
    53585358                 (emit-x86-lap-label frag-list (assq f unique-labels))
    53595359                 (if (atom f)
    5360                    (error "Invalid form in vinsn body: ~s" f)
     5360                   (compiler-bug "Invalid form in vinsn body: ~s" f)
    53615361                   (if (atom (car f))
    53625362                     (if (keywordp (car f))
     
    57405740(defx862 x862-%primitive %primitive (seg vreg xfer &rest ignore)
    57415741  (declare (ignore seg vreg xfer ignore))
    5742   (error "You're probably losing big: using %primitive ..."))
     5742  (compiler-bug "You're probably losing big: using %primitive ..."))
    57435743
    57445744(defx862 x862-consp consp (seg vreg xfer cc form)
     
    62256225            (and nil (format t "~& could use cell ~s for var ~s" cell (var-name varnode)))
    62266226            (if (logbitp x862-debug-verbose-bit *x862-debug-mask*)
    6227               (break "wrong ea for lcell for var ~s: got ~d, expected ~d"
    6228                      (var-name varnode) (calc-lcell-offset cell) (logand ea-or-form #xffff))))
     6227              (compiler-bug "wrong ea for lcell for var ~s: got ~d, expected ~d"
     6228                            (var-name varnode) (calc-lcell-offset cell) (logand ea-or-form #xffff))))
    62296229          (if (not cell)
    62306230            (when (memory-spec-p ea-or-form)
    62316231              (if (logbitp x862-debug-verbose-bit *x862-debug-mask*)
    6232                 (format t "~& no lcell for ~s." (var-name varnode))))))
    6233        
     6232                (compiler-bug "no lcell for ~s." (var-name varnode))))))
    62346233        (unless (or (typep ea-or-form 'lreg) (fixnump ea-or-form))
    6235           (break "bogus ref to var ~s (~s) : ~s " varnode (var-name varnode) ea-or-form))
     6234          (compiler-bug "bogus ref to var ~s (~s) : ~s " varnode (var-name varnode) ea-or-form))
    62366235        (x862-do-lexical-reference seg vreg ea-or-form)
    62376236        (^)))))
     
    62396238(defx862 x862-setq-lexical setq-lexical (seg vreg xfer varspec form)
    62406239  (let* ((ea (var-ea varspec)))
    6241     ;(unless (fixnump ea) (break "setq lexical is losing BIG"))
     6240    ;(unless (fixnump ea) compiler-bug "setq lexical is losing BIG"))
    62426241    (let* ((valreg (x862-one-untargeted-reg-form seg form (if (and (register-spec-p ea)
    62436242                                                                   (or (null vreg) (eq ea vreg)))
     
    62686267        (if (= class hard-reg-class-crf)
    62696268          (progn
    6270             ;(break "Would have clobbered a GPR!")
     6269            ;compiler-bug "Would have clobbered a GPR!")
    62716270            (x862-branch seg (x862-cd-true xfer)))
    62726271          (progn
     
    80778076    (progn
    80788077      (unless (logbitp (hard-regspec-value vreg) *backend-imm-temps*)
    8079         (error "I give up.  When will I get this right ?"))
     8078        (compiler-bug "I give up.  When will I get this right ?"))
    80808079      (let* ((natural-reg (x862-one-targeted-reg-form seg
    80818080                                                      form
Note: See TracChangeset for help on using the changeset viewer.