Speed gtdot; allow gstack to work with many tasks

Author: HenryHRich

script/testgahhr.ijs

@@ -122,12 +122,13 @@ end.
 if. IF64 do.
 assert. (<@i."0 i. 5) -: (i. t. ''"0 i. 5)
 assert. 2 <: 1 T. ''
-while. 2 > # 2 T. '' do. end.  NB. wait till threads become ready
-assert. 1 2 *./@e. 2 T. ''
-assert. 0 1 2 *./@e. > (3&T.@'')@(6!:3) t.'' "(0)  0.1 0.1 0.3 
-assert. 0 1 2 *./@e. > (3&T.@'')@(6!:3) t.'' "(0)  0.3 0.3 0.1 
-assert. (_1000;1 2;_1001) e.~&> 4 T. (3&T.@'')@(6!:3) t.'' "(0)  0.2 0.6 0.4
-while. 2 ~: # 2 T. '' do. end.  NB. wait till threads become ready
+nwthreads=. 1 T. ''
+while. nwthreads ~: # 2 T. '' do. end.  NB. wait till threads become ready
+assert. (>: i. nwthreads) *./@e. 2 T. ''
+assert. (>: i. nwthreads) *./@e. > (3&T.@'')@(6!:3) t.'' "(0)  (nwthreads # 0.1), 0.3 
+assert. (>: i. nwthreads) *./@e. > (3&T.@'')@(6!:3) t.'' "(0)  (nwthreads # 0.3), 0.1 
+assert. (((<_1000) #~ <: nwthreads),(>: i. nwthreads);_1001) e.~&> 4 T. (3&T.@'')@(6!:3) t.'' "(0) (0.3 #~ <: nwthreads), 0.6 0.4
+while. nwthreads ~: # 2 T. '' do. end.  NB. wait till threads become ready
 NB. semaphore test
 localpyx=.5 T. 5
 g t. '' localpyx;<1

test/gstack.ijs

@@ -50,14 +50,14 @@ assert. r e. _1000 _1001    NB. _1001 if run on the main thread
 
 g=: 3 : 0
 9!:1[(7^5)+3 T.''  NB. random per thread
-6!:3[?0            NB. arbitrary delay
+6!:3[0.3*?0            NB. arbitrary delay
 1
 )
 
 g1=: 3 : 0
 9!:1[(7^5)-3 T.''  NB. random per thread
 for_i. i.%:N1 do.
- 6!:3[?0
+ 6!:3[0.3*?0
  pyx=. g t.'' "0 i.%:N1
 end.
 ]&> pyx