Changeset 7715


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

break->compiler-bug.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/PPC/ppc2.lisp

    r7615 r7715  
    4141  (if (eq (acode-operator x) (%nx1-operator immediate))
    4242    (cadr x)
    43     (error "~&Bug: not an immediate: ~s" x)))
     43    (compiler-bug "~&Bug: not an immediate: ~s" x)))
    4444
    4545(defmacro with-ppc-p2-declarations (declsform &body body)
     
    237237       ((eq cell bottom) res)
    238238    (if (null cell)
    239       (error "Horrible compiler bug.")
     239      (compiler-bug "Horrible compiler bug.")
    240240      (if (eq (lcell-kind cell) kind)
    241241        (push cell res)))))
     
    570570                   (if lap-label
    571571                     (lap-label-address lap-label)
    572                      (error "Missing or bad ~s label: ~s"
     572                     (compiler-bug "Missing or bad ~s label: ~s"
    573573                       (if start-p 'start 'end) sym)))))
    574574          (destructuring-bind (var sym startlab endlab) info
     
    10081008              (ppc2-form seg nil nil f ))
    10091009            (apply fn seg vreg xfer (%cdr form)))
    1010           (error "ppc2-form ? ~s" form))))))
     1010          (compiler-bug "ppc2-form ? ~s" form))))))
    10111011
    10121012;;; dest is a float reg - form is acode
    10131013(defun ppc2-form-float (seg freg xfer form)
    10141014  (declare (ignore xfer))
    1015   (when (or (nx-null form)(nx-t form))(error "ppc2-form to freg ~s" form))
     1015  (when (or (nx-null form)(nx-t form))(compiler-bug "ppc2-form to freg ~s" form))
    10161016  (when (and (= (get-regspec-mode freg) hard-reg-class-fpr-mode-double)
    10171017             (ppc2-form-typep form 'double-float))
     
    10221022             (setq fn (svref *ppc2-specials* (%ilogand #.operator-id-mask (acode-operator form)))))     
    10231023      (apply fn seg freg nil (%cdr form))
    1024       (error "ppc2-form ? ~s" form))))
     1024      (compiler-bug "ppc2-form ? ~s" form))))
    10251025
    10261026
     
    11441144(defun ppc2-set-NARGS (seg n)
    11451145  (if (> n call-arguments-limit)
    1146     (error "~s exceeded." call-arguments-limit)
     1146    (compiler-bug "~s exceeded." call-arguments-limit)
    11471147    (with-ppc-local-vinsn-macros (seg)
    11481148      (! set-nargs n))))
     
    12741274  (with-ppc-local-vinsn-macros (seg)
    12751275    (if (target-arch-case
    1276          (:ppc32 (error "Bug!"))
     1276         (:ppc32 (compiler-bug "Bug!"))
    12771277         (:ppc64 *ppc2-open-code-inline*))
    12781278      (! s64->integer node-dest s64-src)
     
    12981298  (with-ppc-local-vinsn-macros (seg)
    12991299    (if (target-arch-case
    1300          (:ppc32 (error "Bug!"))
     1300         (:ppc32 (compiler-bug "Bug!"))
    13011301         (:ppc64 *ppc2-open-code-inline*))
    13021302      (! u64->integer node-dest u64-src)
     
    23552355      (when tail-p
    23562356        #-no-compiler-bugs
    2357         (unless (or immp symp lfunp (typep fn 'lreg) (fixnump fn)) (error "Well, well, well.  How could this have happened ?"))
     2357        (unless (or immp symp lfunp (typep fn 'lreg) (fixnump fn)) (compiler-bug "Well, well, well.  How could this have happened ?"))
    23582358        (when a-reg
    23592359          (ppc2-copy-register seg destreg a-reg))
     
    27522752               ($ ppc::arg_z)
    27532753               (make-wired-lreg ppc::imm0 :mode mode)))
    2754             (t (error "Unknown register class for reg ~s" reg))))))
     2754            (t (compiler-bug "Unknown register class for reg ~s" reg))))))
    27552755
    27562756;;; The compiler often generates superfluous pushes & pops.  Try to
     
    30863086          (let* ((root-var (nx-root-var var))
    30873087                 (other-guy
    3088                   (dolist (v own-inhvars #|(error "other guy not found")|# root-var)
     3088                  (dolist (v own-inhvars #|(compiler-bug "other guy not found")|# root-var)
    30893089                    (when (eq root-var (nx-root-var v)) (return v)))))
    30903090            (push (make-acode (%nx1-operator inherited-arg) other-guy) inhforms)))
     
    33223322             (dest-crf (backend-ea-physical-reg dest hard-reg-class-crf)))
    33233323        (if (and dest-gpr (eql dest-gpr ppc::rzero))
    3324           (break "Bad destination register: ~s" dest-gpr))
     3324          (compiler-bug "Bad destination register: ~s" dest-gpr))
    33253325        (if (null src)
    33263326          (if dest-gpr
     
    37883788      (progn
    37893789        (when (%ilogbitp $vbitpunted bits)
    3790           (error "bind-var: var ~s was punted" var))
     3790          (compiler-bug "bind-var: var ~s was punted" var))
    37913791        (when make-vcell
    37923792          (with-node-temps () (vcell closed)
     
    38203820                   (not (logbitp $vbitpunted bits))))
    38213821      (let ((endnote (%car (%cdddr (assq var *ppc2-recorded-symbols*)))))
    3822         (unless endnote (error "ppc2-close-var for ~s ?" (var-name var)))
     3822        (unless endnote (compiler-bug "ppc2-close-var for ~s ?" (var-name var)))
    38233823        (setf (vinsn-note-class endnote) :end-variable-scope)
    38243824        (append-dll-node (vinsn-note-label endnote) seg)))))
     
    50145014      (declare (fixnum numopt nkeys numreq vtotal doadlword))
    50155015      (when (or (> numreq 255) (> numopt 255) (> nkeys 255))
    5016         (error "A lambda list can contain a maximum of 255 required, 255 optional, and 255 keywords args"))
     5016        (compiler-bug "A lambda list can contain a maximum of 255 required, 255 optional, and 255 keywords args"))
    50175017      (if (fixnump listform)
    50185018        (ppc2-store-ea seg listform listreg)
     
    51065106               (cond ((typep valform 'keyword)
    51075107                      (or (assq valform unique-labels)
    5108                           (error "unknown vinsn label ~s" valform)))
     5108                          (compiler-bug "unknown vinsn label ~s" valform)))
    51095109                     ((atom valform) valform)
    51105110                     ((atom (cdr valform)) (svref vp (car valform)))
     
    51435143                         (unless (eval-predicate pred)
    51445144                           (return nil))))
    5145                  (t (error "Unknown predicate: ~s" f))))
     5145                 (t (compiler-bug "Unknown predicate: ~s" f))))
    51465146             (expand-form (f)
    51475147               (if (keywordp f)
    51485148                 (emit-lap-label (assq f unique-labels))
    51495149                 (if (atom f)
    5150                    (error "Invalid form in vinsn body: ~s" f)
     5150                   (compiler-bug "Invalid form in vinsn body: ~s" f)
    51515151                   (if (atom (car f))
    51525152                     (expand-insn-form f)
     
    55255525(defppc2 ppc2-%primitive %primitive (seg vreg xfer &rest ignore)
    55265526  (declare (ignore seg vreg xfer ignore))
    5527   (error "You're probably losing big: using %primitive ..."))
     5527  (compiler-bug "You're probably losing big: using %primitive ..."))
    55285528
    55295529(defppc2 ppc2-consp consp (seg vreg xfer cc form)
     
    59915991            (and nil (format t "~& could use cell ~s for var ~s" cell (var-name varnode)))
    59925992            (if (logbitp ppc2-debug-verbose-bit *ppc2-debug-mask*)
    5993               (break "wrong ea for lcell for var ~s: got ~d, expected ~d"
     5993              (compiler-bug "wrong ea for lcell for var ~s: got ~d, expected ~d"
    59945994                     (var-name varnode) (calc-lcell-offset cell) (logand ea-or-form #xffff))))
    59955995          (if (not cell)
     
    59995999       
    60006000        (unless (or (typep ea-or-form 'lreg) (fixnump ea-or-form))
    6001           (break "bogus ref to var ~s (~s) : ~s " varnode (var-name varnode) ea-or-form))
     6001          (compiler-bug "bogus ref to var ~s (~s) : ~s " varnode (var-name varnode) ea-or-form))
    60026002        (ppc2-do-lexical-reference seg vreg ea-or-form)
    60036003        (^)))))
     
    60056005(defppc2 ppc2-setq-lexical setq-lexical (seg vreg xfer varspec form)
    60066006  (let* ((ea (var-ea varspec)))
    6007     ;(unless (fixnump ea) (break "setq lexical is losing BIG"))
     6007    ;(unless (fixnump ea) (compiler-bug "setq lexical is losing BIG"))
    60086008    (let* ((valreg (ppc2-one-untargeted-reg-form seg form (if (and (register-spec-p ea)
    60096009                                                                   (or (null vreg) (eq ea vreg)))
     
    60256025        (if (= class hard-reg-class-crf)
    60266026          (progn
    6027             ;(break "Would have clobbered a GPR!")
     6027            ;(compiler-bug "Would have clobbered a GPR!")
    60286028            (ppc2-branch seg (ppc2-cd-true xfer) nil))
    60296029          (progn
     
    78477847    (progn
    78487848      (unless (logbitp (hard-regspec-value vreg) ppc-imm-regs)
    7849         (error "I give up.  When will I get this right ?"))
     7849        (compiler-bug "I give up.  When will I get this right ?"))
    78507850      (let* ((natural-reg (ppc2-one-targeted-reg-form seg
    78517851                                                      form
Note: See TracChangeset for help on using the changeset viewer.