Warn outdated PackAll and TODO's

Modules.Packed/OpenCLABC.pas

@@ -57,6 +57,12 @@
 //===================================
 // Обязательно сделать до следующей стабильной версии:
 
+//TODO Перепродумать скрытие суфикса вендоров
+// - В случае энум это местами путает, потому что не сразу видно что имя из расширения
+// --- Туда бы хотя бы описание, откуда его достали
+// - А в именах функций суфикс совпадающий с суфиксом расширения бесполезен
+// --- Когда он НЕ совпадает с суфиксом расширения?
+
 //TODO Скрывать из анализатора кода _adr в Н.У. модулях
 // - А то сейчас его поверх самих функций показывает
 

Modules/OpenCLABC.pas

@@ -47,6 +47,12 @@
 //===================================
 // Обязательно сделать до следующей стабильной версии:
 
+//TODO Перепродумать скрытие суфикса вендоров
+// - В случае энум это местами путает, потому что не сразу видно что имя из расширения
+// --- Туда бы хотя бы описание, откуда его достали
+// - А в именах функций суфикс совпадающий с суфиксом расширения бесполезен
+// --- Когда он НЕ совпадает с суфиксом расширения?
+
 //TODO Скрывать из анализатора кода _adr в Н.У. модулях
 // - А то сейчас его поверх самих функций показывает
 

PackAll.pas

@@ -461,6 +461,20 @@
 
     // ====================================================
 
+    begin
+      var exe_fname := GetEXEFileName;
+      var pas_fname := System.IO.Path.ChangeExtension(exe_fname, '.pas');
+      if FileExists(pas_fname) then
+      begin
+        var exe_mod_time := System.IO.FileInfo.Create(exe_fname).LastWriteTime;
+        var pas_mod_time := System.IO.FileInfo.Create(pas_fname).LastWriteTime;
+        if exe_mod_time < pas_mod_time then
+          Otp('WARNING: PackAll.pas was modified. Please recompile it');
+      end;
+    end;
+
+    // ====================================================
+
     begin
       var arg := CommandLineArgs.SingleOrDefault(arg->arg.StartsWith('Stages='));
 

Packing/Descriptions/OpenCLABC.predoc

@@ -57,6 +57,12 @@ unit OpenCLABC;
 //===================================
 // Обязательно сделать до следующей стабильной версии:
 
+//TODO Перепродумать скрытие суфикса вендоров
+// - В случае энум это местами путает, потому что не сразу видно что имя из расширения
+// --- Туда бы хотя бы описание, откуда его достали
+// - А в именах функций суфикс совпадающий с суфиксом расширения бесполезен
+// --- Когда он НЕ совпадает с суфиксом расширения?
+
 //TODO Скрывать из анализатора кода _adr в Н.У. модулях
 // - А то сейчас его поверх самих функций показывает