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

* uncommented a bunch of pointer types

Browse Source 
git-svn-id: branches/jvmbackend@18764 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:33:54 +00:00
parent d0e8cd1637
commit 549e51fdfa
1 changed files with 1 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/java/jsystemh_types.inc
View File

@ -256,33 +256,25 @@ Type
NativeInt = PtrInt; NativeInt = PtrInt;
NativeUint = PtrUint; NativeUint = PtrUint;
(*
{ Zero - terminated strings } { Zero - terminated strings }
PChar = ^Char; PChar = ^Char;
PPChar = ^PChar; PPChar = ^PChar;
PPPChar = ^PPChar; PPPChar = ^PPChar;
*)
{ AnsiChar is equivalent of Char, so we need { AnsiChar is equivalent of Char, so we need
to use type renamings } to use type renamings }
TAnsiChar = Char; TAnsiChar = Char;
AnsiChar = Char; AnsiChar = Char;
(*
PAnsiChar = PChar; PAnsiChar = PChar;
PPAnsiChar = PPChar; PPAnsiChar = PPChar;
*)
UCS4Char = type 0..$10ffff; UCS4Char = type 0..$10ffff;
(*
PUCS4Char = ^UCS4Char; PUCS4Char = ^UCS4Char;
*)
{$ifdef CPU16} {$ifdef CPU16}
TUCS4CharArray = array[0..32767 div sizeof(UCS4Char)-1] of UCS4Char; TUCS4CharArray = array[0..32767 div sizeof(UCS4Char)-1] of UCS4Char;
{$else CPU16} {$else CPU16}
TUCS4CharArray = array[0..$effffff] of UCS4Char; TUCS4CharArray = array[0..$effffff] of UCS4Char;
{$endif CPU16} {$endif CPU16}
(*
PUCS4CharArray = ^TUCS4CharArray; PUCS4CharArray = ^TUCS4CharArray;
*)
UCS4String = array of UCS4Char; UCS4String = array of UCS4Char;
UTF8String = type ansistring; UTF8String = type ansistring;
@ -299,23 +291,16 @@ Type
TError = type Longint; TError = type Longint;
{$ifndef FPUNONE} {$ifndef FPUNONE}
(*
PSingle = ^Single; PSingle = ^Single;
PDouble = ^Double; PDouble = ^Double;
PExtended = ^Extended; PExtended = ^Extended;
PPDouble = ^PDouble; PPDouble = ^PDouble;
*)
{$endif} {$endif}
(*
PCurrency = ^Currency; PCurrency = ^Currency;
*)
{$ifdef SUPPORT_COMP} {$ifdef SUPPORT_COMP}
(*
PComp = ^Comp; PComp = ^Comp;
*)
{$endif SUPPORT_COMP} {$endif SUPPORT_COMP}
(*
PSmallInt = ^Smallint; PSmallInt = ^Smallint;
PShortInt = ^Shortint; PShortInt = ^Shortint;
PInteger = ^Integer; PInteger = ^Integer;
@ -340,9 +325,7 @@ Type
PBoolean = ^Boolean; PBoolean = ^Boolean;
PWordBool = ^WordBool; PWordBool = ^WordBool;
PLongBool = ^LongBool; PLongBool = ^LongBool;
*)
PShortString = ^ShortString; PShortString = ^ShortString;
(*
PAnsiString = ^AnsiString; PAnsiString = ^AnsiString;
{$ifndef FPUNONE} {$ifndef FPUNONE}
@ -356,19 +339,15 @@ Type
PWideChar = ^WideChar; PWideChar = ^WideChar;
PPWideChar = ^PWideChar; PPWideChar = ^PWideChar;
PPPWideChar = ^PPWideChar; PPPWideChar = ^PPWideChar;
*)
WChar = Widechar; WChar = Widechar;
UCS2Char = WideChar; UCS2Char = WideChar;
(*
PUCS2Char = PWideChar; PUCS2Char = PWideChar;
PWideString = ^WideString; PWideString = ^WideString;
*)
UnicodeChar = WideChar; UnicodeChar = WideChar;
(*
PUnicodeChar = ^UnicodeChar; PUnicodeChar = ^UnicodeChar;
PUnicodeString = ^UnicodeString; PUnicodeString = ^UnicodeString;
(*
{ Needed for fpc_get_output } { Needed for fpc_get_output }
PText = ^Text; PText = ^Text;
*) *)