mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
4ce4742bc8
of parent procedures which are implicitly accessed from within
nested procedures for range checking purposes as non-regable in
the resulttype pass of the nested procedure (as opposed to in its
pass1/pass2, because by then the regvar assignment of the parent
procedure is already finished) (mantis #8975)
* related fix regarding checking whether the high parameter actually
exists (must check calling convention of the procedure to which the
high parameter belongs, which is not the same as checking that of
the current procedure in case of nested procedures)
git-svn-id: trunk@7512 -
21 lines
344 B
ObjectPascal
21 lines
344 B
ObjectPascal
{ %opt=-CRriot -O-2 -Ooregvar }
|
|
|
|
{Internal FPC2.1.4 error, compile with fpc -B -dDebug -O3}
|
|
procedure bug(const b: array of longint); cdecl;
|
|
procedure intern;
|
|
begin
|
|
if (b[low(b)] <> 1) then {Fatal: Internal error 200409241}
|
|
halt(1);
|
|
end;
|
|
begin
|
|
intern;
|
|
end;
|
|
|
|
const
|
|
a: array[1..3] of longint = (1,2,3);
|
|
begin
|
|
bug(a);
|
|
end.
|
|
|
|
|