Changeset 9068


Ignore:
Timestamp:
Apr 8, 2008, 11:15:40 AM (11 years ago)
Author:
gb
Message:

PPC2-REF-SYMBOL-VALUE: force boundp checks unless *ppc2-reckless* (same
policy as x86; the per-thread binding lookup is generally more expensive
than boundp trap these days.)
Unless skipping boundp check, don't ignore unused result (so we can
error when safety is 3, mostly.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r8752 r9068  
    43184318
    43194319
    4320 (defun ppc2-ref-symbol-value (seg vreg xfer sym check-boundp) 
     4320(defun ppc2-ref-symbol-value (seg vreg xfer sym check-boundp)
     4321  (declare (ignorable check-boundp))
     4322  (setq check-boundp (not *ppc2-reckless*))
    43214323  (with-ppc-local-vinsn-macros (seg vreg xfer)
    4322     (when vreg
     4324    (when (or check-boundp vreg)
    43234325        (if (eq sym '*interrupt-level*)
    43244326          (ensuring-node-target (target vreg)
Note: See TracChangeset for help on using the changeset viewer.