Changeset 10042


Ignore:
Timestamp:
Jul 15, 2008, 1:29:41 PM (11 years ago)
Author:
gb
Message:

Code which sets tcr->interrupt_pending: use LL suffix on constants
('long' is 32 bits on win64).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lisp-kernel/x86-exceptions.c

    r9807 r10042  
    13361336        ! stack_pointer_on_vstack_p(xpGPR(context,Isp), tcr) ||
    13371337        ! stack_pointer_on_vstack_p(xpGPR(context,Irbp), tcr)) {
    1338       tcr->interrupt_pending = (1L << (nbits_in_word - 1L));
     1338      tcr->interrupt_pending = (1LL << (nbits_in_word - 1LL));
    13391339    } else {
    13401340      LispObj cmain = nrs_CMAIN.vcell;
     
    15921592    area *vs = tcr->vs_area;
    15931593    BytePtr current_sp = (BytePtr) current_stack_pointer();
     1594    struct _TEB *teb = NtCurrentTeb();
    15941595   
    15951596    if ((current_sp >= vs->low) &&
Note: See TracChangeset for help on using the changeset viewer.