Changeset 14709


Ignore:
Timestamp:
Apr 12, 2011, 11:28:41 AM (10 years ago)
Author:
gb
Message:

%IVECTOR-FROM-MACPTR for PPC{32,64}

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/PPC/ppc-misc.lisp

    r13355 r14709  
    917917  (blr))
    918918
     919#+ppc32-target
     920(defppclapfunction %ivector-from-macptr ((ptr arg_z))
     921  (macptr-ptr imm0 ptr)
     922  (andi. imm1 imm0 target::node-size)
     923  (xori imm1 imm1 target::node-size)
     924  (addi imm0 imm0 (- target::fulltag-misc target::node-size))
     925  (sub arg_z imm0 imm1)
     926  (blr))
     927
     928#+ppc64-target
     929(defppclapfunction %ivector-from-macptr ((ptr arg_z))
     930  (macptr-ptr imm0 ptr)
     931  (addi arg_z imm0 (- target::fulltag-misc target::node-size))
     932  (blr))
     933
    919934(defppclapfunction get-saved-register-values ()
    920935  (vpush save0)
Note: See TracChangeset for help on using the changeset viewer.