view release on metacpan or  search on metacpan

FakeDD.xs  view on Meta::CPAN

MODULE = Math::FakeDD  PACKAGE = Math::FakeDD

PROTOTYPES: DISABLE


void
dd_frexp (nv)
	SV *	nv
        PREINIT:
        I32* temp;
        PPCODE:
        temp = PL_markstack_ptr++;
        dd_frexp(aTHX_ nv);
        if (PL_markstack_ptr != temp) {
          /* truly void, because dXSARGS not invoked */
          PL_markstack_ptr = temp;
          XSRETURN_EMPTY; /* return empty stack */
        }
        /* must have used dXSARGS; list context implied */
        return;