Changeset 11574


Ignore:
Timestamp:
Jan 5, 2009, 12:40:02 AM (11 years ago)
Author:
gb
Message:

free_tcr_extra_segment() for win32.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/thread_manager.c

    r11548 r11574  
    11001100free_tcr_extra_segment(TCR *tcr)
    11011101{
     1102  win32_ldt_info info;
     1103  LDT_ENTRY *entry = &(info.entry);
     1104  DWORD *words = (DWORD *)entry;
     1105  int idx = tcr->ldt_selector >> 3;
     1106
     1107
     1108  info.offset = idx << 3;
     1109  info.size = sizeof(LDT_ENTRY);
     1110
     1111  words[0] = 0;
     1112  words[1] = 0;
     1113
     1114  WaitForSingleObject(ldt_lock,INFINITE);
     1115  NtSetInformationProcess(GetCurrentProcess(),10,&info,sizeof(info));
     1116  clr_bit(ldt_entries_in_use,idx);
     1117  ReleaseMutex(ldt_lock);
     1118
     1119  tcr->ldt_selector = 0;
    11021120}
    11031121
Note: See TracChangeset for help on using the changeset viewer.