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

* delphi compatible array types

Browse Source
This commit is contained in:
peter 2002-01-25 17:41:25 +00:00
parent 44b7972e01
commit 77bb50032c
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/objpas.pp
View File

@ -31,6 +31,17 @@ unit objpas;
{ Ansistring are the default } { Ansistring are the default }
PString = PAnsiString; PString = PAnsiString;
{ array types }
IntegerArray = array[0..$effffff] of Integer;
TIntegerArray = IntegerArray;
PIntegerArray = ^IntegerArray;
PointerArray = array [0..512*1024*1024-2] of Pointer;
TPointerArray = PointerArray;
PPointerArray = ^PointerArray;
{$ifdef HASINTF}
TBoundArray = array of integer;
{$endif HASINTF}
{**************************************************************************** {****************************************************************************
Compatibility routines. Compatibility routines.
****************************************************************************} ****************************************************************************}
@ -369,7 +380,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 2002-01-06 21:59:13 peter Revision 1.10 2002-01-25 17:41:25 peter
* delphi compatible array types
Revision 1.9 2002/01/06 21:59:13 peter
* regenerated * regenerated
Revision 1.8 2001/10/22 21:19:33 peter Revision 1.8 2001/10/22 21:19:33 peter