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

* unary minus operator overloading was broken

Browse Source 
+ accept pointer args in binary operator
This commit is contained in:
pierre 2000-06-06 20:25:43 +00:00
parent 1d6b7e9050
commit 679c988bc3
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/htypechk.pas
View File

@ -593,6 +593,22 @@ implementation
(treetyp=starstarn) or
(ld^.deftype=recorddef) or
(rd^.deftype=recorddef) or
((rd^.deftype=pointerdef) and
not(is_pchar(rd) and (treetyp=addn)) and
(not(ld^.deftype in [pointerdef,objectdef,classrefdef,procvardef]) or
not (treetyp in [equaln,unequaln,gtn,gten,ltn,lten,subn])
) and
(not is_integer(ld) or not (treetyp in [addn,subn]))
) or
((ld^.deftype=pointerdef) and
not(is_pchar(ld) and (treetyp=addn)) and
(not(rd^.deftype in [pointerdef,objectdef,classrefdef,procvardef]) and
((not is_integer(rd) and (rd^.deftype<>objectdef)
and (rd^.deftype<>classrefdef)) or
not (treetyp in [equaln,unequaln,gtn,gten,ltn,lten,addn,subn])
)
)
) or
{ array def, but not mmx or chararray+[char,string,chararray] }
((ld^.deftype=arraydef) and
not((cs_mmx in aktlocalswitches) and
@ -656,7 +672,7 @@ implementation
isunaryoperatoroverloadable:=not is_equal(rd,dd); PM }
end
{ should we force that rd and dd are equal ?? }
else if (treetyp=unaryminusn) then
else if (treetyp=subn { unaryminusn }) then
begin
isunaryoperatoroverloadable:=
not is_integer(rd) and not (rd^.deftype=floatdef)
@ -1104,7 +1120,11 @@ implementation
end.
{
$Log$
Revision 1.67 2000-06-05 20:41:17 pierre
Revision 1.68 2000-06-06 20:25:43 pierre
* unary minus operator overloading was broken
+ accept pointer args in binary operator
Revision 1.67 2000/06/05 20:41:17 pierre
+ support for NOT overloading
+ unsupported overloaded operators generate errors