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

* array of const isn't equal with array of <type> (merged)

Browse Source
This commit is contained in:
peter 2000-09-10 20:16:21 +00:00
parent 22d3553de1
commit 13afe3efbe
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/types.pas
View File

@ -1031,14 +1031,17 @@ implementation
else
if (def1^.deftype=arraydef) and (def2^.deftype=arraydef) then
begin
if is_open_array(def1) or is_open_array(def2) or
is_array_of_const(def1) or is_array_of_const(def2) then
if is_array_of_const(def1) or is_array_of_const(def2) then
begin
if parraydef(def1)^.IsArrayOfConst or parraydef(def2)^.IsArrayOfConst then
b:=true
else
b:=is_equal(parraydef(def1)^.elementtype.def,parraydef(def2)^.elementtype.def);
b:=(is_array_of_const(def1) and is_array_of_const(def2)) or
(is_array_of_const(def1) and is_array_constructor(def2)) or
(is_array_of_const(def2) and is_array_constructor(def1));
end
else
if is_open_array(def1) or is_open_array(def2) then
begin
b:=is_equal(parraydef(def1)^.elementtype.def,parraydef(def2)^.elementtype.def);
end
else
begin
b:=not(m_tp in aktmodeswitches) and
@ -1140,7 +1143,10 @@ implementation
end.
{
$Log$
Revision 1.8 2000-08-19 19:51:03 peter
Revision 1.9 2000-09-10 20:16:21 peter
* array of const isn't equal with array of <type> (merged)
Revision 1.8 2000/08/19 19:51:03 peter
* fixed bug with comparing constsym strings
Revision 1.7 2000/08/16 13:06:07 florian
@ -1161,4 +1167,4 @@ end.
Revision 1.2 2000/07/13 11:32:53 michael
+ removed logs
}
}