paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 06:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also test the new for type>2Gb

Browse Source
This commit is contained in:
pierre 2002-10-31 15:35:12 +00:00
parent 00d7da7aad
commit 0f45e9f38f
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
tests/webtbf/tw2053b.pp Normal file
View File

@ -0,0 +1,69 @@
{ %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.