paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 19:06:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use compare_def_ext to test if assignn operator is allowed

Browse Source
This commit is contained in:
peter 2003-01-03 17:17:26 +00:00
parent 60b05c92de
commit 73a08fc4a6
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/htypechk.pas
View File

@ -264,13 +264,17 @@ implementation
function isunaryoperatoroverloadable(rd,dd : tdef; treetyp : tnodetype) : boolean; function isunaryoperatoroverloadable(rd,dd : tdef; treetyp : tnodetype) : boolean;
var
eq : tequaltype;
conv : tconverttype;
pd : tprocdef;
begin begin
isunaryoperatoroverloadable:=false; isunaryoperatoroverloadable:=false;
case treetyp of case treetyp of
assignn : assignn :
begin begin
if (rd.deftype=orddef) and eq:=compare_defs_ext(rd,dd,nothingn,true,false,conv,pd);
(dd.deftype=orddef) then if eq<>te_incompatible then
begin begin
isunaryoperatoroverloadable:=false; isunaryoperatoroverloadable:=false;
exit; exit;
@ -1040,7 +1044,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.57 2003-01-02 22:21:19 peter Revision 1.58 2003-01-03 17:17:26 peter
* use compare_def_ext to test if assignn operator is allowed
Revision 1.57 2003/01/02 22:21:19 peter
* fixed previous operator change * fixed previous operator change
Revision 1.56 2003/01/02 19:50:21 peter Revision 1.56 2003/01/02 19:50:21 peter