* gtk2 interface for 64 bit fixed

git-svn-id: trunk@1094 -

packages/extra/gtk2/glib/glib2.pas

@@ -35,7 +35,7 @@ unit glib2; // keep unit name lowercase for kylix
 interface
 
 uses
-  SysUtils;
+  ctypes,SysUtils;
 
 const
 {$ifdef win32}

packages/extra/gtk2/glib/gtypes.inc

@@ -23,14 +23,14 @@
    gchar    = char;
 
    Pgshort = ^gshort;
-   gshort = smallint;
+   gshort = cshort;
 
    Pglong = ^glong;
-   glong  = longint;
+   glong  = clong;
 
    Pgint = ^gint;
    PPgint = ^Pgint;
-   gint  = longint;
+   gint  = cint;
 
    Pgboolean = ^gboolean;
    gboolean  = longbool;
@@ -40,19 +40,19 @@
    guchar = byte;
 
    Pgushort = ^gushort;
-   gushort = word;
+   gushort = cushort;
 
    Pgulong = ^gulong;
-   gulong = dword;
+   gulong = culong;
 
    Pguint = ^guint;
-   guint = dword;
+   guint = cuint;
 
    Pgfloat = ^gfloat;
-   gfloat = single;
+   gfloat = cfloat;
 
    Pgdouble = ^gdouble;
-   gdouble = double;
+   gdouble = cdouble;
 
    pgpointer     = ^gpointer;
    gpointer      = pointer;