paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-15 10:39:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed "array of const" check in r10473 (+ fixed indentation)

Browse Source 
git-svn-id: trunk@10475 -
This commit is contained in:
Jonas Maebe 2008-03-12 10:48:19 +00:00
parent 7d3498bb04
commit 21f14aaeff
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -1239,7 +1239,7 @@ implementation
end; end;
arraydef : arraydef :
begin begin
if is_array_constructor(currpara.vardef) or if is_array_of_const(currpara.vardef) or
is_variant_array(currpara.vardef) then is_variant_array(currpara.vardef) then
begin begin
Message1(parser_w_not_supported_for_inline,'array of const'); Message1(parser_w_not_supported_for_inline,'array of const');