paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 20:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fixed

Browse Source 
* cosmetics: trailing spaces removed
This commit is contained in:
florian 2024-10-27 17:54:34 +01:00
parent 8784dbc095
commit 75d7b66bdf
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/pgenutil.pas
View File

@ -878,7 +878,7 @@ uses
target_param,
caller_param : ttypesym;
begin
{ the target and the caller must the same generic def
{ the target and the caller must the same generic def
with the same set of generic parameters }
if target_def.genericdef<>caller_def.genericdef then
internalerror(2021020909);
@ -904,15 +904,15 @@ uses
end;
end;
{ specialize arrays by using element types but arrays may be multi-dimensional
{ specialize arrays by using element types but arrays may be multi-dimensional
so we need to examine the caller/target pairs recursively in order to
verify the dimensionality is equal }
function handle_arrays(owner:tprocdef;target_def,caller_def:tarraydef;out target_element,caller_element:tdef):boolean;
begin
{ the target and the caller are both arrays and the target is a
{ the target and the caller are both arrays and the target is a
specialization so we can recurse into the targets element def }
if is_array_literal(target_def.elementdef) and
is_array_literal(caller_def.elementdef) and
if is_array_literal(target_def.elementdef) and
is_array_literal(caller_def.elementdef) and
target_def.is_specialization then
result:=handle_arrays(owner,tarraydef(target_def.elementdef),tarraydef(caller_def.elementdef),target_element,caller_element)
else
@ -1128,7 +1128,7 @@ uses
exit;
end;
{ check to make sure the generic parameters are all used
{ check to make sure the generic parameters are all used
at least once in the caller parameters. }
count:=0;
for i:=0 to genericdef.genericparas.count-1 do
@ -1157,7 +1157,7 @@ uses
target_def:=tparavarsym(paras[i]).vardef;
target_key:='';
{ strings are compatible with "array of T" so we
{ strings are compatible with "array of T" so we
need to use the element type for specialization }
if is_stringlike(caller_def) and
is_array_literal(target_def) and
@ -1167,10 +1167,10 @@ uses
target_key:=generic_param_hash(target_def);
caller_def:=chartype_for_stringlike(caller_def);
end
{ non-uniform array constructors (i.e. array of const) are not compatible
{ non-uniform array constructors (i.e. array of const) are not compatible
with normal arrays like "array of T" so we reject them }
else if is_array_literal(target_def) and
(caller_def.typ=arraydef) and
(caller_def.typ=arraydef) and
(ado_IsConstructor in tarraydef(caller_def).arrayoptions) and
(ado_IsArrayOfConst in tarraydef(caller_def).arrayoptions) then
begin
@ -1186,15 +1186,15 @@ uses
target_key:=generic_param_hash(target_def);
end
{ handle generic procvars }
else if (caller_def.typ=procvardef) and
(target_def.typ=procvardef) and
else if (caller_def.typ=procvardef) and
(target_def.typ=procvardef) and
tprocvardef(target_def).is_specialization and
handle_procvars(genericparams,callerparams,target_def,caller_def) then
begin
continue;
end
{ handle specialized objects by taking the base class as the type to specialize }
else if is_class_or_object(caller_def) and
{ handle specialized objects by taking the base class as the type to specialize }
else if is_class_or_object(caller_def) and
is_class_or_object(target_def) and
genericdef.is_generic_param(target_def) then
begin
@ -1272,7 +1272,7 @@ uses
end;
var
i,j : integer;
i,j,k : integer;
srsym : tprocsym;
callerparams : tfplist;
pd : tprocdef;