paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow assignment to elements of constant dyn array in delphi mode

Browse Source
This commit is contained in:
peter 2005-02-20 13:12:22 +00:00
parent 00d9868260
commit 339fed5022
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/htypechk.pas
View File

@ -1103,7 +1103,7 @@ implementation
if (tabstractvarsym(tloadnode(hp).symtableentry).varspez=vs_const) then if (tabstractvarsym(tloadnode(hp).symtableentry).varspez=vs_const) then
begin begin
{ allow p^:= constructions with p is const parameter } { allow p^:= constructions with p is const parameter }
if gotderef or (Valid_Const in opts) then if gotderef or gotdynarray or (Valid_Const in opts) then
result:=true result:=true
else else
CGMessagePos(tloadnode(hp).fileinfo,type_e_no_assign_to_const); CGMessagePos(tloadnode(hp).fileinfo,type_e_no_assign_to_const);
@ -2035,7 +2035,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.117 2005-02-14 17:13:06 peter Revision 1.118 2005-02-20 13:12:22 peter
* allow assignment to elements of constant dyn array in delphi mode
Revision 1.117 2005/02/14 17:13:06 peter
* truncate log * truncate log
Revision 1.116 2005/02/14 16:45:00 peter Revision 1.116 2005/02/14 16:45:00 peter