class: Smalltalk
authorClaus Gittinger <cg@exept.de>
Wed, 27 Feb 2013 12:07:31 +0100
changeset 14805 33c5758318a6
parent 14804 89d40ef13b2c
child 14806 8d7786e5d9cd
class: Smalltalk changed: #initInterrupts
Smalltalk.st
--- a/Smalltalk.st	Sun Feb 24 21:25:06 2013 +0100
+++ b/Smalltalk.st	Wed Feb 27 12:07:31 2013 +0100
@@ -382,6 +382,12 @@
     ObjectMemory signalInterruptHandler:self.
     ObjectMemory recursionInterruptHandler:self.
 
+    OperatingSystem isOSXlike ifTrue:[
+        "/ OSX sends SIGABRT for NSExceptions
+        OperatingSystem operatingSystemSignal:(OperatingSystem sigABRT) install:NSException.
+        OperatingSystem enableAbortInterrupts.
+    ].
+
     "
      Smalltalk initInterrupts
     "
@@ -7816,11 +7822,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1007 2013-02-21 18:14:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1008 2013-02-27 11:07:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1007 2013-02-21 18:14:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1008 2013-02-27 11:07:31 cg Exp $'
 !
 
 version_SVN