Changeset 621

Timestamp:

Mar 6, 2004, 11:48:07 PM (21 years ago)

Author:

Gary Byers

Message:

darwin_exception_cleanup() frees native_thread_info (foreign exception state).

File:

• trunk/ccl/lisp-kernel/lisp-exceptions.c (modified) (1 diff)

trunk/ccl/lisp-kernel/lisp-exceptions.c

@@ -2689 +2689 @@
 darwin_exception_cleanup(TCR *tcr)
 {
+  void *fxs = tcr->native_thread_info;
+
+  if (fxs) {
+    tcr->native_thread_info = NULL;
+    free(fxs);
+  }
   mach_port_destroy(mach_task_self(),(mach_port_t)tcr);
 }