paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 12:09:25 +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

30
compiler/psub.pas
View File

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