[perl-Glib] Fix Glib::Variant::classify on big-endian machines
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Glib] Fix Glib::Variant::classify on big-endian machines
- Date: Wed, 1 Jul 2015 19:37:25 +0000 (UTC)
commit 88a2b5f4e375fa2f2cdf3b2c692e1a9631a2f739
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date: Sun Jun 28 23:06:45 2015 +0200
Fix Glib::Variant::classify on big-endian machines
GVariant.xs | 10 +++++++---
1 files changed, 7 insertions(+), 3 deletions(-)
---
diff --git a/GVariant.xs b/GVariant.xs
index e359829..7fddee8 100644
--- a/GVariant.xs
+++ b/GVariant.xs
@@ -279,10 +279,14 @@ gboolean g_variant_is_container (GVariant *value);
const char * g_variant_classify (GVariant *value);
PREINIT:
- GVariantClass vclass;
+ char vclass_char[2];
CODE:
- vclass = g_variant_classify (value);
- RETVAL = (const char *) &vclass;
+ /* g_variant_classify's return value is of type GVariantClass, which is
+ * probably wider than a char, so we must not treat its address as a
+ * string on big-endian machines. */
+ vclass_char[0] = g_variant_classify (value);
+ vclass_char[1] = 0;
+ RETVAL = vclass_char;
OUTPUT:
RETVAL
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]