pango.fonts: make sure to free arrays with g_free

diff --git a/extra/pango/fonts/fonts.factor b/extra/pango/fonts/fonts.factor
index 6076b6a25415ffdf286f150cb9150702e1365e0f..d07c71226a4a92fd073dd1d9f456ce8b1375099b 100644 (file)
--- a/extra/pango/fonts/fonts.factor
+++ b/extra/pango/fonts/fonts.factor
@@ -26,15 +26,15 @@ pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
 
 : list-families ( PangoFontMap* -- PangoFontFamily*-seq )
     0 <int> 0 <int> [ pango_font_map_list_families ] 2keep
-    *int >r *void* r> c-void*-array> ;
+    *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
 
 : list-faces ( PangoFontFamily* -- PangoFontFace*-seq )
     0 <int> 0 <int> [ pango_font_family_list_faces ] 2keep
-    *int >r *void* r> c-void*-array> ;
+    *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
 
 : list-sizes ( PangoFontFace* -- ints )
     0 <int> 0 <int> [ pango_font_face_list_sizes ] 2keep
-    *int >r *void* r> c-int-array> ;
+    *int swap *void* [ swap c-int-array> ] [ g_free ] bi ;
 
 : monospace? ( PangoFontFamily* -- ? )
     pango_font_family_is_monospace 1 = ;

diff --git a/extra/pango/pango.factor b/extra/pango/pango.factor
index 3836a43e3f519c8b8b3cb0a288a34532e16a0226..3549d9abb4a4fd705bc1b84be971326ed11766f9 100644 (file)
--- a/extra/pango/pango.factor
+++ b/extra/pango/pango.factor
@@ -48,7 +48,12 @@ pango_layout_get_pixel_size ( PangoLayout* layout, int* width, int* height ) ;
 FUNCTION: void
 pango_font_description_free ( PangoFontDescription* desc ) ;
 
+! glib functions
+
 TYPEDEF: void* gpointer
 
 FUNCTION: void
 g_object_unref ( gpointer object ) ;
+
+FUNCTION: void
+g_free ( gpointer mem ) ;