paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* array is_equal extended

Browse Source
This commit is contained in:
peter 1999-07-29 11:41:51 +00:00
parent b8f4ee13f1
commit 571c8d89bc
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/types.pas
View File

@ -874,14 +874,23 @@ implementation
end;
end
else
if (def1^.deftype=arraydef) and (def2^.deftype=arraydef) and
(is_open_array(def1) or is_open_array(def2) or
is_array_of_const(def1) or is_array_of_const(def2)) then
if (def1^.deftype=arraydef) and (def2^.deftype=arraydef) then
begin
if parraydef(def1)^.IsArrayOfConst or parraydef(def2)^.IsArrayOfConst then
b:=true
if is_open_array(def1) or is_open_array(def2) or
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)^.definition,parraydef(def2)^.definition);
end
else
b:=is_equal(parraydef(def1)^.definition,parraydef(def2)^.definition);
begin
b:=(parraydef(def1)^.lowrange=parraydef(def2)^.lowrange) and
(parraydef(def1)^.highrange=parraydef(def2)^.highrange) and
is_equal(parraydef(def1)^.definition,parraydef(def2)^.definition) and
is_equal(parraydef(def1)^.rangedef,parraydef(def2)^.rangedef);
end;
end
else
if (def1^.deftype=classrefdef) and (def2^.deftype=classrefdef) then
@ -957,7 +966,10 @@ implementation
end.
{
$Log$
Revision 1.76 1999-07-27 23:39:15 peter
Revision 1.77 1999-07-29 11:41:51 peter
* array is_equal extended
Revision 1.76 1999/07/27 23:39:15 peter
* open array checks also for s32bitdef, because u32bit also has a
high range of -1