Changeset 15097


Ignore:
Timestamp:
Nov 29, 2011, 6:03:03 PM (8 years ago)
Author:
gb
Message:

MISC-REF-C-BIT, MISC-REF-C-BIT-FIXNUM: repeat after me: "this is the
easy case, and remembering to shift a constant word index left 2 bits
isn't rocket science."

Export TARGET-FASL-VERSION and note that fact.

Location:
trunk/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm-vinsns.lisp

    r15093 r15097  
    359359      (idx :u32const))
    360360     ())
    361   (ldr dest (:@ v (:$ (:apply + arm::misc-data-offset (:apply ash idx -5)))))
     361  (ldr dest (:@ v (:$ (:apply + arm::misc-data-offset (:apply ash (:apply ash idx -5) arm::word-shift)))))
    362362  (mov dest (:lsr dest (:$ (:apply logand idx #x1f))))
    363363  (and dest dest (:$ 1)))
     
    368368      (idx :u32const))
    369369     ((temp :u32)))
    370   (ldr temp (:@ v (:$ (:apply + arm::misc-data-offset (:apply ash idx -5)))))
     370  (ldr temp (:@ v (:$ (:apply + arm::misc-data-offset (:apply ash (:apply ash idx -5) arm::word-shift)))))
    371371  (mov temp (:ror temp (:$ (:apply logand #x1f (:apply - (:apply logand idx #x1f) arm::fixnumshift)))))
    372372  (and dest temp (:$ arm::fixnumone)))
     
    20322032      (default :label))
    20332033     ((temp :s32)))
     2034  (:drain-constant-pool)
    20342035  (tst reg (:$ arm::fixnummask))
    20352036  (mov idx (:asr reg (:$  arm::fixnumshift)))
     
    26342635                                ((tempa :u32)
    26352636                                 (tempb :u32)))
    2636   (mov tempb (:$ #x7f00))
     2637  (movw tempb (:$ #x7fff))
    26372638  (mov tempa (:lsr src (:$ (+ arm::fixnumshift 1))))
    2638   (orr tempb tempb (:$ #xff))
    26392639  (cmp tempa tempb)
    26402640  (mov tempa (:lsr src (:$ (+ arm::fixnumshift 11))))
  • trunk/source/lib/ccl-export-syms.lisp

    r14831 r15097  
    295295     *always-eval-user-defvars*
    296296     *disassemble-verbose*
     297     target-fasl-version
    297298
    298299                                        ;These 3 need to be set by the user in order for the correspondingly named
  • trunk/source/lib/nfcomp.lisp

    r15095 r15097  
    14921492      (error "~a not defined in target package ~s." name package))
    14931493    (logior #xff00 (logand #xff (symbol-value sym)))))
    1494  
     1494
     1495;;; This is an exported, public interface.
    14951496(defun target-fasl-version ()
    14961497  (target-symbol-value "FASL-VERSION"))
Note: See TracChangeset for help on using the changeset viewer.