Ignore:
Timestamp:
Feb 22, 2004, 1:27:13 AM (16 years ago)
Author:
gb
Message:

PPC64 changes (some of them rather suspect ...). 32-bit kernel may be a
little funky ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/macros.s

    r528 r557  
    5959        ldx $@
    6060        ])
     61        define([ldru],[
     62        ldu $@
     63        ])
    6164        define([str],[
    6265        std $@
    6366        ])
    6467        define([strx],[
    65         stdx %@
     68        stdx $@
    6669        ])
    6770        define([stru],[
     
    102105        ])
    103106        define([srari],[
    104         sradi #@
     107        sradi $@
    105108        ])
    106109        define([srri],[
     
    125128        define([ldrx],[
    126129        lwzx $@
     130        ])
     131        define([ldru],[
     132        lwzu $@
    127133        ])
    128134        define([str],[
     
    169175        ])
    170176        define([srari],[
    171         srawi #@
     177        srawi $@
    172178        ])
    173179        define([srri],[
     
    229235
    230236define([box_fixnum],[
    231         slwi $1,$2,fixnumshift])
     237        slri($1,$2,fixnumshift)])
    232238
    233239define([unbox_fixnum],[
    234         srawi $1,$2,fixnumshift])
     240        srari($1,$2,fixnumshift)])
    235241
    236242define([loaddf],[
     
    294300        /* "Length" is fixnum element count */
    295301define([header_length],[
    296         rlwinm $1,$2,nbits_in_word-(num_subtag_bits-nfixnumtagbits),(num_subtag_bits-nfixnumtagbits),31-nfixnumtagbits])
     302ifdef([PPC64],[
     303        clrlsldi $1,$2,nbits_in_word-num_subtag_bits,fixnum_shift
     304        ],[               
     305        rlwinm $1,$2,nbits_in_word-(num_subtag_bits-nfixnumtagbits),(num_subtag_bits-nfixnumtagbits),31-nfixnumtagbits
     306        ])
     307])       
    297308
    298309
Note: See TracChangeset for help on using the changeset viewer.