paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:46:00 +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 if (p^.treetype=starstarn) or
(ld^.deftype=recorddef) or (ld^.deftype=recorddef) or
((ld^.deftype=arraydef) and ((ld^.deftype=arraydef) and
(rd^.deftype<>orddef) and (not (rd^.deftype in [setdef,orddef])) and
((parraydef(ld)^.definition^.deftype<>orddef) or (not is_open_array(ld))
(porddef(parraydef(ld)^.definition)^.typ<>uchar))) or ) or
{ <> and = are defined for classes } { <> and = are defined for classes }
((ld^.deftype=objectdef) and ((ld^.deftype=objectdef) and
(not(pobjectdef(ld)^.is_class) or (not(pobjectdef(ld)^.is_class) or
@ -115,9 +115,9 @@ implementation
) or ) or
(rd^.deftype=recorddef) or (rd^.deftype=recorddef) or
((rd^.deftype=arraydef) and ((rd^.deftype=arraydef) and
(ld^.deftype<>orddef) and (not (ld^.deftype in [setdef,orddef])) and
((parraydef(rd)^.definition^.deftype<>orddef) or (not is_open_array(rd))
(porddef(parraydef(rd)^.definition)^.typ<>uchar))) or ) or
{ <> and = are defined for classes } { <> and = are defined for classes }
((rd^.deftype=objectdef) and ((rd^.deftype=objectdef) and
(not(pobjectdef(rd)^.is_class) or (not(pobjectdef(rd)^.is_class) or
@ -1135,7 +1135,10 @@ implementation
end. end.
{ {
$Log$ $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 * pointer add/sub is now as expected and the same results as inc/dec
Revision 1.44 1999/09/07 07:52:19 peter Revision 1.44 1999/09/07 07:52:19 peter