paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:49:19 +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; end;
typedconstsym : typedconstsym :
begin begin
if ttypedconstsym(tloadnode(hp).symtableentry).is_writable then if ttypedconstsym(tloadnode(hp).symtableentry).is_writable or
(valid_addr in opts) then
result:=true result:=true
else else
CGMessagePos(hp.fileinfo,type_e_no_assign_to_const); CGMessagePos(hp.fileinfo,type_e_no_assign_to_const);
@ -2062,7 +2063,10 @@ implementation
end. end.
{ {
$Log$ $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 support string[index] for const/var assignment
Revision 1.122 2005/04/01 07:12:29 marco Revision 1.122 2005/04/01 07:12:29 marco