set f.changed_by_fixer in FuncPPTFixer and FuncLimitOvrsFixer

SunSerega · Aug 26, 2024 · c0e989b · c0e989b
1 parent 49ebce2
commit c0e989b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 19 deletions.
diff --git a/Log/OpenCL.log b/Log/OpenCL.log
@@ -55,19 +55,10 @@ Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: F
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: Func [cl::GetAcceleratorInfo + INTEL] could not generate overload: no output type info for Group [cl::AcceleratorInfo] Enum [cl::ACCELERATOR_DESCRIPTOR]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Dumping Feature items
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::CompileProgram]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueFillBuffer]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueMapImage]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueMigrateMemObjects]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueNativeKernel]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 30>12 overloads of non-fixed Func [cl::EnqueueNDRangeKernel]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueReadBuffer]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMFree]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMMemFill]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMMigrateMem]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueWriteBuffer]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Dumping Extension items
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMFree + ARM]
-Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMMemFill + ARM]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueMigrateMemObject + EXT]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 30>12 overloads of non-fixed Func [cl::EnqueueGenerateMipmap + IMG]
 Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueAcquireGrallocObjects + IMG]

diff --git a/Packing/Template/LowLvl/CodeContainerItems.pas b/Packing/Template/LowLvl/CodeContainerItems.pas
@@ -2979,7 +2979,7 @@   FuncParamTChanges = record
         raise new MessageException($'ERROR: {FixerInfo(f)} had wrong param count');
 
       for var i := 0 to changes.Length-1 do
-        foreach var (is_add, t) in changes[i].changes_maker() do
+        foreach var (is_add, t) in changes[i].changes_maker().OrderBy(\(is_add, t) -> is_add) do
           if is_add then
           begin
             if t in f.possible_par_types[i+ind_nudge] then
@@ -2991,12 +2991,16 @@   FuncParamTChanges = record
               if t.var_arg and ((t.tname='IntPtr') or t.IsGeneric) then
                 if ppt.Remove(new FuncParamT(t.is_const, false, 0, KnownDirectTypes.IntPtr)) then
                   ppt.Add(new FuncParamT(t.is_const, false, 0, KnownDirectTypes.Pointer));
+              if not is_auto_fixer then
+                f.changed_by_fixer := true;
             end;
           end else
           begin
             if f.possible_par_types[i+ind_nudge].Remove(t) then
               self.ReportUsed else
               ErrorInfo(f, 'remove', i+ind_nudge, t, f.possible_par_types[i+ind_nudge]);
+            if not is_auto_fixer then
+              f.changed_by_fixer := true;
           end;
 
       if is_auto_fixer then
@@ -3093,6 +3097,7 @@   FuncParamTChanges = record
         Otp($'WARNING: {FixerInfo(f)} has not limited pars: {ObjectToString(unlimited_pars)}');
 
       self.ReportUsed;
+      f.changed_by_fixer := true;
       Result := false;
     end;
 

diff --git a/Packing/Template/LowLvl/OpenCL/Log/Essentials.log b/Packing/Template/LowLvl/OpenCL/Log/Essentials.log
@@ -56,19 +56,10 @@ Func [cl::GetProgramInfo] did not generate overload: output type for Group [cl::
 WARNING: Func [cl::GetAcceleratorInfo + INTEL] could not generate overload: no output type info for Group [cl::AcceleratorInfo] Enum [cl::ACCELERATOR_DESCRIPTOR]
 Dumping Feature items
 WARNING: 18>12 overloads of non-fixed Func [cl::CompileProgram]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueFillBuffer]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueMapImage]
 WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueMigrateMemObjects]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueNativeKernel]
-WARNING: 30>12 overloads of non-fixed Func [cl::EnqueueNDRangeKernel]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueReadBuffer]
 WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMFree]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMMemFill]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMMigrateMem]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueWriteBuffer]
 Dumping Extension items
 WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMFree + ARM]
-WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueSVMMemFill + ARM]
 WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueMigrateMemObject + EXT]
 WARNING: 30>12 overloads of non-fixed Func [cl::EnqueueGenerateMipmap + IMG]
 WARNING: 18>12 overloads of non-fixed Func [cl::EnqueueAcquireGrallocObjects + IMG]