GPU errors won't go silently, so that we can analyze and fix them.

PerfectNumbers.Core/Gpu/PrimeOrderGpuHeuristics.cs

@@ -7,6 +7,7 @@ using System.Numerics;
 using PerfectNumbers.Core;
 using System.Runtime.InteropServices;
 using System.Runtime.CompilerServices;
+using ILGPU.Runtime.OpenCL;
 namespace PerfectNumbers.Core.Gpu;
 
 internal enum GpuPow2ModStatus
@@ -905,20 +906,18 @@ internal static partial class PrimeOrderGpuHeuristics
         try
         {
             var lease = GpuKernelPool.GetKernel(useGpuOrder: true);
-            try
+            var execution = lease.EnterExecutionScope();
-            {
-                using var execution = lease.EnterExecutionScope();
             Accelerator accelerator = lease.Accelerator;
             AcceleratorStream stream = lease.Stream;
 
             var kernel = GetPartialFactorKernel(accelerator);
             SmallPrimeDeviceCache cache = GetSmallPrimeDeviceCache(accelerator);
 
-                using var factorBuffer = accelerator.Allocate1D<ulong>(primeTargets.Length);
+            var factorBuffer = accelerator.Allocate1D<ulong>(primeTargets.Length);
-                using var exponentBuffer = accelerator.Allocate1D<int>(exponentTargets.Length);
+            var exponentBuffer = accelerator.Allocate1D<int>(exponentTargets.Length);
-                using var countBuffer = accelerator.Allocate1D<int>(1);
+            var countBuffer = accelerator.Allocate1D<int>(1);
-                using var remainingBuffer = accelerator.Allocate1D<ulong>(1);
+            var remainingBuffer = accelerator.Allocate1D<ulong>(1);
-                using var fullyFactoredBuffer = accelerator.Allocate1D<byte>(1);
+            var fullyFactoredBuffer = accelerator.Allocate1D<byte>(1);
 
             factorBuffer.MemSetToZero();
             exponentBuffer.MemSetToZero();
@@ -953,15 +952,26 @@ internal static partial class PrimeOrderGpuHeuristics
             fullyFactoredBuffer.View.CopyToCPU(ref fullyFactoredFlag, 1);
             fullyFactored = fullyFactoredFlag != 0;
 
+            factorBuffer.Dispose();
+            exponentBuffer.Dispose();
+            countBuffer.Dispose();
+            remainingBuffer.Dispose();
+            fullyFactoredBuffer.Dispose();
+            execution.Dispose();
+            lease.Dispose();
             return true;
         }
-            finally
+        catch (CLException ex)
         {
-                lease.Dispose();
+            Console.WriteLine($"GPU ERROR ({ex.Error}): {ex.Message}");
-            }
+            factorCount = 0;
+            remaining = value;
+            fullyFactored = false;
+            return false;
         }
         catch (Exception ex) when (ex is AcceleratorException or InternalCompilerException or NotSupportedException or InvalidOperationException or AggregateException)
         {
+            Console.WriteLine($"GPU ERROR: {ex.Message}");
             factorCount = 0;
             remaining = value;
             fullyFactored = false;