Changeset 13421


Ignore:
Timestamp:
Jan 29, 2010, 12:36:50 PM (10 years ago)
Author:
gb
Message:

PPC64 %INIT-MISC fixes.

File:
1 edited

Legend:

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

    r13067 r13421  
    222222  (cmpdi cr1 imm1 ppc64::ivector-class-32-bit)
    223223  (cmpdi cr2 imm1 ppc64::ivector-class-8-bit)
    224   (cmpwi cr7 imm0 ppc64::tag-fixnum)
     224  (cmpdi cr7 imm0 ppc64::tag-fixnum)
     225  (cmpdi cr5 imm0 ppc64::subtag-bignum)
    225226  (beq cr0 @64)
    226227  (beq cr1 @32)
     
    234235  ; Bit vector.
    235236  (cmpldi cr0 val '1)
    236   (la imm3 31 imm3)
    237   (srdi imm3 imm3 5)
     237  (la imm3 63 imm3)
     238  (srdi imm3 imm3 6)
    238239  (unbox-fixnum imm0 val)
    239240  (neg imm0 imm0)
    240   (ble+ cr0 @set-32)
     241  (ble+ cr0 @set-64)
    241242  @bad
    242243  (li arg_x '#.$xnotelt)
     
    250251  (beq cr3 @fixnum)
    251252  (beq cr1 @dfloat)
    252   (beq cr2 @u64)
     253  (bne cr2 @u64)
    253254  ;; s64
    254255  (unbox-fixnum imm0 val)
    255256  (beq cr7 @set-64)                     ; all fixnums are (SIGNED-BYTE 64)
    256   (bne cr3 @bad)                        ; as are 2-digit bignums
     257  (bne cr5 @bad)                        ; as are 2-digit bignums
    257258  (getvheader imm1 val)
    258259  (ld imm0 ppc64::misc-data-offset val)
     
    269270  @u64
    270271  (cmpdi cr2 val 0)
     272  (unbox-fixnum imm0 val)
    271273  (bne cr7 @u64-maybe-bignum)
    272274  (bge cr2 @set-64)
    273275  (b @bad)
    274276  @u64-maybe-bignum
    275   (bne cr3 @bad)
     277  (bne cr5 @bad)
    276278  (ld imm0 ppc64::misc-data-offset val)
    277279  (getvheader imm1 val)
     
    280282  (cmpdi cr3 imm1 ppc64::three-digit-bignum-header)
    281283  (cmpdi cr0 imm0 0)
    282   (beq cr2 @u32-two-digit)
     284  (beq cr2 @u64-two-digit)
    283285  (bne cr3 @bad)
    284286  (lwz imm1 (+ 8 ppc64::misc-data-offset) val)
    285   (cmpwi imm0 0)
     287  (cmpwi imm1 0)
    286288  (beq @set-64)
    287289  (b @bad)
    288   @u32-two-digit
     290  @u64-two-digit
    289291  (bgt cr0 @set-64)
    290292  (b @bad)
Note: See TracChangeset for help on using the changeset viewer.