mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 00:28:24 +02:00
df973fa1de
of "open array" and "array of const" parameters to the used regvars
for their array accesses if range checking is turned on)
git-svn-id: trunk@3914 -
55 lines
741 B
ObjectPascal
55 lines
741 B
ObjectPascal
program bug1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$r+}
|
|
|
|
uses Classes;
|
|
|
|
type
|
|
|
|
TCTEntry = record
|
|
Name: AnsiString;
|
|
g: Integer;
|
|
end;
|
|
|
|
TCT = record
|
|
Size: Integer;
|
|
Names: array of PChar;
|
|
IReps: array of TCTEntry;
|
|
end;
|
|
|
|
|
|
const
|
|
|
|
C: array [0..2] of TCTEntry =
|
|
((Name:'A'; g:0),
|
|
(Name:'B'; g:0),
|
|
(Name:'C'; g:1));
|
|
|
|
|
|
var
|
|
CTs: array [0..1] of TCT;
|
|
p: Integer;
|
|
|
|
procedure A(T: array of TCTEntry);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
with CTs[p] do begin
|
|
Size := Length(T);
|
|
Setlength(IReps, Size);
|
|
Setlength(Names, Size+1);
|
|
Names[Size] := nil;
|
|
for i := 0 to Size-1 do begin
|
|
Names[i] := PChar(T[i].Name);
|
|
IReps[i] := T[i];
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
p := 0;
|
|
A(C);
|
|
end.
|
|
|