* cleaned up redundant declarations of types like PP(P)Char/Byte and moved them to the system unit

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14481 3ad0048d-3df7-0310-abae-a5850022a9f2

17 files changed, 0 insertions, 39 deletions

diff --git a/packages/bfd/src/bfd.pas b/packages/bfd/src/bfd.pas
index c8277cf698..0e6286668b 100644
--- a/packages/bfd/src/bfd.pas
+++ b/packages/bfd/src/bfd.pas
@@ -132,7 +132,6 @@ type
 
   flagword = LongWord;  (* 32 bits of flags *)
 
-  pppchar = ^ppchar;
   Pbfd_byte = ^bfd_byte;
   bfd_byte = Byte;
   bfd_boolean = LongBool;
diff --git a/packages/dbus/src/dbus-types.inc b/packages/dbus/src/dbus-types.inc
index 265a7dd0e0..65253156d0 100644
--- a/packages/dbus/src/dbus-types.inc
+++ b/packages/dbus/src/dbus-types.inc
@@ -29,8 +29,6 @@ type
 
 { boolean size must be fixed at 4 bytes due to wire protocol! }
   dbus_bool_t = dbus_uint32_t;
-
-  PPPChar = ^PPChar;
   
   va_list = Pointer;
 
diff --git a/packages/fcl-db/src/dbase/dbf_prsdef.pas b/packages/fcl-db/src/dbase/dbf_prsdef.pas
index 807bfebeca..91a6ed11e7 100644
--- a/packages/fcl-db/src/dbase/dbf_prsdef.pas
+++ b/packages/fcl-db/src/dbase/dbf_prsdef.pas
@@ -18,15 +18,10 @@ type
   TExpressionType = (etInteger, etString, etBoolean, etLargeInt, etFloat, etDateTime,
     etLeftBracket, etRightBracket, etComma, etUnknown);
 
-  PPChar = ^PChar;
-  PBoolean = ^Boolean;
-  PInteger = ^Integer;
-  PDateTime = ^TDateTime;
   EParserException = class(Exception);
   PExpressionRec = ^TExpressionRec;
   PDynamicType = ^TDynamicType;
   PDateTimeRec = ^TDateTimeRec;
-  PDouble = ^Double;
 {$ifdef SUPPORT_INT64}
   PLargeInt = ^Int64;
 {$endif}
diff --git a/packages/fcl-extra/src/win/ServiceManager.pas b/packages/fcl-extra/src/win/ServiceManager.pas
index f827a7ca46..ccdc90ee76 100644
--- a/packages/fcl-extra/src/win/ServiceManager.pas
+++ b/packages/fcl-extra/src/win/ServiceManager.pas
@@ -202,7 +202,6 @@ ResourceString
 {$ifdef ver130}
 
 Type
-  PPChar = ^PChar;
   PCharArray = Array[Word] of PChar;
   PPCharArray = ^PCharArray;
 
diff --git a/packages/gnome1/src/libgnome/libgnome.pp b/packages/gnome1/src/libgnome/libgnome.pp
index b132c43b3c..03b711854b 100644
--- a/packages/gnome1/src/libgnome/libgnome.pp
+++ b/packages/gnome1/src/libgnome/libgnome.pp
@@ -15,7 +15,6 @@ const
  libgnomedll='gnome';
 
 Type
-  PPPChar = ^PPChar;
   PPPgChar = ^PPgChar;
   PPPgfloat = ^PPgfloat;
   PPgfloat = ^Pgfloat;
diff --git a/packages/gtk1/src/gdk/gdktypes.pp b/packages/gtk1/src/gdk/gdktypes.pp
index 50eaa0d8d3..2838567815 100644
--- a/packages/gtk1/src/gdk/gdktypes.pp
+++ b/packages/gtk1/src/gdk/gdktypes.pp
@@ -8,7 +8,6 @@
 {$ifdef read_interface}
 
    type
-     PPPChar   = ^PPchar;
      PPguchar  = Pguchar;
      PPgchar   = ^Pgchar;
      PPPgchar  = ^PPgchar;
diff --git a/packages/gtk2/src/glib/gtypes.inc b/packages/gtk2/src/glib/gtypes.inc
index 5ee8479711..91cd6e4577 100644
--- a/packages/gtk2/src/glib/gtypes.inc
+++ b/packages/gtk2/src/glib/gtypes.inc
@@ -12,7 +12,6 @@
      qword = Int64;
    {$ENDIF}
 
-   PPPchar  = ^PPchar;
    PPPgchar = ^PPgchar;
    PPgchar  = ^Pgchar;
    {$IFNDEF KYLIX}
diff --git a/packages/libc/src/glue.inc b/packages/libc/src/glue.inc
index 4211ab0f74..48b7ec3b1a 100644
--- a/packages/libc/src/glue.inc
+++ b/packages/libc/src/glue.inc
@@ -15,8 +15,6 @@ Type
   wchar_t = widechar;
   Pwchar_t = ^wchar_t;
   PPwchar_t = ^Pwchar_t;
-  PPByte = ^PByte;
-  PPPChar = ^PPChar;
 
 { ---------------------------------------------------------------------
     Declarations moved forward because C headers are a mess.
diff --git a/packages/libgd/src/gd.pas b/packages/libgd/src/gd.pas
index 253f7cccdb..1fa39a4ef7 100644
--- a/packages/libgd/src/gd.pas
+++ b/packages/libgd/src/gd.pas
@@ -56,7 +56,6 @@ uses
 
 type
   ppcint = ^pcint;
-  ppbyte = ^pbyte;
   PFILE = pointer;
 
 const
diff --git a/packages/libpng/src/png.pp b/packages/libpng/src/png.pp
index 261cb07711..2924830a86 100644
--- a/packages/libpng/src/png.pp
+++ b/packages/libpng/src/png.pp
@@ -78,9 +78,7 @@ type
    png_charpp = PPchar;
    ppng_charpp = ^png_charpp;
    png_fixed_point_pp = PPpng_fixed_point;
-   PPDouble = ^PDouble;
    png_doublepp = PPdouble;
-   PPPChar = ^PPCHar;
    png_charppp = PPPchar;
    Pcharf = Pchar;
    PPcharf = ^Pcharf;
diff --git a/packages/mysql/src/mysql.inc b/packages/mysql/src/mysql.inc
index 43cb9b7fc3..e355f0f6d4 100644
--- a/packages/mysql/src/mysql.inc
+++ b/packages/mysql/src/mysql.inc
@@ -77,9 +77,6 @@ uses
        Pmy_socket = ^my_socket;
        my_socket = cint;
 
-       pppchar = ^ppchar;
-       PPByte     = ^PByte;
-
 {  ------------ Start of declaration in "mysql_com.h"   ---------------------  }
 
   {
diff --git a/packages/mysql/src/mysql4_comtypes.inc b/packages/mysql/src/mysql4_comtypes.inc
index 986111e254..8e5b24c843 100644
--- a/packages/mysql/src/mysql4_comtypes.inc
+++ b/packages/mysql/src/mysql4_comtypes.inc
@@ -7,7 +7,6 @@ type
     PVIO = Pointer;
     My_socket = longint;
     my_bool = byte;
-    pppchar = ^PPChar;
     gptr = Pointer;
 
   {
diff --git a/packages/opengl/src/glut.pp b/packages/opengl/src/glut.pp
index 225eec49cd..f4abb24967 100644
--- a/packages/opengl/src/glut.pp
+++ b/packages/opengl/src/glut.pp
@@ -60,8 +60,6 @@ uses
   GL;
 
 type
-  PInteger = ^Integer;
-  PPChar = ^PChar;
   TGlutVoidCallback = procedure; cdecl;
   TGlut1IntCallback = procedure(value: Integer); cdecl;
   TGlut2IntCallback = procedure(v1, v2: Integer); cdecl;
diff --git a/packages/sqlite/src/sqlite.pp b/packages/sqlite/src/sqlite.pp
index 277ef1227f..353025ceaa 100644
--- a/packages/sqlite/src/sqlite.pp
+++ b/packages/sqlite/src/sqlite.pp
@@ -91,7 +91,6 @@ const
   SQLITE_ARGS    = -3;
 
 Type
-  PPPchar   = ^ppchar;
   Psqlite = Pointer;
   Psqlite_vm = Pointer;
   PPsqlite_vm = ^Psqlite_vm;
diff --git a/packages/sqlite/src/sqlite3.inc b/packages/sqlite/src/sqlite3.inc
index a9ea556cf0..7dde7f98a9 100644
--- a/packages/sqlite/src/sqlite3.inc
+++ b/packages/sqlite/src/sqlite3.inc
@@ -33,9 +33,6 @@ const
   {$DEFINE S}
 {$ENDIF}
 
-type
-  PPPChar = ^PPChar;
-
 (*
 ** 2001 September 15
 **
diff --git a/packages/tcl/src/tcl80.pp b/packages/tcl/src/tcl80.pp
index 6f3714d546..6f7abbd689 100644
--- a/packages/tcl/src/tcl80.pp
+++ b/packages/tcl/src/tcl80.pp
@@ -560,7 +560,6 @@ const
 
 
 type
-    PPChar          = ^PChar;
     Tcl_Argv        = PPChar;
     Tcl_ClientData  = pointer;
     Tcl_FreeProc    = procedure(block : pointer); cdecl;
diff --git a/packages/x11/src/x.pp b/packages/x11/src/x.pp
index 970102d24a..3488a917b6 100644
--- a/packages/x11/src/x.pp
+++ b/packages/x11/src/x.pp
@@ -19,19 +19,8 @@ uses
     x.h
 }
 
-{ Pointers to basic pascal types, inserted by h2pas conversion program.}
-Type
-  PPLongint = ^PLongint;
-  PPByte    = ^PByte;
-  PPChar    = ^PChar;
-  PPPChar   = ^PPChar;
-  PPWideChar  = ^PWideChar;
-  PPPWideChar = ^PPWideChar;
-
-
 {$PACKRECORDS C}
 
-
 const
    X_PROTOCOL = 11;
    X_PROTOCOL_REVISION = 0;