paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02: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

30
compiler/psub.pas
View File

@ -1232,32 +1232,32 @@ implementation
begin
if (currpara.varspez in [vs_out,vs_var,vs_const]) then
begin
Message1(parser_w_not_supported_for_inline,'formal parameter');
Message(parser_w_inlining_disabled);
exit;
Message1(parser_w_not_supported_for_inline,'formal parameter');
Message(parser_w_inlining_disabled);
exit;
end;
end;
arraydef :
begin
if is_array_constructor(currpara.vardef) or
is_variant_array(currpara.vardef) then
begin
Message1(parser_w_not_supported_for_inline,'array of const');
Message(parser_w_inlining_disabled);
exit;
begin
if is_array_of_const(currpara.vardef) or
is_variant_array(currpara.vardef) then
begin
Message1(parser_w_not_supported_for_inline,'array of const');
Message(parser_w_inlining_disabled);
exit;
end;
{ open arrays might need re-basing of the index, i.e. if you pass
an array[1..10] as open array, you have to add 1 to all index operations
if you directly inline it }
if is_open_array(currpara.vardef) then
begin
Message1(parser_w_not_supported_for_inline,'open array');
Message(parser_w_inlining_disabled);
exit;
Message1(parser_w_not_supported_for_inline,'open array');
Message(parser_w_inlining_disabled);
exit;
end;
end;
end;
end;
end;
end;
result:=true;
end;