Changeset 14279


Ignore:
Timestamp:
Sep 17, 2010, 10:49:14 PM (9 years ago)
Author:
gb
Message:

Someone got paid to leave xDisposeThread in the CCL kernel all these
years.

File:
1 edited

Legend:

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

    r14233 r14279  
    18081808}
    18091809
    1810 #ifdef WINDOWS
     1810
    18111811OSErr
    18121812xDisposeThread(TCR *tcr)
     
    18141814  return 0;                     /* I don't think that this is ever called. */
    18151815}
    1816 #else
    1817 OSErr
    1818 xDisposeThread(TCR *tcr)
    1819 {
    1820   if (tcr != (TCR *)ptr_from_lispobj(lisp_global(INITIAL_TCR))) {
    1821     if (active_tcr_p(tcr) && (tcr != get_tcr(false))) {
    1822       pthread_cancel((pthread_t)(tcr->osid));
    1823       return 0;
    1824     }
    1825   }
    1826   return -50;
    1827 }
    1828 #endif
    18291816
    18301817OSErr
Note: See TracChangeset for help on using the changeset viewer.