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