#FEATURE by sr
authorsr
Tue, 06 Feb 2018 10:31:14 +0100
changeset 17980 7b284c5bcaba
parent 17979 0854fb9b7e58
child 17981 e4e08f36aae6
#FEATURE by sr class: DebugView comment/format in: #enter:select: changed: #controlLoop set priority to the debug process (during debug only)
DebugView.st
--- 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
     ].