paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 02:18:42 +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;
var
eq : tequaltype;
conv : tconverttype;
pd : tprocdef;
begin
isunaryoperatoroverloadable:=false;
case treetyp of
assignn :
begin
if (rd.deftype=orddef) and
(dd.deftype=orddef) then
eq:=compare_defs_ext(rd,dd,nothingn,true,false,conv,pd);
if eq<>te_incompatible then
begin
isunaryoperatoroverloadable:=false;
exit;
@ -1040,7 +1044,10 @@ implementation
end.
{
$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
Revision 1.56 2003/01/02 19:50:21 peter