diff --git a/LastPack.log b/LastPack.log index ff16f904..ec4402eb 100644 --- a/LastPack.log +++ b/LastPack.log @@ -487,8 +487,6 @@ Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/07# Tester: Compiling: OK Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/0.pas" Tester: Compiling: OK -Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/ThrCount.pas" -Tester: Compiling: OK Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/0.pas" Tester: Compiling: OK Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/1Q.pas" @@ -695,8 +693,6 @@ Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей Tester: Done executing Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/0] Tester: Done executing -Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/ThrCount] -Tester: Done executing Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/0] Tester: Done executing Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/1Q] diff --git a/Log/Test.log b/Log/Test.log index e183f38f..dc6a0518 100644 --- a/Log/Test.log +++ b/Log/Test.log @@ -97,8 +97,6 @@ Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/07# Tester: Compiling: OK Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/0.pas" Tester: Compiling: OK -Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/ThrCount.pas" -Tester: Compiling: OK Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/0.pas" Tester: Compiling: OK Tester: Compiling "Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/1Q.pas" @@ -305,8 +303,6 @@ Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей Tester: Done executing Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/0] Tester: Done executing -Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/ThrCount] -Tester: Done executing Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/0] Tester: Done executing Tester: Executing Test[Tests/Exec/CLABC/02#Выполнение очередей/08#HostExec/~00#Err/1Q] diff --git "a/Tests/Exec/CLABC/02#\320\222\321\213\320\277\320\276\320\273\320\275\320\265\320\275\320\270\320\265 \320\276\321\207\320\265\321\200\320\265\320\264\320\265\320\271/08#HostExec/ThrCount.pas" "b/Tests/Exec/CLABC/02#\320\222\321\213\320\277\320\276\320\273\320\275\320\265\320\275\320\270\320\265 \320\276\321\207\320\265\321\200\320\265\320\264\320\265\320\271/08#HostExec/ThrCount.pas" deleted file mode 100644 index b9c10e9d..00000000 --- "a/Tests/Exec/CLABC/02#\320\222\321\213\320\277\320\276\320\273\320\275\320\265\320\275\320\270\320\265 \320\276\321\207\320\265\321\200\320\265\320\264\320\265\320\271/08#HostExec/ThrCount.pas" +++ /dev/null @@ -1,20 +0,0 @@ -## uses OpenCLABC; - -procedure Test(min_thrs: integer; Q: Action0->CommandQueueBase); -begin - var thr_ids := new System.Collections.Concurrent.ConcurrentBag; - var add_thr_id := procedure-> - begin - Sleep(10); - thr_ids.Add(System.Threading.Thread.CurrentThread.ManagedThreadId); - end; - - CLContext.Default.SyncInvoke( - Q(add_thr_id) + CombineAsyncQueue(ArrFill(16, HPQ(add_thr_id, false))) - ); - - (thr_ids.Distinct.Count>=min_thrs).Println; -end; - -Test(2, ati->HPQ(ati) ); -Test(1, ati->CLMemory.Create(4).MakeCCQ.ThenWriteValue(5) ); \ No newline at end of file diff --git "a/Tests/Exec/CLABC/02#\320\222\321\213\320\277\320\276\320\273\320\275\320\265\320\275\320\270\320\265 \320\276\321\207\320\265\321\200\320\265\320\264\320\265\320\271/08#HostExec/ThrCount.td" "b/Tests/Exec/CLABC/02#\320\222\321\213\320\277\320\276\320\273\320\275\320\265\320\275\320\270\320\265 \320\276\321\207\320\265\321\200\320\265\320\264\320\265\320\271/08#HostExec/ThrCount.td" deleted file mode 100644 index c6df6c4c..00000000 --- "a/Tests/Exec/CLABC/02#\320\222\321\213\320\277\320\276\320\273\320\275\320\265\320\275\320\270\320\265 \320\276\321\207\320\265\321\200\320\265\320\264\320\265\320\271/08#HostExec/ThrCount.td" +++ /dev/null @@ -1,28 +0,0 @@ - - - -#Delegates -OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: System.IntPtr; cb: System.UIntPtr; user_data: System.IntPtr) -OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: System.IntPtr) -OpenCL.clProgramCallback = procedure(program: cl_program; user_data: System.IntPtr) -OpenCLABC.$delegate? = function(ntv: cl_program; var data: clBool; validate: boolean): clErrorCode -OpenCLABC._GetPropValueFunc = function(ntv: cl_program; var data: T): clErrorCode -OpenCLABC_implementation______.EnqFunc = function(prev_res: T; cq: cl_command_queue; ev_l2: EventList): ValueTuple ()> -OpenCLABC_implementation______.InvokeParamsFunc = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleEventListList): ValueTuple> -ThrCount.$delegate? = procedure -ThrCount.$delegate? = procedure -ThrCount.$delegate? = procedure - -#ExpExecOtp -True -True -[EventDebug]: 34 event's created -[QueueDebug]: 1 queue's created -[QueueResNil]: 38 -[QueueRes]: 1 - QueueResValDirect: 1 - -#ReqModules -OpenCLABC - -