Mailing List Archive

Author: creamyg
Date: 2008-08-24 16:58:22 -0700 (Sun, 24 Aug 2008)
New Revision: 3756

Modified:
trunk/perl/xs/XSBind.c
Log:
Kill some "unused generated value" compiler warnings.


Modified: trunk/perl/xs/XSBind.c
===================================================================
--- trunk/perl/xs/XSBind.c 2008-08-24 05:34:07 UTC (rev 3755)
+++ trunk/perl/xs/XSBind.c 2008-08-24 23:58:22 UTC (rev 3756)
@@ -261,7 +261,7 @@
Kino_Hash_Iter_Init(hash);
while (Kino_Hash_Iter_Next(hash, &key, &val)) {
SV *val_sv = kobj_to_pobj(val);
- hv_store(perl_hash, key->ptr, Kino_CB_Get_Size(key), val_sv, 0);
+ (void)hv_store(perl_hash, key->ptr, Kino_CB_Get_Size(key), val_sv, 0);
}

return newRV_noinc((SV*)perl_hash);
@@ -363,7 +363,7 @@
SV *const val_sv = hv_iternextsv(defaults_hash, &key, &key_len);
if (!val_sv)
break;
- hv_store(args_hash, key, key_len, newSVsv(val_sv), 0);
+ (void)hv_store(args_hash, key, key_len, newSVsv(val_sv), 0);
}

/* Verify and copy hash-style params into args hash from stack. */
@@ -376,7 +376,7 @@
CONFESS("Invalid parameter: '%s'", key);
}
val_sv = stack[stack_pos++];
- hv_store(args_hash, key, key_len, newSVsv(val_sv), 0);
+ (void)hv_store(args_hash, key, key_len, newSVsv(val_sv), 0);
}

return args_hash;


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits