paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use ptrint

Browse Source
This commit is contained in:
peter 2004-11-01 22:31:12 +00:00
parent 2d0788e39f
commit e89a336c16
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/webtbf/tw2053.pp
View File

@ -11,13 +11,13 @@ type
TMyRecord = record TMyRecord = record
mr_sglDummy1: array[0..3] of Single; mr_sglDummy1: array[0..3] of Single;
mr_lDummy2 : Longint; mr_lDummy2 : ptrint;
mr_iDummy3 : Integer; mr_iDummy3 : Integer;
mr_iDummy4 : Integer; mr_iDummy4 : Integer;
end; end;
{ TMyRecordArray = array[Integer] of TMyRecord;} { Error } { TMyRecordArray = array[Integer] of TMyRecord;} { Error }
TMyRecordArray = array[Longint] of TMyRecord; { OK } TMyRecordArray = array[Ptrint] of TMyRecord; { OK }
PMyRecordArray = ^TMyRecordArray; PMyRecordArray = ^TMyRecordArray;
var var
@ -28,8 +28,8 @@ begin
GetMem(pArray, 50 * SizeOf(TMyRecord)); GetMem(pArray, 50 * SizeOf(TMyRecord));
Assert(Assigned(pArray)); Assert(Assigned(pArray));
WriteLn('pArray = ', Longint(pArray)); WriteLn('pArray = ', ptrint(pArray));
WriteLn('@(pArray^[0]) = ', Longint(@(pArray^[0]))); WriteLn('@(pArray^[0]) = ', ptrint(@(pArray^[0])));
pArray^[0].mr_lDummy2 := 0; pArray^[0].mr_lDummy2 := 0;
FreeMem(pArray, 50 * SizeOf(TMyRecord)); FreeMem(pArray, 50 * SizeOf(TMyRecord));
@ -38,7 +38,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2002-10-15 15:48:25 carl Revision 1.5 2004-11-01 22:31:12 peter
* use ptrint
Revision 1.4 2002/10/15 15:48:25 carl
- remove Pierre's diff. - remove Pierre's diff.
Revision 1.3 2002/10/15 06:38:29 pierre Revision 1.3 2002/10/15 06:38:29 pierre

16
tests/webtbf/tw2053b.pp
View File

@ -12,17 +12,17 @@ program tb2;
type type
PosInteger = 0 .. high(integer); PosInteger = 0 .. high(integer);
PosLongint = 0 .. high(longint); Posptrint = 0 .. high(ptrint);
TMyRecord = record TMyRecord = record
mr_sglDummy1: array[0..3] of Single; mr_sglDummy1: array[0..3] of Single;
mr_lDummy2 : Longint; mr_lDummy2 : ptrint;
mr_iDummy3 : Integer; mr_iDummy3 : Integer;
mr_iDummy4 : Integer; mr_iDummy4 : Integer;
end; end;
TMyRecordArray = array[PosInteger] of TMyRecord; TMyRecordArray = array[PosInteger] of TMyRecord;
TMyLongRecordArray = array[Longint] of TMyRecord; TMyLongRecordArray = array[ptrint] of TMyRecord;
PMyRecordArray = ^TMyRecordArray; PMyRecordArray = ^TMyRecordArray;
PMyLongRecordArray = ^TMyLongRecordArray; PMyLongRecordArray = ^TMyLongRecordArray;
@ -30,7 +30,7 @@ var
pArray: PMyRecordArray; pArray: PMyRecordArray;
pLongArray : PMyLongRecordArray; pLongArray : PMyLongRecordArray;
size : longint; size : ptrint;
begin begin
@ -44,8 +44,8 @@ begin
Assert(Assigned(pArray)); Assert(Assigned(pArray));
WriteLn('pArray = ', Longint(pArray)); WriteLn('pArray = ', ptrint(pArray));
WriteLn('@(pArray^[0]) = ', Longint(@(pArray^[0]))); WriteLn('@(pArray^[0]) = ', ptrint(@(pArray^[0])));
pArray^[0].mr_lDummy2 := 24; pArray^[0].mr_lDummy2 := 24;
if (pArray^[0].mr_lDummy2<>24) then if (pArray^[0].mr_lDummy2<>24) then
@ -53,8 +53,8 @@ begin
Halt(1); Halt(1);
end; end;
WriteLn('pLongArray = ', Longint(pLongArray)); WriteLn('pLongArray = ', ptrint(pLongArray));
WriteLn('@(pLongArray^[0]) = ', Longint(@(pLongArray^[0]))); WriteLn('@(pLongArray^[0]) = ', ptrint(@(pLongArray^[0])));
pLongArray^[0].mr_lDummy2 := 25; pLongArray^[0].mr_lDummy2 := 25;
if (pLongArray^[0].mr_lDummy2<>25) then if (pLongArray^[0].mr_lDummy2<>25) then