From c04393e0ba3c2ff4adeb1cdb3374aefd7207dec2 Mon Sep 17 00:00:00 2001
From: Sun Serega <sunserega2@gmail.com>
Date: Mon, 23 Oct 2023 16:39:36 +0300
Subject: [PATCH] cleanup

---
 Modules/OpenCLABC.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Modules/OpenCLABC.pas b/Modules/OpenCLABC.pas
index 3b5ff739..a8e962ae 100644
--- a/Modules/OpenCLABC.pas
+++ b/Modules/OpenCLABC.pas
@@ -1430,7 +1430,7 @@   EventRetainReleaseData = record
     
     public function TestSanity(test_size: integer := 1024*24): TimeSpan?;
     
-    public static function GenerateAndCheckAllPossible(test_size: integer := 1024*24; test_max_seconds: real := 0.5): List<ValueTuple<CLContext,TimeSpan>>;
+    public static function GenerateAndCheckAllPossible(test_size: integer := 1024*24; test_max_seconds: real := 5): List<ValueTuple<CLContext,TimeSpan>>;
     
     private static function LoadTestContext: CLContext;
     
@@ -10030,6 +10030,7 @@ function CLContext.TestSanity(test_size: integer): TimeSpan?;
     for var i := 0 to dvcs.Count-1 do
       if not keep[i] then dvcs[i] := nil;
     dvcs.RemoveAll(d->d=nil);
+    if dvcs.Count=0 then continue;
     
     var chosen := new List<CLDevice>(dvcs.Count);
     foreach var choise in |true,false|.CartesianPower(dvcs.Count) do