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

* allow nested array constructors inside normal code blocks (body & except)

Browse Source 
git-svn-id: trunk@36102 -
This commit is contained in:
svenbarth 2017-05-04 21:56:33 +00:00
parent 8f4ef91efb
commit 6d512ddac7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pexpr.pas
View File

@ -3290,7 +3290,7 @@ implementation
allow_array_constructor:=old_allow_array_constructor; allow_array_constructor:=old_allow_array_constructor;
{ there could be more elements } { there could be more elements }
until not try_to_consume(_COMMA); until not try_to_consume(_COMMA);
buildp.allow_array_constructor:=allow_array_constructor; buildp.allow_array_constructor:=block_type in [bt_body,bt_except];
factor_read_set:=buildp; factor_read_set:=buildp;
end; end;