DebugView.st
changeset 17980 7b284c5bcaba
parent 17978 831e13b3c5c7
child 18004 e6e78b733aed
--- a/DebugView.st	Mon Feb 05 00:40:23 2018 +0100
+++ b/DebugView.st	Tue Feb 06 10:31:14 2018 +0100
@@ -2345,6 +2345,8 @@
         grabber := nil.
     ].
 
+    "/ Processor activeProcess priorityRange:nil; priority:8.
+
     (exitAction == #step) ifTrue:[
         "
          schedule another stepInterrupt
@@ -8443,15 +8445,22 @@
         either continue, return or step is pressed
     "
 
+    |process savedPriorityRange savedPriority|
+
+    process := Processor activeProcess.
+    savedPriorityRange := process priorityRange.
+    savedPriority := process priority.
+    process priorityRange:nil; priority:(Processor userSchedulingPriority).
+
     haveControl := true.
     [
         [haveControl] whileTrue:[
-AbortOperationRequest handle:[:ex |
-] do:[
-            self controlLoopCatchingErrors
-]
+            AbortOperationRequest ignoreIn:[
+                self controlLoopCatchingErrors
+            ]
         ].
     ] ensure:[
+        process priorityRange:savedPriorityRange; priority:savedPriority.
         catchBlock := nil.
         haveControl := false
     ].