mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
996e325175
generator to the typecheck pass, so that it also works for platforms
that use the parentfpstruct way to handle accesses to nested frames
in case the array has been migrated to such a parentfpstruct
o additionally, the number of comparisons for such range checks
has been reduced from 3 (for signed indices) or 2 (for unsigned
indices) to 1 in all cases
o the range checking code is disabled for the JVM target, as the
JVM automatically range checks all array accesses itself anyway
git-svn-id: trunk@34034 -
23 lines
348 B
ObjectPascal
23 lines
348 B
ObjectPascal
{ %opt=-CRriot -O-2 -Ooregvar }
|
|
{ %fail }
|
|
|
|
{Internal FPC2.1.4 error, compile with fpc -B -dDebug -O3}
|
|
procedure bug(var b: array of longint);
|
|
|
|
procedure intern;
|
|
begin
|
|
if (b[low(b)-1] <> 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.
|
|
|
|
|