From 25d9d7cd36536d74ba5d53d1d6312877cf0905b8 Mon Sep 17 00:00:00 2001 From: Sun Serega Date: Sun, 5 May 2024 10:55:18 +0200 Subject: [PATCH] Update to new `TypeName` output --- .../MatrMlt.td" | 6 +++--- .../SimpleAddition.td" | 6 +++--- Samples/OpenCLABC/All OpenCL info.td | 6 +++--- .../1.td" | 6 +++--- .../2.td" | 6 +++--- ...20\260 \320\266\320\270\320\267\320\275\321\214.td" | 6 +++--- ...21\201 \320\272\320\265\321\210\320\265\320\274.td" | 6 +++--- Tests/Exec/CLABC/01#Wrap/01#CLPlatform/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/02#CLDevice/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/03#CLContext/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/1.td | 6 +++--- .../CLABC/01#Wrap/04#Memory/1#CLMemory/SubSegment1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/04#Memory/2#CLValue/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/err1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/05#CLKernel/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/06#CLCode/1.td | 6 +++--- Tests/Exec/CLABC/01#Wrap/06#CLCode/deserialize.td | 6 +++--- .../00#Err/CCQ-Cancel.td" | 6 +++--- .../00#Err/ExecutionCancel.td" | 6 +++--- .../01#Const/1.td" | 6 +++--- .../02#Parameter/1.td" | 6 +++--- .../02#Parameter/realistic use.td" | 6 +++--- .../03#Cast/~00#Err/1.td" | 6 +++--- .../03#Cast/~01#Const/0.td" | 6 +++--- .../04#ThenConvert/ThenConvUse_ConstDelayedFunc.td" | 6 +++--- .../04#ThenConvert/~00#Err/0.td" | 6 +++--- .../04#ThenConvert/~00#Err/0c.td" | 6 +++--- .../04#ThenConvert/~01#Const/0.td" | 8 ++++---- .../04#ThenConvert/~02#Cast/0.td" | 8 ++++---- .../05#Multiusable/discard single res.td" | 6 +++--- .../05#Multiusable/prev mu check.td" | 6 +++--- .../05#Multiusable/~00#Err/error multiuse.td" | 6 +++--- .../05#Multiusable/~00#Err/multi error multiuse.td" | 6 +++--- .../05#Multiusable/~02#Cast/0.td" | 6 +++--- .../05#Multiusable/~05#Wait/marker.mu.td" | 6 +++--- .../multiusable instead of ThenMarkerSignal.td" | 6 +++--- .../05#Multiusable/~07#HostExec/Quick+MU.td" | 6 +++--- .../06#Wait/ThenWait.td" | 6 +++--- .../06#Wait/WaitOrder.td" | 6 +++--- .../07#GPUCommandContainer/ExecCache.td" | 6 +++--- .../07#GPUCommandContainer/OldClone.Add.td" | 6 +++--- .../07#GPUCommandContainer/ThenQueue(self).td" | 6 +++--- .../07#GPUCommandContainer/enq cancel.td" | 6 +++--- .../07#GPUCommandContainer/enq err storage.td" | 6 +++--- .../07#GPUCommandContainer/~00#Err/AddProc.td" | 6 +++--- .../07#GPUCommandContainer/~00#Err/AddQueue.td" | 6 +++--- .../07#GPUCommandContainer/~00#Err/LazyQuickErr.td" | 6 +++--- .../07#GPUCommandContainer/~00#Err/QuickErr.td" | 6 +++--- .../07#GPUCommandContainer/~02#Cast/0.td" | 6 +++--- .../~08#HostExec/QuickParOrder.td" | 6 +++--- .../08#HostExec/0.td" | 6 +++--- .../08#HostExec/~00#Err/0.td" | 6 +++--- .../08#HostExec/~00#Err/1Q.td" | 6 +++--- .../08#HostExec/~00#Err/1T.td" | 6 +++--- .../08#HostExec/~00#Err/insta err.td" | 6 +++--- .../08#HostExec/~05#Wait/QuickUse.ThenWait.td" | 6 +++--- .../09#CombineQueues/0.td" | 10 +++++----- .../09#CombineQueues/1.td" | 6 +++--- .../09#CombineQueues/q count.td" | 6 +++--- .../09#CombineQueues/~00#Err/err while async.td" | 6 +++--- .../10#WaitMarker/1.td" | 6 +++--- .../10#WaitMarker/combine stress.td" | 6 +++--- .../10#WaitMarker/~00#Err/invoke WaitAll.td" | 6 +++--- .../10#WaitMarker/~00#Err/marker after err.td" | 6 +++--- .../11#Finally+Handle/BranchCancel.td" | 6 +++--- .../11#Finally+Handle/BranchUnCancel.td" | 6 +++--- .../11#Finally+Handle/~00#Err/Handle only local.td" | 6 +++--- .../11#Finally+Handle/~00#Err/finally order.td" | 6 +++--- .../11#Finally+Handle/~00#Err/handle only branch.td" | 6 +++--- .../11#Finally+Handle/~00#Err/marker in finally.td" | 6 +++--- Tests/Exec/CLABC/03#ToString/01#Const/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/02#Parameter/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/03#Cast/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.td | 6 +++--- Tests/Exec/CLABC/03#ToString/04#ThenConvert/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/05#Multiusable/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/06#Wait/1.td | 6 +++--- .../Exec/CLABC/03#ToString/07#GPUCommandContainer/1.td | 6 +++--- .../Exec/CLABC/03#ToString/07#GPUCommandContainer/2.td | 6 +++--- Tests/Exec/CLABC/03#ToString/08#HostExec/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/09#CombineQueues/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/09#CombineQueues/conv1.td | 6 +++--- .../Exec/CLABC/03#ToString/09#CombineQueues/inline.td | 6 +++--- .../CLABC/03#ToString/09#CombineQueues/optimize.td | 6 +++--- .../03#ToString/09#CombineQueues/remove last const.td | 6 +++--- Tests/Exec/CLABC/03#ToString/10#WaitMarker/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/12#CLKernelArg/1.td | 6 +++--- .../Exec/CLABC/03#ToString/13#Wrap/01#CLPlatform/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/13#Wrap/02#CLDevice/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/13#Wrap/03#CLContext/1.td | 6 +++--- .../03#ToString/13#Wrap/04#Memory/1#CLMemory/1.td | 6 +++--- .../13#Wrap/04#Memory/1#CLMemory/SubSegment1.td | 6 +++--- .../CLABC/03#ToString/13#Wrap/04#Memory/2#CLValue/1.td | 6 +++--- .../CLABC/03#ToString/13#Wrap/04#Memory/3#CLArray/1.td | 6 +++--- .../CLABC/03#ToString/13#Wrap/04#Memory/4#Native/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/13#Wrap/05#CLKernel/1.td | 6 +++--- Tests/Exec/CLABC/03#ToString/13#Wrap/06#CLCode/1.td | 6 +++--- ...20\260 \320\266\320\270\320\267\320\275\321\214.td" | 6 +++--- 100 files changed, 304 insertions(+), 304 deletions(-) diff --git "a/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/MatrMlt.td" "b/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/MatrMlt.td" index d3b1865e..46bf112f 100644 --- "a/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/MatrMlt.td" +++ "b/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/MatrMlt.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp Матрица A: diff --git "a/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/SimpleAddition.td" "b/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/SimpleAddition.td" index 11528fe7..cc3c6bee 100644 --- "a/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/SimpleAddition.td" +++ "b/Samples/OpenCLABC/0\320\237\321\200\320\276\321\201\321\202\320\265\320\271\321\210\320\270\320\265 \320\277\321\200\320\270\320\274\320\265\321\200\321\213/SimpleAddition.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerBranchCombinator#0: CLKernelCommandExec1 origin+par+enq union diff --git a/Samples/OpenCLABC/All OpenCL info.td b/Samples/OpenCLABC/All OpenCL info.td index 6e51b726..01d7db75 100644 --- a/Samples/OpenCLABC/All OpenCL info.td +++ b/Samples/OpenCLABC/All OpenCL info.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ReqModules OpenCLABC diff --git "a/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/1.td" "b/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/1.td" index 6e51b726..01d7db75 100644 --- "a/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/1.td" +++ "b/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/1.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ReqModules OpenCLABC diff --git "a/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/2.td" "b/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/2.td" index 6e51b726..01d7db75 100644 --- "a/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/2.td" +++ "b/Samples/OpenCLABC/Wait \320\276\321\207\320\265\321\200\320\265\320\264\320\270/2.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ReqModules OpenCLABC diff --git "a/Samples/OpenCLABC/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" "b/Samples/OpenCLABC/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" index 4cecddc2..c5fa33c8 100644 --- "a/Samples/OpenCLABC/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" +++ "b/Samples/OpenCLABC/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" @@ -31,9 +31,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ReqModules OpenCLABC diff --git "a/Samples/OpenCLABC/\320\232\320\265\321\210\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265 CLProgramCode/SimpleAddition \320\275\320\276 \321\201 \320\272\320\265\321\210\320\265\320\274.td" "b/Samples/OpenCLABC/\320\232\320\265\321\210\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265 CLProgramCode/SimpleAddition \320\275\320\276 \321\201 \320\272\320\265\321\210\320\265\320\274.td" index e6899964..63934e43 100644 --- "a/Samples/OpenCLABC/\320\232\320\265\321\210\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265 CLProgramCode/SimpleAddition \320\275\320\276 \321\201 \320\272\320\265\321\210\320\265\320\274.td" +++ "b/Samples/OpenCLABC/\320\232\320\265\321\210\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265 CLProgramCode/SimpleAddition \320\275\320\276 \321\201 \320\272\320\265\321\210\320\265\320\274.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #DeleteBeforeExec 0.cl.cache diff --git a/Tests/Exec/CLABC/01#Wrap/01#CLPlatform/1.td b/Tests/Exec/CLABC/01#Wrap/01#CLPlatform/1.td index c9551cdb..1ab23f03 100644 --- a/Tests/Exec/CLABC/01#Wrap/01#CLPlatform/1.td +++ b/Tests/Exec/CLABC/01#Wrap/01#CLPlatform/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp OpenCLABC.CLPlatform diff --git a/Tests/Exec/CLABC/01#Wrap/02#CLDevice/1.td b/Tests/Exec/CLABC/01#Wrap/02#CLDevice/1.td index b6ced836..2041bc25 100644 --- a/Tests/Exec/CLABC/01#Wrap/02#CLDevice/1.td +++ b/Tests/Exec/CLABC/01#Wrap/02#CLDevice/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp OpenCLABC.CLDevice diff --git a/Tests/Exec/CLABC/01#Wrap/03#CLContext/1.td b/Tests/Exec/CLABC/01#Wrap/03#CLContext/1.td index 15035b29..21a7d353 100644 --- a/Tests/Exec/CLABC/01#Wrap/03#CLContext/1.td +++ b/Tests/Exec/CLABC/01#Wrap/03#CLContext/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp OpenCLABC.CLContext diff --git a/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/1.td b/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/1.td index 2c0bcc06..49d1f668 100644 --- a/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/1.td +++ b/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: ExecuteEnqFunc container diff --git a/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/SubSegment1.td b/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/SubSegment1.td index 76b9a0e3..0d310e79 100644 --- a/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/SubSegment1.td +++ b/Tests/Exec/CLABC/01#Wrap/04#Memory/1#CLMemory/SubSegment1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 2 diff --git a/Tests/Exec/CLABC/01#Wrap/04#Memory/2#CLValue/1.td b/Tests/Exec/CLABC/01#Wrap/04#Memory/2#CLValue/1.td index 51d8c2d8..5f5ab991 100644 --- a/Tests/Exec/CLABC/01#Wrap/04#Memory/2#CLValue/1.td +++ b/Tests/Exec/CLABC/01#Wrap/04#Memory/2#CLValue/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: ExecuteEnqFunc container diff --git a/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/1.td b/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/1.td index 713a5f4a..09dce892 100644 --- a/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/1.td +++ b/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: ExecuteEnqFunc container diff --git a/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/err1.td b/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/err1.td index feab5e9a..d37e1d57 100644 --- a/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/err1.td +++ b/Tests/Exec/CLABC/01#Wrap/04#Memory/3#CLArray/err1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.TypeInitializationException: The type initializer for 'OpenCLABC.CLArray`1' threw an exception. ---> OpenCLABC_implementation______.BlittableException: Значения типа boolean нельзя использовать как элементы CLArray<> diff --git a/Tests/Exec/CLABC/01#Wrap/05#CLKernel/1.td b/Tests/Exec/CLABC/01#Wrap/05#CLKernel/1.td index 1e15dfd8..3ef09e96 100644 --- a/Tests/Exec/CLABC/01#Wrap/05#CLKernel/1.td +++ b/Tests/Exec/CLABC/01#Wrap/05#CLKernel/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp OpenCLABC.CLKernel diff --git a/Tests/Exec/CLABC/01#Wrap/06#CLCode/1.td b/Tests/Exec/CLABC/01#Wrap/06#CLCode/1.td index 41f8eb30..eb2d6a98 100644 --- a/Tests/Exec/CLABC/01#Wrap/06#CLCode/1.td +++ b/Tests/Exec/CLABC/01#Wrap/06#CLCode/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp OpenCLABC.CLProgramCode diff --git a/Tests/Exec/CLABC/01#Wrap/06#CLCode/deserialize.td b/Tests/Exec/CLABC/01#Wrap/06#CLCode/deserialize.td index fa5597b9..3c893829 100644 --- a/Tests/Exec/CLABC/01#Wrap/06#CLCode/deserialize.td +++ b/Tests/Exec/CLABC/01#Wrap/06#CLCode/deserialize.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLKernel[k1] from CLProgramCode[*] 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/00#Err/CCQ-Cancel.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/00#Err/CCQ-Cancel.td" index a39754aa..15f40bde 100644 --- "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/00#Err/CCQ-Cancel.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/00#Err/CCQ-Cancel.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: Exception of type 'System.Exception' was thrown. 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/00#Err/ExecutionCancel.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/00#Err/ExecutionCancel.td" index c15de689..5fc742f6 100644 --- "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/00#Err/ExecutionCancel.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/00#Err/ExecutionCancel.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 2 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK:1 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/01#Const/1.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/01#Const/1.td" index ed1448e6..92a12415 100644 --- "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/01#Const/1.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/01#Const/1.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueQuickArray, QueueArrayWorkConvert>>#0 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/02#Parameter/1.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/02#Parameter/1.td" index f916998e..c99bdf3f 100644 --- "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/02#Parameter/1.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/02#Parameter/1.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: (origin-less) branch invoke 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/02#Parameter/realistic use.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/02#Parameter/realistic use.td" index 7e0fcbff..6c914029 100644 --- "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/02#Parameter/realistic use.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/02#Parameter/realistic use.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp abc 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/03#Cast/~00#Err/1.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/03#Cast/~00#Err/1.td" index e501bbf7..3d17d852 100644 --- "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/03#Cast/~00#Err/1.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/03#Cast/~00#Err/1.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.InvalidCastException: .Cast не может преобразовывать integer в word 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/03#Cast/~01#Const/0.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/03#Cast/~01#Const/0.td" index 34b22444..201f092a 100644 --- "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/03#Cast/~01#Const/0.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/03#Cast/~01#Const/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 0.t1 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/04#ThenConvert/ThenConvUse_ConstDelayedFunc.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/04#ThenConvert/ThenConvUse_ConstDelayedFunc.td" index d6002ca6..d484960f 100644 --- "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/04#ThenConvert/ThenConvUse_ConstDelayedFunc.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/04#ThenConvert/ThenConvUse_ConstDelayedFunc.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp ConstQueue#0: 2 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/04#ThenConvert/~00#Err/0.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/04#ThenConvert/~00#Err/0.td" index e3ab166d..7619daae 100644 --- "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/04#ThenConvert/~00#Err/0.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/04#ThenConvert/~00#Err/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/04#ThenConvert/~00#Err/0c.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/04#ThenConvert/~00#Err/0c.td" index 7f7bcd9b..3044210e 100644 --- "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/04#ThenConvert/~00#Err/0c.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/04#ThenConvert/~00#Err/0c.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/04#ThenConvert/~01#Const/0.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/04#ThenConvert/~01#Const/0.td" index de960dcb..aaa308cc 100644 --- "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/04#ThenConvert/~01#Const/0.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/04#ThenConvert/~01#Const/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: Initial CLTask invoke @@ -19,7 +19,7 @@ final = ErrHandlerInitial#0: Initial CLTask invoke (125, True) [EventDebug]: 2 event's created [QueueRes]: 2 - QueueResValDirect>: 1 + QueueResValDirect<(integer, boolean)>: 1 QueueResValDirect: 1 #ReqModules 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/04#ThenConvert/~02#Cast/0.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/04#ThenConvert/~02#Cast/0.td" index 2bf93dbe..1b930f99 100644 --- "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/04#ThenConvert/~02#Cast/0.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/04#ThenConvert/~02#Cast/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: Initial CLTask invoke @@ -19,8 +19,8 @@ final = ErrHandlerInitial#0: Initial CLTask invoke (625, True) [EventDebug]: 2 event's created [QueueRes]: 8 + QueueResValDirect<(int64, boolean)>: 1 QueueResValDirect: 4 - QueueResValDirect>: 1 QueueResValDirect: 1 QueueResValDirect: 2 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/05#Multiusable/discard single res.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/05#Multiusable/discard single res.td" index 9ea04c59..c2f96d39 100644 --- "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/05#Multiusable/discard single res.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/05#Multiusable/discard single res.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerFlattener#0: MU repeater for CommandQueueHostThreadedFunc> 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/05#Multiusable/prev mu check.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/05#Multiusable/prev mu check.td" index c1595e3a..7e46c16b 100644 --- "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/05#Multiusable/prev mu check.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/05#Multiusable/prev mu check.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 123 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/05#Multiusable/~00#Err/error multiuse.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/05#Multiusable/~00#Err/error multiuse.td" index b5515376..dc654d1f 100644 --- "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/05#Multiusable/~00#Err/error multiuse.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/05#Multiusable/~00#Err/error multiuse.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 2 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/05#Multiusable/~00#Err/multi error multiuse.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/05#Multiusable/~00#Err/multi error multiuse.td" index 90e1be81..489a4995 100644 --- "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/05#Multiusable/~00#Err/multi error multiuse.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/05#Multiusable/~00#Err/multi error multiuse.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp TestOK1 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/05#Multiusable/~02#Cast/0.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/05#Multiusable/~02#Cast/0.td" index 673f5ac5..b1966b8b 100644 --- "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/05#Multiusable/~02#Cast/0.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/05#Multiusable/~02#Cast/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp Q выполнилась 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/05#Multiusable/~05#Wait/marker.mu.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/05#Multiusable/~05#Wait/marker.mu.td" index 4c4e5557..2ef1f1c0 100644 --- "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/05#Multiusable/~05#Wait/marker.mu.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/05#Multiusable/~05#Wait/marker.mu.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 1 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/05#Multiusable/~05#Wait/multiusable instead of ThenMarkerSignal.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/05#Multiusable/~05#Wait/multiusable instead of ThenMarkerSignal.td" index 4df43e07..ed583de7 100644 --- "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/05#Multiusable/~05#Wait/multiusable instead of ThenMarkerSignal.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/05#Multiusable/~05#Wait/multiusable instead of ThenMarkerSignal.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp Got signal of M 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/05#Multiusable/~07#HostExec/Quick+MU.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/05#Multiusable/~07#HostExec/Quick+MU.td" index 4d333f5b..fca33f11 100644 --- "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/05#Multiusable/~07#HostExec/Quick+MU.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/05#Multiusable/~07#HostExec/Quick+MU.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueQuickArray, QueueArrayWorkConvert>>#0 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/06#Wait/ThenWait.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/06#Wait/ThenWait.td" index ede8b15c..0d470f04 100644 --- "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/06#Wait/ThenWait.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/06#Wait/ThenWait.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: Initial CLTask invoke 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/06#Wait/WaitOrder.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/06#Wait/WaitOrder.td" index c487a676..34d6e471 100644 --- "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/06#Wait/WaitOrder.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/06#Wait/WaitOrder.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 1 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/07#GPUCommandContainer/ExecCache.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/07#GPUCommandContainer/ExecCache.td" index 43bd1773..657b10bf 100644 --- "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/07#GPUCommandContainer/ExecCache.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/07#GPUCommandContainer/ExecCache.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: ExecuteEnqFunc container 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/07#GPUCommandContainer/OldClone.Add.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/07#GPUCommandContainer/OldClone.Add.td" index 839a7b50..9c55268a 100644 --- "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/07#GPUCommandContainer/OldClone.Add.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/07#GPUCommandContainer/OldClone.Add.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 1 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/07#GPUCommandContainer/ThenQueue(self).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/07#GPUCommandContainer/ThenQueue(self).td" index fe603d6b..ecc80ea4 100644 --- "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/07#GPUCommandContainer/ThenQueue(self).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/07#GPUCommandContainer/ThenQueue(self).td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 1 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/07#GPUCommandContainer/enq cancel.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/07#GPUCommandContainer/enq cancel.td" index 49d6f06a..64a8c96d 100644 --- "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/07#GPUCommandContainer/enq cancel.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/07#GPUCommandContainer/enq cancel.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp HFQ+2 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/07#GPUCommandContainer/enq err storage.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/07#GPUCommandContainer/enq err storage.td" index a0786b54..0429748e 100644 --- "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/07#GPUCommandContainer/enq err storage.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/07#GPUCommandContainer/enq err storage.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp NullReferenceException 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/07#GPUCommandContainer/~00#Err/AddProc.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/07#GPUCommandContainer/~00#Err/AddProc.td" index 809a07e8..7098ad6e 100644 --- "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/07#GPUCommandContainer/~00#Err/AddProc.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/07#GPUCommandContainer/~00#Err/AddProc.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: CLMemory[*] of size 1, TestOK 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/07#GPUCommandContainer/~00#Err/AddQueue.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/07#GPUCommandContainer/~00#Err/AddQueue.td" index 295348b7..e7f4cdb6 100644 --- "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/07#GPUCommandContainer/~00#Err/AddQueue.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/07#GPUCommandContainer/~00#Err/AddQueue.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: CLMemory[*] of size 1, TestOK 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/07#GPUCommandContainer/~00#Err/LazyQuickErr.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/07#GPUCommandContainer/~00#Err/LazyQuickErr.td" index ce3b169c..083e0870 100644 --- "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/07#GPUCommandContainer/~00#Err/LazyQuickErr.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/07#GPUCommandContainer/~00#Err/LazyQuickErr.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/07#GPUCommandContainer/~00#Err/QuickErr.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/07#GPUCommandContainer/~00#Err/QuickErr.td" index 7fa9d68d..2c414c56 100644 --- "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/07#GPUCommandContainer/~00#Err/QuickErr.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/07#GPUCommandContainer/~00#Err/QuickErr.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/07#GPUCommandContainer/~02#Cast/0.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/07#GPUCommandContainer/~02#Cast/0.td" index 574917b5..a7034507 100644 --- "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/07#GPUCommandContainer/~02#Cast/0.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/07#GPUCommandContainer/~02#Cast/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerBranchCombinator#0: CLMemoryCommandWriteValueQ origin+par+enq union 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/07#GPUCommandContainer/~08#HostExec/QuickParOrder.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/07#GPUCommandContainer/~08#HostExec/QuickParOrder.td" index cd0a1d17..030ce6e3 100644 --- "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/07#GPUCommandContainer/~08#HostExec/QuickParOrder.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/07#GPUCommandContainer/~08#HostExec/QuickParOrder.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp First#1 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/0.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/0.td" index 070769cc..42ea7609 100644 --- "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/0.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/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 5 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/~00#Err/0.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/~00#Err/0.td" index 317461ac..4bbd770c 100644 --- "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/~00#Err/0.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/~00#Err/0.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/~00#Err/1Q.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/~00#Err/1Q.td" index 1aaa27df..b9b67d79 100644 --- "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/~00#Err/1Q.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/~00#Err/1Q.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/~00#Err/1T.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/~00#Err/1T.td" index 86473766..6d8544b6 100644 --- "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/~00#Err/1T.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/~00#Err/1T.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/~00#Err/insta err.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/~00#Err/insta err.td" index ce0483f7..bc6deb49 100644 --- "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/~00#Err/insta err.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/~00#Err/insta err.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp TestOK 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/~05#Wait/QuickUse.ThenWait.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/~05#Wait/QuickUse.ThenWait.td" index 22cc1da6..6dda3b6e 100644 --- "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/~05#Wait/QuickUse.ThenWait.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/~05#Wait/QuickUse.ThenWait.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp /\\5/\\ 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/09#CombineQueues/0.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/09#CombineQueues/0.td" index 66a3f827..93f45aa4 100644 --- "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/09#CombineQueues/0.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/09#CombineQueues/0.td" @@ -6,10 +6,10 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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______.DCommandQueueThreadedArray2MakeBody = function(acts: QueueResComplDelegateData; qr1: QueueRes; qr2: QueueRes; err_handler: ErrHandler; c: CLContext; own_qr: TR; err_test_reason: string): procedure -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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.DCommandQueueThreadedArray2MakeBody<[TInp1], [TInp2], [TR]> = function(acts: QueueResComplDelegateData; qr1: QueueRes<[TInp1]>; qr2: QueueRes<[TInp2]>; err_handler: ErrHandler; c: CLContext; own_qr: [TR]; err_test_reason: string): procedure +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: Initial CLTask invoke @@ -38,7 +38,7 @@ final = ErrHandlerBranchCombinator#0: CLTaskGlobalData.ParallelInvoke branches u (5, abc) [EventDebug]: 24 event's created [QueueRes]: 28 - QueueResValDirect>: 2 + QueueResValDirect<(integer, string)>: 2 QueueResValDirect: 2 QueueResValDirect: 22 QueueResValDirect: 2 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/09#CombineQueues/1.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/09#CombineQueues/1.td" index 742954ba..64e10018 100644 --- "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/09#CombineQueues/1.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/09#CombineQueues/1.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp SimpleSyncQueueArray#0 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/09#CombineQueues/q count.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/09#CombineQueues/q count.td" index 9130edfb..1d30dcf2 100644 --- "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/09#CombineQueues/q count.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/09#CombineQueues/q count.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerBranchCombinator#0: CLMemoryCommandWriteValue origin+par+enq union 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/09#CombineQueues/~00#Err/err while async.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/09#CombineQueues/~00#Err/err while async.td" index b8b5996b..e4fd3853 100644 --- "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/09#CombineQueues/~00#Err/err while async.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/09#CombineQueues/~00#Err/err while async.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerBranchCombinator#0: CLTaskGlobalData.ParallelInvoke branches union 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/10#WaitMarker/1.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/10#WaitMarker/1.td" index 1d6f8b95..330364e1 100644 --- "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/10#WaitMarker/1.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/10#WaitMarker/1.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp nil 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/10#WaitMarker/combine stress.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/10#WaitMarker/combine stress.td" index 196fc246..b04a79d8 100644 --- "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/10#WaitMarker/combine stress.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/10#WaitMarker/combine stress.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp WaitMarkerAny#0 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/10#WaitMarker/~00#Err/invoke WaitAll.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/10#WaitMarker/~00#Err/invoke WaitAll.td" index 2a019ab6..a298c4be 100644 --- "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/10#WaitMarker/~00#Err/invoke WaitAll.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/10#WaitMarker/~00#Err/invoke WaitAll.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.InvalidProgramException: Преобразовывать комбинацию маркеров в очередь нельзя. Возможно вы забыли написать WaitFor? 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/10#WaitMarker/~00#Err/marker after err.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/10#WaitMarker/~00#Err/marker after err.td" index 583a8b1f..fbdffd9c 100644 --- "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/10#WaitMarker/~00#Err/marker after err.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/10#WaitMarker/~00#Err/marker after err.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: Initial CLTask invoke 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/11#Finally+Handle/BranchCancel.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/11#Finally+Handle/BranchCancel.td" index bdbff2d1..6a7064a8 100644 --- "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/11#Finally+Handle/BranchCancel.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/11#Finally+Handle/BranchCancel.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp TestOK 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/11#Finally+Handle/BranchUnCancel.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/11#Finally+Handle/BranchUnCancel.td" index 9635fc62..673fcae7 100644 --- "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/11#Finally+Handle/BranchUnCancel.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/11#Finally+Handle/BranchUnCancel.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp Calculated anyway 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/11#Finally+Handle/~00#Err/Handle only local.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/11#Finally+Handle/~00#Err/Handle only local.td" index 197c1258..00e0303a 100644 --- "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/11#Finally+Handle/~00#Err/Handle only local.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/11#Finally+Handle/~00#Err/Handle only local.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/11#Finally+Handle/~00#Err/finally order.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/11#Finally+Handle/~00#Err/finally order.td" index 04cb6918..824435e0 100644 --- "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/11#Finally+Handle/~00#Err/finally order.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/11#Finally+Handle/~00#Err/finally order.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp 1 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/11#Finally+Handle/~00#Err/handle only branch.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/11#Finally+Handle/~00#Err/handle only branch.td" index 0513faf8..8451bf1d 100644 --- "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/11#Finally+Handle/~00#Err/handle only branch.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/11#Finally+Handle/~00#Err/handle only branch.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecErr System.AggregateException: При выполнении очереди было вызвано 1 исключений. Используйте try чтоб получить больше информации ---> System.Exception: TestOK 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/11#Finally+Handle/~00#Err/marker in finally.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/11#Finally+Handle/~00#Err/marker in finally.td" index 086656a3..cfae0bd5 100644 --- "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/11#Finally+Handle/~00#Err/marker in finally.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/11#Finally+Handle/~00#Err/marker in finally.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp Waited diff --git a/Tests/Exec/CLABC/03#ToString/01#Const/1.td b/Tests/Exec/CLABC/03#ToString/01#Const/1.td index 52031b20..39766b99 100644 --- a/Tests/Exec/CLABC/03#ToString/01#Const/1.td +++ b/Tests/Exec/CLABC/03#ToString/01#Const/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp ConstQueue#0: () diff --git a/Tests/Exec/CLABC/03#ToString/02#Parameter/1.td b/Tests/Exec/CLABC/03#ToString/02#Parameter/1.td index 1be70b91..f6b3c8eb 100644 --- a/Tests/Exec/CLABC/03#ToString/02#Parameter/1.td +++ b/Tests/Exec/CLABC/03#ToString/02#Parameter/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp ParameterQueue#0["P1"]: Default=1 diff --git a/Tests/Exec/CLABC/03#ToString/03#Cast/1.td b/Tests/Exec/CLABC/03#ToString/03#Cast/1.td index dda3646c..3d0e2812 100644 --- a/Tests/Exec/CLABC/03#ToString/03#Cast/1.td +++ b/Tests/Exec/CLABC/03#ToString/03#Cast/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CastQueue#0 diff --git a/Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.td b/Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.td index 3833c036..9e8a2158 100644 --- a/Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.td +++ b/Tests/Exec/CLABC/03#ToString/03#Cast/typed nil.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp TypedNilQueue#0 diff --git a/Tests/Exec/CLABC/03#ToString/04#ThenConvert/1.td b/Tests/Exec/CLABC/03#ToString/04#ThenConvert/1.td index f04be1b0..eb03a3d3 100644 --- a/Tests/Exec/CLABC/03#ToString/04#ThenConvert/1.td +++ b/Tests/Exec/CLABC/03#ToString/04#ThenConvert/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueThenQuickConvert>#0 diff --git a/Tests/Exec/CLABC/03#ToString/05#Multiusable/1.td b/Tests/Exec/CLABC/03#ToString/05#Multiusable/1.td index ef5bc5aa..4db13755 100644 --- a/Tests/Exec/CLABC/03#ToString/05#Multiusable/1.td +++ b/Tests/Exec/CLABC/03#ToString/05#Multiusable/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp SimpleSyncQueueArray#0 diff --git a/Tests/Exec/CLABC/03#ToString/06#Wait/1.td b/Tests/Exec/CLABC/03#ToString/06#Wait/1.td index a8c23527..eb12b0ec 100644 --- a/Tests/Exec/CLABC/03#ToString/06#Wait/1.td +++ b/Tests/Exec/CLABC/03#ToString/06#Wait/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp WaitMarkerAll#0 diff --git a/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/1.td b/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/1.td index 97d300e5..3bf8a004 100644 --- a/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/1.td +++ b/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLKernelCCQ#0 diff --git a/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/2.td b/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/2.td index 0859231c..f3cbd080 100644 --- a/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/2.td +++ b/Tests/Exec/CLABC/03#ToString/07#GPUCommandContainer/2.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp SimpleSyncQueueArray#0 diff --git a/Tests/Exec/CLABC/03#ToString/08#HostExec/1.td b/Tests/Exec/CLABC/03#ToString/08#HostExec/1.td index 3e9bb2d5..1583bce2 100644 --- a/Tests/Exec/CLABC/03#ToString/08#HostExec/1.td +++ b/Tests/Exec/CLABC/03#ToString/08#HostExec/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueHostQuickFunc>#0: function lambda: integer diff --git a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/1.td b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/1.td index 1aa89b96..47f7ab63 100644 --- a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/1.td +++ b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp SimpleSyncQueueArray#0 diff --git a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/conv1.td b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/conv1.td index 3fd2900d..7933a7c1 100644 --- a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/conv1.td +++ b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/conv1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueHostQuickFunc>#0: (<>local_variables_class_*UPPER_489=(conv=function lambda(a: array of Object): array of Object); inp=[nil,nil]) => function lambda: array of Object diff --git a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/inline.td b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/inline.td index 9ba299f2..1ac90791 100644 --- a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/inline.td +++ b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/inline.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp SimpleSyncQueueArray#0 diff --git a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/optimize.td b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/optimize.td index b8d84a67..a4bbcd5e 100644 --- a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/optimize.td +++ b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/optimize.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp ConstQueue#0: byte{ 5 } diff --git a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/remove last const.td b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/remove last const.td index 03d9433b..a96e8ef8 100644 --- a/Tests/Exec/CLABC/03#ToString/09#CombineQueues/remove last const.td +++ b/Tests/Exec/CLABC/03#ToString/09#CombineQueues/remove last const.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueHostThreadedProc#0: procedure lambda diff --git a/Tests/Exec/CLABC/03#ToString/10#WaitMarker/1.td b/Tests/Exec/CLABC/03#ToString/10#WaitMarker/1.td index 2f680472..3409573c 100644 --- a/Tests/Exec/CLABC/03#ToString/10#WaitMarker/1.td +++ b/Tests/Exec/CLABC/03#ToString/10#WaitMarker/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp WaitMarkerDummy#0 diff --git a/Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.td b/Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.td index 0a57e910..2a83fc41 100644 --- a/Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.td +++ b/Tests/Exec/CLABC/03#ToString/11#Finally+Handle/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CommandQueueTryFinally#0 diff --git a/Tests/Exec/CLABC/03#ToString/12#CLKernelArg/1.td b/Tests/Exec/CLABC/03#ToString/12#CLKernelArg/1.td index fd98486e..8faea72b 100644 --- a/Tests/Exec/CLABC/03#ToString/12#CLKernelArg/1.td +++ b/Tests/Exec/CLABC/03#ToString/12#CLKernelArg/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp Global diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/01#CLPlatform/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/01#CLPlatform/1.td index 8206607b..5f3c5aa3 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/01#CLPlatform/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/01#CLPlatform/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLPlatform[*] diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/02#CLDevice/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/02#CLDevice/1.td index 7fd5b18d..87164a23 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/02#CLDevice/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/02#CLDevice/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLDevice[*] diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/03#CLContext/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/03#CLContext/1.td index b667b1a8..d6289804 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/03#CLContext/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/03#CLContext/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLContext[*] on devices: CLDevice[*]; Main device: CLDevice[*] diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/1.td index 0782d9a0..613d2bd6 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLMemory[*] of size 1 diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/SubSegment1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/SubSegment1.td index d30f8bec..495bffa0 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/SubSegment1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/1#CLMemory/SubSegment1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLMemorySubSegment[*] of size 1 inside CLMemory[*] of size 1 diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/2#CLValue/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/2#CLValue/1.td index 7bb18a27..988dda65 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/2#CLValue/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/2#CLValue/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLValue[*] diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/3#CLArray/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/3#CLArray/1.td index 91e16895..b7a70adf 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/3#CLArray/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/3#CLArray/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLArray[*] of length 1 diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/4#Native/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/4#Native/1.td index 3f0037e6..f3106b0e 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/4#Native/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/04#Memory/4#Native/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp NativeMemory:$*[100]{ $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 } diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/05#CLKernel/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/05#CLKernel/1.td index 61010288..30dcd29d 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/05#CLKernel/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/05#CLKernel/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLKernel[k] from CLProgramCode[*] diff --git a/Tests/Exec/CLABC/03#ToString/13#Wrap/06#CLCode/1.td b/Tests/Exec/CLABC/03#ToString/13#Wrap/06#CLCode/1.td index 2fdb1f13..ab116a44 100644 --- a/Tests/Exec/CLABC/03#ToString/13#Wrap/06#CLCode/1.td +++ b/Tests/Exec/CLABC/03#ToString/13#Wrap/06#CLCode/1.td @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp CLProgramCode[*] diff --git "a/Tests/Exec/CLABC/04#Samples/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" "b/Tests/Exec/CLABC/04#Samples/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" index 48c78683..6e4b0b25 100644 --- "a/Tests/Exec/CLABC/04#Samples/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" +++ "b/Tests/Exec/CLABC/04#Samples/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214/\320\230\320\263\321\200\320\260 \320\266\320\270\320\267\320\275\321\214.td" @@ -6,9 +6,9 @@ OpenCL.clCreateContextCallback = procedure(errinfo: string; private_info: IntPtr OpenCL.clEventCallback = procedure(event: cl_event; event_command_status: clCommandExecutionStatus; user_data: IntPtr) OpenCL.clProgramCallback = procedure(program: cl_program; user_data: 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: DoubleList; par_err_handlers: DoubleList): ValueTuple> +OpenCLABC._GetPropValueFunc<[T]> = function(ntv: cl_program; var data: [T]): clErrorCode +OpenCLABC_implementation______.EnqFunc<[T]> = function(prev_res: [T]; cq: cl_command_queue; ev_l2: EventList): ValueTuple +OpenCLABC_implementation______.InvokeParamsFunc<[T]> = function(enq_c: integer; o_const: boolean; g: CLTaskGlobalData; enq_evs: DoubleList; par_err_handlers: DoubleList): ValueTuple> #ExpExecOtp final = ErrHandlerInitial#0: ExecuteEnqFunc container