Index: CodeGen.pm
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/CodeGen.pm,v
retrieving revision 1.19
diff -u -d -r1.19 CodeGen.pm
--- CodeGen.pm	2 Jan 2005 16:25:39 -0000	1.19
+++ CodeGen.pm	25 Mar 2005 16:52:19 -0000
@@ -357,7 +357,7 @@
 	my ($typemacro, $classname, $package) = @_;
 	push @header, "#ifdef $typemacro
   /* GEnum $classname */
-# define Sv$classname(sv)	(gperl_convert_enum ($typemacro, sv))
+# define Sv$classname(sv)	(($classname)gperl_convert_enum ($typemacro, sv))
 # define newSV$classname(val)	(gperl_convert_back_enum ($typemacro, val))
 #endif /* $typemacro */
 ";
@@ -372,7 +372,7 @@
 	my ($typemacro, $classname, $package) = @_;
 	push @header, "#ifdef $typemacro
   /* GFlags $classname */
-# define Sv$classname(sv)	(gperl_convert_flags ($typemacro, sv))
+# define Sv$classname(sv)	(($classname)gperl_convert_flags ($typemacro, sv))
 # define newSV$classname(val)	(gperl_convert_back_flags ($typemacro, val))
 #endif /* $typemacro */
 ";