paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-26 02:39:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

* valid_for_assign support for calln,asn

Browse Source
This commit is contained in:
peter 1999-10-27 16:04:45 +00:00
parent 7ab2ee0e79
commit e2134ddcab
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/htypechk.pas
View File

@ -742,6 +742,7 @@ implementation
hp:=hp^.left;
end;
typeconvn,
asn,
vecn,
subscriptn :
hp:=hp^.left;
@ -767,6 +768,17 @@ implementation
valid_for_assign:=true;
exit;
end;
calln :
begin
{ only allow writing if it returns a pointer and we've
found a deref }
if (hp^.resulttype^.deftype=pointerdef) and
gotderef then
valid_for_assign:=true
else
CGMessagePos(hp^.fileinfo,type_e_argument_cant_be_assigned);
exit;
end;
loadn :
begin
case hp^.symtableentry^.typ of
@ -814,7 +826,10 @@ implementation
end.
{
$Log$
Revision 1.42 1999-10-26 12:30:41 peter
Revision 1.43 1999-10-27 16:04:45 peter
* valid_for_assign support for calln,asn
Revision 1.42 1999/10/26 12:30:41 peter
* const parameter is now checked
* better and generic check if a node can be used for assigning
* export fixes