From 5ef9dcdcf9690ab903e989241a63faacb19c1b3d Mon Sep 17 00:00:00 2001
From: Sun Serega <sunserega2@gmail.com>
Date: Fri, 12 Jan 2024 21:11:15 +0200
Subject: [PATCH] compile+release.bat

---
 DataScraping/Reps/OpenCL-Docs   | 2 +-
 PackAll-5 Compile + Release.bat | 8 ++++++++
 PackAll.pas                     | 6 ++++++
 3 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 PackAll-5 Compile + Release.bat

diff --git a/DataScraping/Reps/OpenCL-Docs b/DataScraping/Reps/OpenCL-Docs
index 3e8ef88c..2a783cd4 160000
--- a/DataScraping/Reps/OpenCL-Docs
+++ b/DataScraping/Reps/OpenCL-Docs
@@ -1 +1 @@
-Subproject commit 3e8ef88ce6f8f90c47fb0559dcc5f826bd813fb0
+Subproject commit 2a783cd4b1dd3bbc00ca0e15f787c68bfb4bbf2f
diff --git a/PackAll-5 Compile + Release.bat b/PackAll-5 Compile + Release.bat
new file mode 100644
index 00000000..6877e5fd
--- /dev/null
+++ b/PackAll-5 Compile + Release.bat	
@@ -0,0 +1,8 @@
+@setlocal enableextensions
+@cd /d "%~dp0"
+
+
+
+start PackAll.exe "Stages=Reference+Compile+Release" %*
+
+
diff --git a/PackAll.pas b/PackAll.pas
index f1bd19cb..022ff55e 100644
--- a/PackAll.pas
+++ b/PackAll.pas
@@ -252,9 +252,15 @@
     
     private function MakeModuleCompileTask(mn: string): AsyncTask;
     begin
+      Result := nil;
+      
       if mn       in CurrentStages then Result += EventTask(ModulePackingStage.GetModulePackEv(mn));
       if mn+'ABC' in CurrentStages then Result += EventTask(ModulePackingStage.GetModulePackEv(mn+'ABC'));
       
+      // If no modules are selected, but compile stage is:
+      // - Compile everything except for Dummy
+      if not ModuleStages.Any and FileExists($'Modules/{mn}ABC.pas') then
+        Result += CompTask($'Modules.Packed/{mn}ABC.pas') else
       if mn+'ABC' in CurrentStages then
         Result += CompTask($'Modules.Packed/{mn}ABC.pas') else
       if mn in CurrentStages then