bugs fixed for debug test

Parallel/IpcParallel/SlaveTask.vb

@@ -152,10 +152,10 @@ Public Class SlaveTask
 
         Dim commandlineArgvs As String = builder(processor, host.HostPort)
 
-        'If Not debugPort Is Nothing Then
-        '    Console.WriteLine(commandlineArgvs)
-        '    Pause()
-        'End If
+        If Not debugPort Is Nothing Then
+            Console.WriteLine(commandlineArgvs)
+            Pause()
+        End If
 
 #If netcore5 = 0 Then
         Call CommandLine.Call(processor, commandlineArgvs)

Parallel/ThreadTask/ThreadTask.vb

@@ -100,7 +100,7 @@ Namespace ThreadTask
         ''' <param name="n_threads"></param>
         ''' <returns></returns>
         Public Function WithDegreeOfParallelism(n_threads As Integer) As ThreadTask(Of TOut)
-            threads = New AsyncHandle(Of TOut)(n_threads) {}
+            threads = New AsyncHandle(Of TOut)(n_threads - 1) {}
             Return Me
         End Function