From: Cyrus Harmon <ch-sbcl@bobobeach.com>
Date: Tue, 8 Mar 2011 01:41:25 +0000 (+0000)
Subject: 1.0.46.28: fix mach port leakage on x86 too
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cbc0ad89d5bb05c1bfa2c712bc8a0e2bbe7b5673;p=sbcl.git

1.0.46.28: fix mach port leakage on x86 too

 * call mach_port_deallocate on exception_port, thread and task at the
   end of x86 version of catch_exception_raise
---

diff --git a/src/runtime/x86-darwin-os.c b/src/runtime/x86-darwin-os.c
index 610db59..6205445 100644
--- a/src/runtime/x86-darwin-os.c
+++ b/src/runtime/x86-darwin-os.c
@@ -495,6 +495,11 @@ catch_exception_raise(mach_port_t exception_port,
       siginfo.si_addr = addr;
       call_handler_on_thread(thread, &thread_state, signal, &siginfo, handler);
     }
+
+    mach_port_deallocate (current_mach_task, exception_port);
+    mach_port_deallocate (current_mach_task, thread);
+    mach_port_deallocate (current_mach_task, task);
+
     return ret;
 }
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 8498d46..7484d9c 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.46.27"
+"1.0.46.28"