paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:09:25 +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;
end end
else else
{ tvarrec -> array of constconst } { array of tvarrec -> array of const }
if is_array_of_const(def_to) and if is_array_of_const(def_to) and
is_equal(parraydef(def_to)^.elementtype.def,parraydef(def_from)^.elementtype.def) then is_equal(parraydef(def_to)^.elementtype.def,parraydef(def_from)^.elementtype.def) then
begin begin
@ -1445,6 +1445,16 @@ implementation
b:=1; b:=1;
end; end;
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; end;
end; end;
@ -1730,7 +1740,10 @@ implementation
end. end.
{ {
$Log$ $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) * fixed web bug 1363 (merged)
Revision 1.30 2001/01/08 21:43:38 peter Revision 1.30 2001/01/08 21:43:38 peter