Changeset 621


Ignore:
Timestamp:
Mar 7, 2004, 7:48:07 AM (16 years ago)
Author:
gb
Message:

darwin_exception_cleanup() frees native_thread_info (foreign exception state).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/lisp-exceptions.c

    r619 r621  
    26892689darwin_exception_cleanup(TCR *tcr)
    26902690{
     2691  void *fxs = tcr->native_thread_info;
     2692
     2693  if (fxs) {
     2694    tcr->native_thread_info = NULL;
     2695    free(fxs);
     2696  }
    26912697  mach_port_destroy(mach_task_self(),(mach_port_t)tcr);
    26922698}
Note: See TracChangeset for help on using the changeset viewer.