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/constants64.s

    r527 r557  
    9393/* There's some room for expansion in non-array ivector space. */
    9494define_subtag(bignum,ivector_class_64_bit,0)
    95 define_subtag(macptr,ivector_class_64_bit,1)
    96 define_subtag(dead_macptr,ivector_class_64_bit,2)
    9795define_subtag(double_float,ivector_class_64_bit,3)
     96define_subtag(macptr,ivector_class_64_bit,5)
     97define_subtag(dead_macptr,ivector_class_64_bit,6)
    9898define_subtag(code_vector,ivector_class_32_bit,0)
    9999define_subtag(xcode_vector,ivector_class_32_bit,1)
    100100
    101 ;; Size doesn't matter for non-CL-array gvectors; I can't think of a good
    102 ;; reason to classify them in any particular way.  Let's put funcallable
    103 ;; things in the first slice by themselves, though it's not clear that
    104 ;; that helps FUNCALL much.
     101
     102
     103       
     104/*       
     105 Size doesn't matter for non-CL-array gvectors; I can't think of a good
     106 reason to classify them in any particular way.  Let's put funcallable
     107 things in the first slice by themselves, though it's not clear that
     108 that helps FUNCALL much.
     109*/       
    105110gvector_funcallable = fulltag_nodeheader_0
    106111       
     
    134139
    135140define_subtag(single_float,fulltag_imm_0,0)
    136 define_subtag(slot_unbound,fulltag_imm_0,1)
    137 slot_unbound_marker = subtag_slot_unbound
    138 define_subtag(illegal,fulltag_imm_0,2)
    139 illegal_marker = subtag_illegal
    140141
    141142define_subtag(go_tag,fulltag_imm_1,0)
    142143define_subtag(block_tag,fulltag_imm_1,1)
     144
    143145define_subtag(character,fulltag_imm_2,0)
     146                       
    144147define_subtag(unbound,fulltag_imm_3,0)
    145148unbound_marker = subtag_unbound
    146149undefined = unbound_marker
    147 define_subtag(no_thread_local_binding,fulltag_imm_3,1)
     150define_subtag(slot_unbound,fulltag_imm_3,1)
     151slot_unbound_marker = subtag_slot_unbound
     152define_subtag(illegal,fulltag_imm_3,2)
     153illegal_marker = subtag_illegal
     154define_subtag(no_thread_local_binding,fulltag_imm_3,3)
     155no_thread_local_binding_marker = subtag_no_thread_local_binding       
    148156
    149157       
Note: See TracChangeset for help on using the changeset viewer.