paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

allow gettting the address of read-only typedconsts

Browse Source
This commit is contained in:
peter 2005-04-25 08:59:07 +00:00
parent c1f4f09911
commit f11458e457
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/htypechk.pas
View File

@ -1148,7 +1148,8 @@ implementation
end;
typedconstsym :
begin
if ttypedconstsym(tloadnode(hp).symtableentry).is_writable then
if ttypedconstsym(tloadnode(hp).symtableentry).is_writable or
(valid_addr in opts) then
result:=true
else
CGMessagePos(hp.fileinfo,type_e_no_assign_to_const);
@ -2062,7 +2063,10 @@ implementation
end.
{
$Log$
Revision 1.123 2005-04-08 15:18:32 peter
Revision 1.124 2005-04-25 08:59:07 peter
allow gettting the address of read-only typedconsts
Revision 1.123 2005/04/08 15:18:32 peter
support string[index] for const/var assignment
Revision 1.122 2005/04/01 07:12:29 marco