paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 08:50:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fix for previous commit

Browse Source
This commit is contained in:
peter 2000-05-11 17:53:40 +00:00
parent 1087b2fb35
commit 5f179d94fb
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/tcadd.pas
View File

@ -61,18 +61,24 @@ implementation
if (p^.treetype=starstarn) or
(ld^.deftype=recorddef) or
(rd^.deftype=recorddef) or
{ array def, but not mmx or chararray+char }
{ array def, but not mmx or chararray+[char,string,chararray] }
((ld^.deftype=arraydef) and
not((cs_mmx in aktlocalswitches) and
is_mmx_able_array(ld)) and
not(is_char(rd) and
is_chararray(ld))
not(is_chararray(ld) and
(is_char(rd) or
is_pchar(rd) or
(rd^.deftype=stringdef) or
is_chararray(rd)))
) or
((rd^.deftype=arraydef) and
not((cs_mmx in aktlocalswitches) and
is_mmx_able_array(rd)) and
not(is_char(ld) and
is_chararray(rd))
not(is_chararray(rd) and
(is_char(ld) or
is_pchar(ld) or
(ld^.deftype=stringdef) or
is_chararray(ld)))
) or
{ <> and = are defined for classes }
((ld^.deftype=objectdef) and
@ -1301,7 +1307,10 @@ implementation
end.
{
$Log$
Revision 1.76 2000-05-11 16:47:37 peter
Revision 1.77 2000-05-11 17:53:40 peter
* small fix for previous commit
Revision 1.76 2000/05/11 16:47:37 peter
* fixed check for overloaded operator with array and chararray check
Revision 1.75 2000/04/25 14:43:36 jonas