Changeset 13912


Ignore:
Timestamp:
Jul 3, 2010, 4:48:50 AM (9 years ago)
Author:
gb
Message:

More ARM conditionalization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lib/nfcomp.lisp

    r13842 r13912  
    10721072  (unless (memq lfun refs)
    10731073    (let* ((lfv (function-to-function-vector lfun))
    1074            (start #+ppc-target 0 #+x86-target (%function-code-words lfun))
     1074           (start #-x86-target 0 #+x86-target (%function-code-words lfun))
    10751075           (refs (cons lfun refs)))
    10761076      (declare (dynamic-extent refs))
     
    12201220        ((#.x8664::fulltag-imm-0
    12211221          #.x8664::fulltag-imm-1))
     1222        #+arm-target
     1223        (#.arm::tag-imm)
    12221224        (t
    12231225         (if
     
    12341236                                 (ash 1 x8664::fulltag-immheader-1)
    12351237                                 (ash 1 x8664::fulltag-immheader-2))))
     1238           #+arm-target
     1239           (= (the fixnum (logand type-code arm::fulltagmask)) arm::fulltag-immheader)
    12361240           (case type-code
    12371241             (#.target::subtag-dead-macptr (fasl-unknown exp))
     
    12521256             (#+ppc-target #.target::subtag-symbol
    12531257              #+x8632-target #.target::subtag-symbol
    1254               #+x8664-target #.target::tag-symbol (fasl-scan-symbol exp))
     1258              #+x8664-target #.target::tag-symbol
     1259              #+arm-target #.target::subtag-symbol (fasl-scan-symbol exp))
    12551260             ((#.target::subtag-instance #.target::subtag-struct)
    12561261              (fasl-scan-user-form exp))
Note: See TracChangeset for help on using the changeset viewer.