Преглед изворни кода

* uncommented a bunch of pointer types

git-svn-id: branches/jvmbackend@18764 -
Jonas Maebe пре 14 година
родитељ
комит
549e51fdfa
1 измењених фајлова са 1 додато и 22 уклоњено
  1. 1 22
      rtl/java/jsystemh_types.inc

+ 1 - 22
rtl/java/jsystemh_types.inc

@@ -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;
 *)