/* -*-c-*-
*
- * $Id: pgproc.c,v 1.2 2004/04/08 01:36:21 mdw Exp $
+ * $Id$
*
* Prime generation procedures
*
dSP;
switch (rq) {
- case PGEN_BEGIN: meth = "pgen_begin"; break;
- case PGEN_TRY: meth = "pgen_try"; break;
- case PGEN_FAIL: meth = "pgen_fail"; break;
- case PGEN_PASS: meth = "pgen_pass"; break;
- case PGEN_DONE: meth = "pgen_done"; break;
- case PGEN_ABORT: meth = "pgen_abort"; break;
+ case PGEN_BEGIN: meth = "PG_BEGIN"; break;
+ case PGEN_TRY: meth = "PG_TRY"; break;
+ case PGEN_FAIL: meth = "PG_FAIL"; break;
+ case PGEN_PASS: meth = "PG_PASS"; break;
+ case PGEN_DONE: meth = "PG_DONE"; break;
+ case PGEN_ABORT: meth = "PG_ABORT"; break;
default:
abort();
}
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv);
- XPUSHs(sv_setref_pv(sv_newmortal(), "Catacomb::MP::Prime::Gen::Event",
- (void *)e));
+ XPUSHs(RET(e, "Catacomb::MP::Prime::Gen::Event"));
PUTBACK;
n = perl_call_method(meth, G_SCALAR);
assert(n == 1);