Re: segv on stack extending

[Kevin Ryde <user42 zip com au>]

I wrote:
>
>  	EXTEND (SP, items-1);

And with that no longer needed ... (and you do get an SP, but it's
otherwise unused, or something).

--- GObject.xs	19 Aug 2008 08:25:23 +1000	1.76
+++ GObject.xs	02 Sep 2008 11:37:43 +1000	
@@ -1190,16 +1190,16 @@
     PREINIT:
 	GValue value = {0,};
 	int i;
-    PPCODE:
+    CODE:
 	PERL_UNUSED_VAR (ix);
-	EXTEND (SP, items-1);
 	for (i = 1; i < items; i++) {
 		char *name = SvPV_nolen (ST (i));
 		init_property_value (object, name, &value);
 		g_object_get_property (object, name, &value);
-		PUSHs(sv_2mortal(_gperl_sv_from_value_internal(&value, TRUE)));
+		ST(i-1) = sv_2mortal(_gperl_sv_from_value_internal(&value, TRUE));
 		g_value_unset (&value);
 	}
+	XSRETURN(items-1);
 
 
 =for apidoc Glib::Object::set