diff --git a/Log/OpenCL.log b/Log/OpenCL.log index 3a4f86f5..fb841bb0 100644 --- 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 index d219ec04..9c7e1f70 100644 --- 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 index 787acd38..a8ec3294 100644 --- 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]