paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use is_equal instead of direct def equality in unary minus overload

Browse Source
This commit is contained in:
pierre 2000-06-02 21:13:56 +00:00
parent d16e01cee8
commit 71219c091e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tcmat.pas
View File

@ -344,7 +344,7 @@ implementation
minusdef:=nil;
while assigned(minusdef) do
begin
if (pparaitem(minusdef^.para^.first)^.paratype.def=p^.left^.resulttype) and
if is_equal(pparaitem(minusdef^.para^.first)^.paratype.def,p^.left^.resulttype) and
(pparaitem(minusdef^.para^.first)^.next=nil) then
begin
t:=gencallnode(overloaded_operators[_minus],nil);
@ -452,7 +452,10 @@ implementation
end.
{
$Log$
Revision 1.29 2000-02-17 14:53:43 florian
Revision 1.30 2000-06-02 21:13:56 pierre
* use is_equal instead of direct def equality in unary minus overload
Revision 1.29 2000/02/17 14:53:43 florian
* some updates for the newcg
Revision 1.28 2000/02/09 13:23:08 peter