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

+ some types for D6 compatibility added

Browse Source
This commit is contained in:
florian 2002-12-21 17:20:27 +00:00
parent 82aef67154
commit ae3e96cdda
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/systemh.inc
View File

@ -239,7 +239,7 @@ Type
{ procedure type } { procedure type }
TProcedure = Procedure; TProcedure = Procedure;
const const
{ Maximum value of the biggest signed and unsigned integer type available} { Maximum value of the biggest signed and unsigned integer type available}
MaxSIntValue = High(ValSInt); MaxSIntValue = High(ValSInt);
@ -249,10 +249,21 @@ const
maxLongint = $7fffffff; maxLongint = $7fffffff;
maxSmallint = 32767; maxSmallint = 32767;
const
maxint = maxsmallint; maxint = maxsmallint;
type
IntegerArray = array[0..$effffff] of Integer;
PIntegerArray = ^IntegerArray;
PointerArray = array [0..512*1024*1024 - 2] of Pointer;
PPointerArray = ^PointerArray;
{$ifndef VER1_0}
TBoundArray = array of Integer;
{$endif VER1_0}
TPCharArray = packed array[0..(MaxLongint div SizeOf(PChar))-1] of PChar;
PPCharArray = ^TPCharArray;
{ Compatibility With TP }
const const
{$ifdef i386} {$ifdef i386}
Test8086 : byte = 2; { Always i386 or newer } Test8086 : byte = 2; { Always i386 or newer }
@ -656,7 +667,10 @@ const
{ {
$Log$ $Log$
Revision 1.61 2002-12-15 22:33:12 peter Revision 1.62 2002-12-21 17:20:27 florian
+ some types for D6 compatibility added
Revision 1.61 2002/12/15 22:33:12 peter
* SetString(WideString,[PChar|PWideChar],Len) added * SetString(WideString,[PChar|PWideChar],Len) added
Revision 1.60 2002/11/16 20:12:22 florian Revision 1.60 2002/11/16 20:12:22 florian