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

* first check for overloaded operator before doing inserting any

Browse Source 
typeconvs
This commit is contained in:
peter 2001-05-19 21:11:50 +00:00
parent 24f64c776f
commit 002118ddf4
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/nadd.pas
View File

@ -115,6 +115,15 @@ implementation
resulttypepass(right);
end;
{ allow operator overloading }
hp:=self;
if isbinaryoverloaded(hp) then
begin
resulttypepass(hp);
result:=hp;
exit;
end;
{ is one a real float, then both need to be floats, this
need to be done before the constant folding so constant
operation on a float and int are also handled }
@ -443,15 +452,6 @@ implementation
exit;
end;
{ allow operator overloading }
hp:=self;
if isbinaryoverloaded(hp) then
begin
resulttypepass(hp);
result:=hp;
exit;
end;
{ but an int/int gives real/real! }
if nodetype=slashn then
begin
@ -1217,7 +1217,11 @@ begin
end.
{
$Log$
Revision 1.26 2001-05-19 12:53:52 peter
Revision 1.27 2001-05-19 21:11:50 peter
* first check for overloaded operator before doing inserting any
typeconvs
Revision 1.26 2001/05/19 12:53:52 peter
* check set types when doing constant set evaluation
Revision 1.25 2001/04/13 01:22:08 peter