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

* fixed previous operator change

Browse Source
This commit is contained in:
peter 2003-01-02 22:21:19 +00:00
parent 50862948e5
commit 6a53a30525
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/htypechk.pas
View File

@ -136,8 +136,9 @@ implementation
function isbinaryoperatoroverloadable(treetyp:tnodetype;ld:tdef;lt:tnodetype;rd:tdef;rt:tnodetype) : boolean;
procedure internal_check(treetyp:tnodetype;ld:tdef;lt:tnodetype;rd:tdef;rt:tnodetype;var allowed:boolean);
function internal_check(treetyp:tnodetype;ld:tdef;lt:tnodetype;rd:tdef;rt:tnodetype;var allowed:boolean):boolean;
begin
internal_check:=true;
case ld.deftype of
recorddef,
variantdef :
@ -199,7 +200,8 @@ implementation
is_pchar(rd) or
is_integer(rd) or
(rd.deftype=stringdef) or
is_chararray(rd)) then
is_chararray(rd) or
(rt=niln)) then
begin
allowed:=false;
exit;
@ -238,13 +240,14 @@ implementation
end;
allowed:=true;
end;
else
internal_check:=false;
end;
end;
var
allowed : boolean;
begin
isbinaryoperatoroverloadable:=false;
{ power ** is always possible }
if (treetyp=starstarn) then
begin
@ -254,8 +257,8 @@ implementation
{ order of arguments does not matter so we have to check also
the reversed order }
allowed:=false;
internal_check(treetyp,ld,lt,rd,rt,allowed);
internal_check(treetyp,rd,rt,ld,lt,allowed);
if not internal_check(treetyp,ld,lt,rd,rt,allowed) then
internal_check(treetyp,rd,rt,ld,lt,allowed);
isbinaryoperatoroverloadable:=allowed;
end;
@ -1037,7 +1040,10 @@ implementation
end.
{
$Log$
Revision 1.56 2003-01-02 19:50:21 peter
Revision 1.57 2003-01-02 22:21:19 peter
* fixed previous operator change
Revision 1.56 2003/01/02 19:50:21 peter
* fixed operator checking for objects
* made binary operator checking simpeler