From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 12 Aug 2011 18:26:21 +0000 (-0700)
Subject: Punt 64bit GFile attributes and the gint64 type.
X-Git-Tag: mit-scheme-pucked-9.2.12~644
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29ed20413a76949982b8a9e53968f4233e10438a;p=mit-scheme.git

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 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))