? gint64.diff
Index: GClosure.xs
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GClosure.xs,v
retrieving revision 1.2
diff -u -r1.2 GClosure.xs
--- GClosure.xs	22 May 2003 14:23:11 -0000	1.2
+++ GClosure.xs	30 May 2003 19:24:52 -0000
@@ -60,7 +60,11 @@
 	guint i;
 	GPerlClosure *pc = (GPerlClosure *)closure;
 	SV * target, * data;
-	dSP; /* we're fiddling with the stack.  see perlcall and perlguts */
+        SV **SP;
+
+        PERL_SET_CONTEXT(marshal_data);
+
+        SPAGAIN;        
 
 	/*
 	warn ("Marshalling: params: %d\n", n_param_values);
@@ -155,7 +159,7 @@
 							NULL);
 	g_closure_add_invalidate_notifier ((GClosure*) closure, 
 					   NULL, gperl_closure_invalidate);
-	g_closure_set_marshal ((GClosure*) closure, gperl_closure_marshal);
+	g_closure_set_meta_marshal ((GClosure*) closure, aTHX, gperl_closure_marshal);
 
 	/* 
 	 * we have to take full copies of these SVs, rather than just
Index: typemap
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/typemap,v
retrieving revision 1.2
diff -u -r1.2 typemap
--- typemap	22 May 2003 14:23:11 -0000	1.2
+++ typemap	30 May 2003 19:24:52 -0000
@@ -30,6 +30,8 @@
 guint16		T_UV
 gint32		T_IV
 guint32		T_UV
+gint64          T_IV
+guint64         T_UV
 glong		T_IV
 gulong		T_UV
 gchar		T_IV