[perl-Glib-Object-Introspection] Handle GI_TAG_TYPE_UNICHAR



commit 26aa4edfedf20c0b60baa11ff03efbcb82b25662
Author: Emmanuele Bassi <ebassi linux intel com>
Date:   Sat Feb 26 13:46:31 2011 +0000

    Handle GI_TAG_TYPE_UNICHAR

 GObjectIntrospection.xs |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index 47b4892..e31a250 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -291,6 +291,8 @@ size_of_type_tag (GITypeTag type_tag)
 		return sizeof (gdouble);
 	    case GI_TYPE_TAG_GTYPE:
 		return sizeof (GType);
+            case GI_TYPE_TAG_UNICHAR:
+                return sizeof (gunichar);
 
 	    case GI_TYPE_TAG_VOID:
 	    case GI_TYPE_TAG_UTF8:
@@ -382,6 +384,7 @@ size_of_type_info (GITypeInfo *type_info)
 	    case GI_TYPE_TAG_FLOAT:
 	    case GI_TYPE_TAG_DOUBLE:
 	    case GI_TYPE_TAG_GTYPE:
+            case GI_TYPE_TAG_UNICHAR:
 		if (g_type_info_is_pointer (type_info)) {
 			return sizeof (gpointer);
 		} else {



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]