Skip GenericException>>raiseSignal in debugger's backtrace. jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 19 Apr 2013 09:38:48 +0200
branchjv
changeset 18049 5b83e8406d5d
parent 18048 dc8e0423e235
child 18050 131d0413b25b
Skip GenericException>>raiseSignal in debugger's backtrace.
GenericException.st
--- a/GenericException.st	Thu Apr 18 21:31:04 2013 +0200
+++ b/GenericException.st	Fri Apr 19 09:38:48 2013 +0200
@@ -2188,6 +2188,8 @@
     "actually raise an exception (whatever the proceedability is)."
 
     <context: #return>
+    <resource: #skipInDebuggersWalkBack>
+
 
     raiseContext := thisContext.
     suspendedContext isNil ifTrue:[
@@ -2195,6 +2197,8 @@
     ].
     proceedable := self mayProceed.
     ^ self doRaise
+
+    "Modified: / 19-04-2013 / 09:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 raiseWith:aParameter errorString:aString
@@ -2314,6 +2318,11 @@
 
 version_CVS
     ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !