(test2)

SunSerega · Oct 17, 2023 · d3b6dbd · d3b6dbd
1 parent 60502b6
commit d3b6dbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Modules/OpenCLABC.pas b/Modules/OpenCLABC.pas
@@ -9208,7 +9208,7 @@   CLKernelArgPrivateCommon<TInp> = record
           OpenCLABCInternalException.RaiseIfError( cl.Flush(cq) );
           enq_ev.MultiAttachCallback(()->
           begin
-            if enq_act<>nil then enq_act(g.c);
+            if (enq_act<>nil) and not l1_err_handler.HadError then enq_act(g.c);
             g.ReturnCQ(cq);
             res_ev.SetComplete(l2_err_handler.HadError);
           end{$ifdef EventDebug}, $'propagating Enq ev of {TypeName(q)} to res_ev: {res_ev.uev}'{$endif});