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

* fixed array check for operators, becuase array can also be a set

Browse Source
This commit is contained in:
peter 1999-09-10 15:40:46 +00:00
parent 3b5373c08a
commit 40291ee626
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/tcadd.pas
View File

@ -104,9 +104,9 @@ implementation
if (p^.treetype=starstarn) or
(ld^.deftype=recorddef) or
((ld^.deftype=arraydef) and
(rd^.deftype<>orddef) and
((parraydef(ld)^.definition^.deftype<>orddef) or
(porddef(parraydef(ld)^.definition)^.typ<>uchar))) or
(not (rd^.deftype in [setdef,orddef])) and
(not is_open_array(ld))
) or
{ <> and = are defined for classes }
((ld^.deftype=objectdef) and
(not(pobjectdef(ld)^.is_class) or
@ -115,9 +115,9 @@ implementation
) or
(rd^.deftype=recorddef) or
((rd^.deftype=arraydef) and
(ld^.deftype<>orddef) and
((parraydef(rd)^.definition^.deftype<>orddef) or
(porddef(parraydef(rd)^.definition)^.typ<>uchar))) or
(not (ld^.deftype in [setdef,orddef])) and
(not is_open_array(rd))
) or
{ <> and = are defined for classes }
((rd^.deftype=objectdef) and
(not(pobjectdef(rd)^.is_class) or
@ -1135,7 +1135,10 @@ implementation
end.
{
$Log$
Revision 1.45 1999-09-08 16:05:29 peter
Revision 1.46 1999-09-10 15:40:46 peter
* fixed array check for operators, becuase array can also be a set
Revision 1.45 1999/09/08 16:05:29 peter
* pointer add/sub is now as expected and the same results as inc/dec
Revision 1.44 1999/09/07 07:52:19 peter