t_id
1114
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443632901 | 934961 | True | False | Success, compilation failed |
Record count: 1
{ %Fail }
{ new with type of size > 2Gb }
{ Source provided for Free Pascal Bug Report 2053 }
{ Submitted by "Luis Castedo" on 2002-07-24 }
{ e-mail: castedo@elai.upm.es }
program tb2;
{$MODE TP}
{$C+}
type
PosInteger = 0 .. high(integer);
PosLongint = 0 .. high(longint);
TMyRecord = record
mr_sglDummy1: array[0..3] of Single;
mr_lDummy2 : Longint;
mr_iDummy3 : Integer;
mr_iDummy4 : Integer;
end;
TMyRecordArray = array[PosInteger] of TMyRecord;
TMyLongRecordArray = array[Longint] of TMyRecord;
PMyRecordArray = ^TMyRecordArray;
PMyLongRecordArray = ^TMyLongRecordArray;
var
pArray: PMyRecordArray;
pLongArray : PMyLongRecordArray;
size : longint;
begin
new(parray);
new(pLongArray);
size:= 50 * SizeOf(TMyRecord);
GetMem(pArray, size);
FillChar(pArray^,size,#0);
GetMem(pLongArray, 50 * SizeOf(TMyRecord));
FillChar(pLongArray^,size,#0);
Assert(Assigned(pArray));
WriteLn('pArray = ', Longint(pArray));
WriteLn('@(pArray^[0]) = ', Longint(@(pArray^[0])));
pArray^[0].mr_lDummy2 := 24;
if (pArray^[0].mr_lDummy2<>24) then
begin
Halt(1);
end;
WriteLn('pLongArray = ', Longint(pLongArray));
WriteLn('@(pLongArray^[0]) = ', Longint(@(pLongArray^[0])));
pLongArray^[0].mr_lDummy2 := 25;
if (pLongArray^[0].mr_lDummy2<>25) then
begin
Halt(1);
end;
FreeMem(pArray, size);
FreeMem(pLongArray, size);
end.