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

* some new types added like PBoolean

Browse Source
This commit is contained in:
florian 2001-03-22 23:26:05 +00:00
parent 1008d7faa0
commit 49ed6221f4
1 changed files with 52 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
rtl/inc/systemh.inc
View File

@ -45,15 +45,15 @@
****************************************************************************} ****************************************************************************}
Type Type
shortint = -128..127; ShortInt = -128..127;
SmallInt = -32768..32767; SmallInt = -32768..32767;
{ can't use -2147483648 because of a bug in 1.0.2's val() procedure (JM) } { can't use -2147483648 because of a bug in 1.0.2's val() procedure (JM) }
Longint = +(-2147483647-1)..$7fffffff; Longint = +(-2147483647-1)..$7fffffff;
byte = 0..255; Byte = 0..255;
Word = 0..65535; Word = 0..65535;
dword = cardinal; DWord = Cardinal;
longword = cardinal; LongWord = Cardinal;
Integer = smallint; Integer = SmallInt;
{ at least declare Turbo Pascal real types } { at least declare Turbo Pascal real types }
{$ifdef i386} {$ifdef i386}
@ -84,40 +84,63 @@ Type
{$endif} {$endif}
{ Zero - terminated strings } { Zero - terminated strings }
PChar = ^Char; PChar = ^Char;
PPChar = ^PChar; PPChar = ^PChar;
{ Delphi types } TAnsiChar = Char;
TAnsiChar = Char; AnsiChar = TAnsiChar;
AnsiChar = TAnsiChar; PAnsiChar = ^TAnsiChar;
PAnsiChar = PChar; PPAnsiChar = ^PAnsiChar;
PQWord = ^QWord;
PInt64 = ^Int64;
currency = int64; Currency = Int64;
HRESULT = Longint; HRESULT = Longint;
TDateTime = Double; TDateTime = Double;
Error = Longint; Error = Longint;
PSmallInt = ^Smallint;
PInteger = ^Longint;
PSingle = ^Single; PSingle = ^Single;
PDouble = ^Double; PDouble = ^Double;
PCurrency = ^Currency; PCurrency = ^Currency;
PDate = ^TDateTime; {$ifdef SUPPORT_COMP}
PPWideChar = ^PWideChar; PComp = ^Comp;
PError = ^Error; {$endif SUPPORT_COMP}
PWordBool = ^WordBool; {$ifdef SUPPORT_EXTENDED}
PExtended = ^Extended;
{$endif SUPPORT_EXTENDED}
PSmallInt = ^Smallint;
PInteger = ^Longint;
PByte = ^Byte; PByte = ^Byte;
PWord = ^word; PWord = ^word;
PDWord = ^DWord; PDWord = ^DWord;
PLongint = ^Longint; PLongWord = ^LongWord;
TTextLineBreakStyle = (tlbsLF,tlbsCRLF,tlbsCR); PLongint = ^Longint;
PQWord = ^QWord;
PInt64 = ^Int64;
PPointer = ^Pointer;
PPPointer = ^PPointer;
PBoolean = ^Boolean;
PWordBool = ^WordBool;
PLongBool = ^LongBool;
PShortString = ^ShortString;
PAnsiString = ^AnsiString;
PDate = ^TDateTime;
PError = ^Error;
{$ifdef HASVARIANT}
PVariant = ^Variant;
{$endif HASVARIANT}
{$ifdef HASWIDECHAR} {$ifdef HASWIDECHAR}
PWideChar = ^WideChar; PWideChar = ^WideChar;
PPWideChar = ^PWideChar;
PWideString = ^WideString;
{$endif HASWIDECHAR} {$endif HASWIDECHAR}
TTextLineBreakStyle = (tlbsLF,tlbsCRLF,tlbsCR);
{ procedure type } { procedure type }
TProcedure = Procedure; TProcedure = Procedure;
@ -487,7 +510,10 @@ const
{ {
$Log$ $Log$
Revision 1.17 2001-03-21 23:29:40 florian Revision 1.18 2001-03-22 23:26:05 florian
* some new types added like PBoolean
Revision 1.17 2001/03/21 23:29:40 florian
+ sLineBreak and misc. stuff for Kylix compatiblity + sLineBreak and misc. stuff for Kylix compatiblity
Revision 1.16 2001/01/24 21:47:18 florian Revision 1.16 2001/01/24 21:47:18 florian