paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* gtk2 interface for 64 bit fixed

Browse Source 
git-svn-id: trunk@1094 -
This commit is contained in:
florian 2005-09-16 20:14:29 +00:00
parent b1b0ffc1ec
commit 444667ebc8
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/extra/gtk2/glib/glib2.pas
View File

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

16
packages/extra/gtk2/glib/gtypes.inc
View File

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