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

* merged from 0-99-12 branch

Browse Source
This commit is contained in:
pierre 1999-06-17 15:32:48 +00:00
parent a626615439
commit 7a913109ff
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/tcadd.pas
View File

@ -109,7 +109,10 @@ implementation
{ overloaded operator ? }
if (p^.treetype=starstarn) or
(ld^.deftype=recorddef) or
(ld^.deftype=arraydef) or
((ld^.deftype=arraydef) and
(rd^.deftype<>orddef) and
((parraydef(ld)^.definition^.deftype<>orddef) or
(porddef(parraydef(ld)^.definition)^.typ<>uchar))) or
{ <> and = are defined for classes }
((ld^.deftype=objectdef) and
(not(pobjectdef(ld)^.isclass) or
@ -117,7 +120,10 @@ implementation
)
) or
(rd^.deftype=recorddef) or
(rd^.deftype=arraydef) or
((rd^.deftype=arraydef) and
(ld^.deftype<>orddef) and
((parraydef(rd)^.definition^.deftype<>orddef) or
(porddef(parraydef(rd)^.definition)^.typ<>uchar))) or
{ <> and = are defined for classes }
((rd^.deftype=objectdef) and
(not(pobjectdef(rd)^.isclass) or
@ -1096,7 +1102,13 @@ implementation
end.
{
$Log$
Revision 1.35 1999-06-17 13:19:57 pierre
Revision 1.36 1999-06-17 15:32:48 pierre
* merged from 0-99-12 branch
Revision 1.34.2.2 1999/06/17 15:25:07 pierre
* for arrays of char operators can not be overloaded
Revision 1.35 1999/06/17 13:19:57 pierre
* merged from 0_99_12 branch
Revision 1.34.2.1 1999/06/17 12:35:23 pierre