/* -*-c-*-
*
- * $Id: pgproc.c,v 1.1 2004/04/02 18:04:01 mdw Exp $
+ * $Id$
*
* Prime generation procedures
*
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: pgproc.c,v $
- * Revision 1.1 2004/04/02 18:04:01 mdw
- * Initial checkin.
- *
- */
-
/*----- Header files ------------------------------------------------------*/
#include "catacomb-perl.h"
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);