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

* tmypointer(12435)^ is an l-value

Browse Source
This commit is contained in:
florian 2005-01-19 20:53:27 +00:00
parent 661b1f39b7
commit b41c21e6d2
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/htypechk.pas
View File

@ -1000,6 +1000,15 @@ implementation
CGMessagePos(hp.fileinfo,type_e_variable_id_expected);
exit;
end;
pointerconstn :
begin
{ to support e.g. @tmypointer(0)^.data; see tests/tbs/tb0481 }
if gotderef then
result:=true
else
CGMessagePos(hp.fileinfo,type_e_no_assign_to_addr);
exit;
end;
addrn :
begin
if gotderef then
@ -1977,7 +1986,10 @@ implementation
end.
{
$Log$
Revision 1.108 2005-01-10 22:10:26 peter
Revision 1.109 2005-01-19 20:53:27 florian
* tmypointer(12435)^ is an l-value
Revision 1.108 2005/01/10 22:10:26 peter
* widestring patches from Alexey Barkovoy
Revision 1.107 2005/01/07 16:22:47 peter