Punt 64bit GFile attributes and the gint64 type.

diff --git a/src/gtk/Includes/gio/gfileinfo.cdecl b/src/gtk/Includes/gio/gfileinfo.cdecl
index 0ba36a92c8d4418113f239561ef9442f7530719e..e4a8a3abb144a82e649ac98f894e5f3b81dde2a8 100644 (file)
--- a/src/gtk/Includes/gio/gfileinfo.cdecl
+++ b/src/gtk/Includes/gio/gfileinfo.cdecl
@@ -47,15 +47,15 @@ glib-2.0/gio/gfileinfo.h |#
        (info (* GFileInfo))
        (attribute (* (const char))))
 
-(extern guint64
-       g_file_info_get_attribute_uint64
-       (info (* GFileInfo))
-       (attribute (* (const char))))
+;(extern guint64
+;      g_file_info_get_attribute_uint64
+;      (info (* GFileInfo))
+;      (attribute (* (const char))))
 
-(extern gint64
-       g_file_info_get_attribute_int64
-       (info (* GFileInfo))
-       (attribute (* (const char))))
+;(extern gint64
+;      g_file_info_get_attribute_int64
+;      (info (* GFileInfo))
+;      (attribute (* (const char))))
 
 (extern (* GObject)
        g_file_info_get_attribute_object

diff --git a/src/gtk/Includes/glib/gtypes.cdecl b/src/gtk/Includes/glib/gtypes.cdecl
index 993b6df7fbefc106bd607e65f26d028e29f31b71..04a653745b33f0e90a1d2619ea0acef034a62b4c 100644 (file)
--- a/src/gtk/Includes/glib/gtypes.cdecl
+++ b/src/gtk/Includes/glib/gtypes.cdecl
@@ -6,7 +6,7 @@ glib-2.0/glib/gtypes.h |#
 (typedef gint8 char)
 (typedef gint16 short)
 (typedef gint32 int)
-(typedef gint64 long)
+;(typedef gint64 long)
 (typedef guint8 uchar)
 (typedef guint16 ushort)
 (typedef guint32 uint)

diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm
index 506af3f11e82212ae8384b13eb15c6206e679e9c..60274d508a04d4381b7645f892bbed25fa76187e 100644 (file)
--- a/src/gtk/gio.scm
+++ b/src/gtk/gio.scm
@@ -823,10 +823,10 @@ USA.
           (C-call "g_file_info_get_attribute_uint32" alien name))
          ((fix:= type (C-enum "G_FILE_ATTRIBUTE_TYPE_INT32"))
           (C-call "g_file_info_get_attribute_int32" alien name))
-         ((fix:= type (C-enum "G_FILE_ATTRIBUTE_TYPE_UINT64"))
-          (C-call "g_file_info_get_attribute_uint64" alien name))
-         ((fix:= type (C-enum "G_FILE_ATTRIBUTE_TYPE_INT64"))
-          (C-call "g_file_info_get_attribute_int64" alien name))
+;        ((fix:= type (C-enum "G_FILE_ATTRIBUTE_TYPE_UINT64"))
+;         (C-call "g_file_info_get_attribute_uint64" alien name))
+;        ((fix:= type (C-enum "G_FILE_ATTRIBUTE_TYPE_INT64"))
+;         (C-call "g_file_info_get_attribute_int64" alien name))
          ((fix:= type (C-enum "G_FILE_ATTRIBUTE_TYPE_OBJECT"))
           (C-call "g_file_info_get_attribute_object"
                   (make-alien '|GObject|) alien name))