bug fix kludge - fix IDE hang in debug mode by calling NameThreadForD…

…ebugging() (no idea why this works)
w7sst · Sep 30, 2022 · f3e2d0d · f3e2d0d
1 parent efd8a17
commit f3e2d0d
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/VCL/SndCustm.pas b/VCL/SndCustm.pas
@@ -188,8 +188,9 @@ procedure TCustomSoundInOut.DoSetEnabled(AEnabled: boolean);
         FThread:= TWaitThread.Create(true);
         FThread.FreeOnTerminate:= true;
         FThread.Owner := Self;
-        //FThread.Priority := tpTimeCritical;
-        //start
+        FThread.Priority := tpTimeCritical; // don't starve the WaveOut device
+        FThread.NameThreadForDebugging('TWaitThread'); // without this, IDE will hang
+        //start audio output device
         FEnabled:= true;
         try
             Start;