Changeset 6830 for branches/ide-1.0


Ignore:
Timestamp:
Jul 17, 2007, 2:36:43 AM (13 years ago)
Author:
gb
Message:

Define more TCR_FLAG_BIT constants, including the new one for
foreign exceptions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ide-1.0/ccl/lisp-kernel/x86-constants64.s

    r6525 r6830  
    733733         _node(suspend)         /* semaphore for suspension notify   */
    734734         _node(resume)          /* sempahore for resumption notify   */
    735          _word(flags_pad)
    736          _word(flags)     
     735         _node(flags)     
    737736         _node(gc_context)
    738737         _node(termination_semaphore)
     
    749748TCR_FLAG_BIT_FOREIGN = fixnum_shift
    750749TCR_FLAG_BIT_AWAITING_PRESET = (fixnum_shift+1)
    751 
     750TCR_FLAG_BIT_ALT_SUSPEND = (fixnumshift+2)
     751TCR_FLAG_BIT_PROPAGATE_EXCEPTION = (fixnumshift+3)
     752TCR_FLAG_BIT_SUSPEND_ACK_PENDING = (fixnumshift+4)
     753TCR_FLAG_BIT_PENDING_EXCEPTION = (fixnumshift+5)
     754TCR_FLAG_BIT_FOREIGN_EXCEPTION = (fixnumshift+6)
     755       
    752756target_most_positive_fixnum = 1152921504606846975
    753757target_most_negative_fixnum = -1152921504606846976
Note: See TracChangeset for help on using the changeset viewer.