paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-27 19:13:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tvarrec -> array of const fixed

Browse Source
This commit is contained in:
peter 2001-02-20 21:44:25 +00:00
parent 891a5e27b4
commit b47af8e4dd
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/types.pas
View File

@ -1418,7 +1418,7 @@ implementation
end;
end
else
{ tvarrec -> array of constconst }
{ array of tvarrec -> array of const }
if is_array_of_const(def_to) and
is_equal(parraydef(def_to)^.elementtype.def,parraydef(def_from)^.elementtype.def) then
begin
@ -1445,6 +1445,16 @@ implementation
b:=1;
end;
end;
recorddef :
begin
{ tvarrec -> array of constconst }
if is_array_of_const(def_to) and
is_equal(def_from,parraydef(def_to)^.elementtype.def) then
begin
doconv:=tc_equal;
b:=1;
end;
end;
end;
end;
end;
@ -1730,7 +1740,10 @@ implementation
end.
{
$Log$
Revision 1.31 2001-01-22 11:20:15 jonas
Revision 1.32 2001-02-20 21:44:25 peter
* tvarrec -> array of const fixed
Revision 1.31 2001/01/22 11:20:15 jonas
* fixed web bug 1363 (merged)
Revision 1.30 2001/01/08 21:43:38 peter