class: Tools::BackgroundSourceProcessingService
authorClaus Gittinger <cg@exept.de>
Mon, 06 Jul 2015 17:20:05 +0200
changeset 15732 a40158f53779
parent 15731 f205f06960fa
child 15733 332bb9af57e1
child 15734 4c376216e8aa
class: Tools::BackgroundSourceProcessingService changed: #processSafely:
Tools__BackgroundSourceProcessingService.st
--- a/Tools__BackgroundSourceProcessingService.st	Mon Jul 06 17:13:48 2015 +0200
+++ b/Tools__BackgroundSourceProcessingService.st	Mon Jul 06 17:20:05 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2006 by eXept Software AG
               All Rights Reserved
@@ -238,6 +240,18 @@
             ex suspendedContext fullPrintAllOn: Transcript.
         ] ifFalse:[
             (ControlInterrupt accepts:ex creator) ifTrue:[
+                "/ also deal with ignored breakpoints here;
+                "/ otherwise, it is almost impossible to place a breakpoint into
+                "/ RB-code, and ignoring it...
+                (DebugView 
+                    isHaltToBeIgnoredIn:(ex suspendedContext method)
+                    atLineNr:1
+                    context:(ex suspendedContext)
+                    modifyEntryCount:false
+                ) ifTrue:[
+                    Transcript showCR:'breakpoint ignored in background processing'.
+                    ^ ex proceed.
+                ].
                 msg := ('Halt/Breakpoint while processing source:\',ex description allBold,'\\in: ',ex suspendedContext printString,'\\Debug ?')
             ] ifFalse:[
                 msg := ('Error while processing source:\',ex description allBold,'\\in: ',ex suspendedContext printString,'\\Debug ?')