From 005ca57ebb65ff09fef482e6f96f8df8a27feca8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 5 Feb 2005 23:04:04 +0000
Subject: [PATCH]   * use ctypes unit

---
 packages/extra/x11/x.pp    | 12 ++----------
 packages/extra/x11/xlib.pp | 19 +------------------
 2 files changed, 3 insertions(+), 28 deletions(-)

diff --git a/packages/extra/x11/x.pp b/packages/extra/x11/x.pp
index 6c5ca1cf3b..970102d24a 100644
--- a/packages/extra/x11/x.pp
+++ b/packages/extra/x11/x.pp
@@ -1,15 +1,13 @@
 unit x;
 interface
+uses
+  ctypes;
 
 {$ifndef os2}
   {$LinkLib c}
   {$LinkLib X11}
 {$endif}
 
-type
-  culong = dword;
-  cuchar = byte;
-
 {
   Automatically converted by H2Pas 0.99.15 from x.h
   The following command line parameters were used:
@@ -23,14 +21,8 @@ type
 
 { Pointers to basic pascal types, inserted by h2pas conversion program.}
 Type
-  PLongint  = ^Longint;
   PPLongint = ^PLongint;
-  PSmallInt = ^SmallInt;
-  PByte     = ^Byte;
   PPByte    = ^PByte;
-  PWord     = ^Word;
-  PDWord    = ^DWord;
-  PDouble   = ^Double;
   PPChar    = ^PChar;
   PPPChar   = ^PPChar;
   PPWideChar  = ^PWideChar;
diff --git a/packages/extra/x11/xlib.pp b/packages/extra/x11/xlib.pp
index ee44e53042..386ea9317e 100644
--- a/packages/extra/x11/xlib.pp
+++ b/packages/extra/x11/xlib.pp
@@ -2,7 +2,7 @@ unit xlib;
 interface
 {$mode objfpc}
 uses
-  x;
+  ctypes,x;
 {$define MACROS}
 
 {$ifndef os2}
@@ -16,25 +16,8 @@ const
 {$endif}
 
 type
-  culong = sizeuint;
-  cuchar = byte;
-
-  clong = sizeint;
-  cint = longint;
-  cuint = longword;
-  cshort = smallint;
-  cushort = word;
-
-  cunsigned = cuint;
-  cchar = shortint;
-
-  Pcint = ^cint;
-  Pcuint = ^cuint;
-  Pculong = ^culong;
-  Pcuchar = ^cuchar;
   PPcint = ^Pcint;
   PPcuchar = ^Pcuchar;
-
 {
   Automatically converted by H2Pas 0.99.15 from xlib.h
   The following command line parameters were used: