paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 13:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* valid_for_assign allow properties with calln

Browse Source
This commit is contained in:
peter 1999-11-09 13:29:33 +00:00
parent b8b39e0980
commit a2cdbddb56
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/htypechk.pas
View File

@ -786,8 +786,8 @@ implementation
begin
{ only allow writing if it returns a pointer and we've
found a deref }
if (hp^.resulttype^.deftype=pointerdef) and
gotderef then
if ((hp^.resulttype^.deftype=pointerdef) and gotderef) or
(hp^.isproperty and allowprop) then
valid_for_assign:=true
else
CGMessagePos(hp^.fileinfo,type_e_argument_cant_be_assigned);
@ -840,7 +840,10 @@ implementation
end.
{
$Log$
Revision 1.46 1999-11-08 22:45:33 peter
Revision 1.47 1999-11-09 13:29:33 peter
* valid_for_assign allow properties with calln
Revision 1.46 1999/11/08 22:45:33 peter
* allow typecasting to integer within pointer typecast+deref
Revision 1.45 1999/11/06 14:34:21 peter