paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-19 08:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only check for forwarddefs the definitions that really belong to

Browse Source 
the current procsym
This commit is contained in:
peter 2002-10-06 15:08:59 +00:00
parent a24ab38214
commit 5adf7d30a5
1 changed files with 26 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/defbase.pas
View File

@ -1924,17 +1924,29 @@ implementation
b:=2; b:=2;
end; end;
end; end;
formaldef:
{Just about everything can be converted to a formaldef...} variantdef :
if not (def_from.deftype in [abstractdef,errordef]) then begin
b:=1; if (fromtreetype=niln) then
else
begin begin
{ assignment overwritten ?? } doconv:=tc_equal;
if internal_assignment_overloaded(def_from,def_to,overload_procs)<>nil then b:=1;
b:=2;
end; end;
end; end;
formaldef :
begin
{ Just about everything can be converted to a formaldef...}
if not (def_from.deftype in [abstractdef,errordef]) then
b:=1
else
begin
{ assignment overwritten ?? }
if internal_assignment_overloaded(def_from,def_to,overload_procs)<>nil then
b:=2;
end;
end;
end;
overloaded_assignment_isconvertable :=b; overloaded_assignment_isconvertable :=b;
end; end;
@ -1969,7 +1981,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.17 2002-10-06 12:25:04 florian Revision 1.18 2002-10-06 15:08:59 peter
* only check for forwarddefs the definitions that really belong to
the current procsym
Revision 1.17 2002/10/06 12:25:04 florian
+ proper support of type <id> = type <another id>; + proper support of type <id> = type <another id>;
Revision 1.16 2002/10/05 12:43:24 carl Revision 1.16 2002/10/05 12:43:24 carl