Changeset 10040


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

Interrupt setup changes, natural stack sizes, thread entry prototype for
Windows.

File:
1 edited

Legend:

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

    r9808 r10040  
    129129    xpGPR(pcontext,REG_RDX) = 0;
    130130    xpGPR(pcontext,REG_R8) = (LispObj) icontext;
    131     xpGPR(pcontext,REG_RSP) = ((LispObj *)icontext)-1;
     131    xpGPR(pcontext,REG_RSP) = (LispObj)(((LispObj *)icontext)-1);
    132132    *(((LispObj *)icontext)-1) = (LispObj)raise_thread_interrupt;
    133     xpPC(pcontext) = (pc)interrupt_handler;
     133    xpPC(pcontext) = (LispObj)interrupt_handler;
    134134    SetThreadContext(hthread,pcontext);
    135135    ResumeThread(hthread);
     
    861861{
    862862  extern area
    863     *allocate_vstack_holding_area_lock(unsigned),
    864     *allocate_tstack_holding_area_lock(unsigned);
     863    *allocate_vstack_holding_area_lock(natural),
     864    *allocate_tstack_holding_area_lock(natural);
    865865  area *a;
    866866  int i;
     
    10971097
    10981098Ptr
    1099 create_stack(int size)
     1099create_stack(natural size)
    11001100{
    11011101  Ptr p;
     
    11111111
    11121112void *
    1113 allocate_stack(unsigned size)
     1113allocate_stack(natural size)
    11141114{
    11151115  return create_stack(size);
     
    11841184
    11851185#ifdef WINDOWS
    1186 uintptr_t
     1186unsigned
    11871187#else
    11881188void *
     
    12211221  tcr_cleanup(tcr);
    12221222#endif
     1223#ifdef WINDOWS
     1224  return 0;
     1225#else
    12231226  return NULL;
     1227#endif
    12241228}
    12251229
     
    13021306create_system_thread(size_t stack_size,
    13031307                     void* stackaddr,
    1304                      uintptr_t (*start_routine)(void *),
     1308                     unsigned (*start_routine)(void *),
    13051309                     void* param)
    13061310{
Note: See TracChangeset for help on using the changeset viewer.