From 29ed20413a76949982b8a9e53968f4233e10438a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 12 Aug 2011 11:26:21 -0700 Subject: [PATCH] Punt 64bit GFile attributes and the gint64 type. --- src/gtk/Includes/gio/gfileinfo.cdecl | 16 ++++++++-------- src/gtk/Includes/glib/gtypes.cdecl | 2 +- src/gtk/gio.scm | 8 ++++---- 3 files changed, 13 insertions(+), 13 deletions(-) diff --git a/src/gtk/Includes/gio/gfileinfo.cdecl b/src/gtk/Includes/gio/gfileinfo.cdecl index 0ba36a92c..e4a8a3abb 100644 --- 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 993b6df7f..04a653745 100644 --- 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 506af3f11..60274d508 100644 --- 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)) -- 2.25.1