[perl-glib] Hush a few compiler warnings

[Torsten Schönfeld <tsch src gnome org>]

commit b55e9848b32521dc4de7c4e8c127104d22ebb69d
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Aug 4 17:13:50 2019 +0200

    Hush a few compiler warnings

 GBoxed.xs  | 4 ++--
 GObject.xs | 2 +-
 GType.xs   | 2 +-
 GValue.xs  | 4 ++--
 4 files changed, 6 insertions(+), 6 deletions(-)
---
diff --git a/GBoxed.xs b/GBoxed.xs
index 5c726aa..a7fbc31 100644
--- a/GBoxed.xs
+++ b/GBoxed.xs
@@ -517,7 +517,7 @@ gperl_new_boxed (gpointer boxed,
        G_UNLOCK (info_by_gtype);
 
        if (!boxed_info)
-               croak ("GType %s (%d) is not registered with gperl",
+               croak ("GType %s (%lu) is not registered with gperl",
                       g_type_name (gtype), gtype);
 
        wrap = boxed_info->wrapper_class
@@ -569,7 +569,7 @@ gperl_get_boxed_check (SV * sv, GType gtype)
        G_UNLOCK (info_by_gtype);
 
        if (!boxed_info)
-               croak ("internal problem: GType %s (%d) has not been registered with GPerl",
+               croak ("internal problem: GType %s (%lu) has not been registered with GPerl",
                        g_type_name (gtype), gtype);
 
        unwrap = boxed_info->wrapper_class
diff --git a/GObject.xs b/GObject.xs
index 1123e47..1dfb88d 100644
--- a/GObject.xs
+++ b/GObject.xs
@@ -1024,7 +1024,7 @@ gperl_get_object_check (SV * sv,
        const char * package;
        package = gperl_object_package_from_type (gtype);
        if (!package)
-               croak ("INTERNAL: GType %s (%d) is not registered with GPerl!",
+               croak ("INTERNAL: GType %s (%lu) is not registered with GPerl!",
                       g_type_name (gtype), gtype);
        if (!gperl_sv_is_ref (sv) || !sv_derived_from (sv, package))
                croak ("%s is not of type %s",
diff --git a/GType.xs b/GType.xs
index 2e145b5..b597825 100644
--- a/GType.xs
+++ b/GType.xs
@@ -2542,7 +2542,7 @@ list_ancestors (class, package)
                pkg = gperl_package_from_type (parent_gtype);
                if (!pkg)
                        croak("problem looking up parent package name, "
-                             "gtype %d", parent_gtype);
+                             "gtype %lu", parent_gtype);
                XPUSHs (sv_2mortal (newSVpv (pkg, 0)));
                parent_gtype = g_type_parent (parent_gtype);
        }
diff --git a/GValue.xs b/GValue.xs
index 10fdb78..32459a8 100644
--- a/GValue.xs
+++ b/GValue.xs
@@ -169,7 +169,7 @@ gperl_value_from_sv (GValue * value,
                                break;
                        }
 
-                       croak ("[gperl_value_from_sv] FIXME: unhandled type - %d (%s fundamental for %s)\n",
+                       croak ("[gperl_value_from_sv] FIXME: unhandled type - %lu (%s fundamental for %s)\n",
                               type, g_type_name (type), G_VALUE_TYPE_NAME (value));
                        return FALSE;
                }
@@ -305,7 +305,7 @@ _gperl_sv_from_value_internal (const GValue * value,
                        if (wrapper_class && wrapper_class->wrap)
                                return wrapper_class->wrap (value);
 
-                       croak ("[gperl_sv_from_value] FIXME: unhandled type - %d (%s fundamental for %s)\n",
+                       croak ("[gperl_sv_from_value] FIXME: unhandled type - %lu (%s fundamental for %s)\n",
                               type, g_type_name (type), G_VALUE_TYPE_NAME (value));
                }
        }