/* -*-c-*-
*
- * $Id: mpstuff.c,v 1.2 2004/04/08 01:36:21 mdw Exp $
+ * $Id$
*
* MP manipulation stuff
*
/* --- Conversion to and from SVs --- */
-mp *mp_fromsv(SV *sv, const char *what, int radix, int keep, ...)
+mp *mp_fromsv(SV *sv, const char *what, const char *ty,
+ int radix, int keep, ...)
{
mp *m;
if (SvROK(sv)) {
- if (sv_derived_from(sv, "Catacomb::MP"))
+ if (sv_derived_from(sv, "Catacomb::MP") ||
+ sv_derived_from(sv, "Catacomb::GF"))
m = (mp *)SvIV((SV *)SvRV(sv));
else {
va_list ap;
- SV *t = NEWSV(0, 0);
+ SV *t = sv_newmortal();
va_start(ap, keep);
sv_vsetpvfn(t, what, strlen(what), &ap, 0, 0, 0);
- croak("%s is not of type Catacomb::MP", SvPVX(t));
- SvREFCNT_dec(t);
+ croak("%s is not of type %s", SvPVX(t), ty);
}
} else {
if (SvIOK(sv))
else
m = mp_readsv(MP_NEW, sv, 0, radix);
if (m && !keep)
- RET_MP(m); /* Kill temporary later */
+ RET(m, ty); /* Kill temporary later */
}
return (m);
}