return (m);
}
+int group_writesv(group *g, ge *x, SV *sv)
+{
+ mptext_svctx c;
+ int rc;
+ STRLEN len;
+ sv_setpvn(sv, "", 0);
+ c.sv = sv;
+ rc = G_WRITE(g, x, &mptext_svops, &c);
+ return (rc);
+}
+
int mp_writesv(mp *m, SV *sv, int radix)
{
mptext_svctx c;
int rc;
STRLEN len;
- SvPV(sv, len);
+ sv_setpvn(sv, "", 0);
c.sv = sv;
rc = mp_write(m, radix, &mptext_svops, &c);
return (rc);
/* --- Conversion to and from SVs --- */
-mp *mp_fromsv(SV *sv, const char *what, const char *ty,
- int radix, int keep, ...)
+mp *mp_fromsv(SV *sv, const char *what, int radix, int keep, ...)
{
mp *m;
if (SvROK(sv)) {
SV *t = sv_newmortal();
va_start(ap, keep);
sv_vsetpvfn(t, what, strlen(what), &ap, 0, 0, 0);
- croak("%s is not of type %s", SvPVX(t), ty);
+ croak("%s is not of type Catacomb::MP", SvPVX(t));
}
if (m && keep)
MP_COPY(m);
else
m = mp_readsv(MP_NEW, sv, 0, radix);
if (m && !keep)
- RET(m, ty); /* Kill temporary later */
+ RET_MP(m); /* Kill temporary later */
}
return (m);
}