6 Star 0 Fork 0

OpenCloudOS Stream/perl-Glib

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
该仓库未声明开源许可证文件(LICENSE),使用请关注具体项目描述及其代码上游依赖。
克隆/下载
perl-Glib-1.310-bigendian.patch 1006 Bytes
一键复制 编辑 原始数据 按行查看 历史
fanjunkong 提交于 2024-06-26 15:25 . update
From 420a511e0aa787168c9eb2434c34bc2e405a0d8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Torsten=20Sch=C3=B6nfeld?= <kaffeetisch@gmx.de>
Date: Sun, 28 Jun 2015 23:06:45 +0200
Subject: [PATCH] Fix GVariant tests on big endian machines
---
GVariant.xs | 10 +++++++---
1 file 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
--
2.1.0
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
1
https://gitee.com/opencloudos-stream/perl-Glib.git
git@gitee.com:opencloudos-stream/perl-Glib.git
opencloudos-stream
perl-Glib
perl-Glib
master

搜索帮助