Math-Complex_C-Q
view release on metacpan or search on metacpan
if(SvUOK(a)) return newSVuv(1);
if(SvIOK(a)) return newSVuv(2);
if(SvNOK(a)) return newSVuv(3);
if(SvPOK(a)) return newSVuv(4);
if(sv_isobject(a)) {
const char *h = HvNAME(SvSTASH(SvRV(a)));
if(strEQ(h, "Math::Float128")) return newSVuv(113);
if(strEQ(h, "Math::Complex_C::Q")) return newSVuv(226);
}
return newSVuv(0);
}
int _mingw_w64_bug(void) {
#ifdef MINGW_W64_BUGGY
return 1;
#else
return 0;
#endif
}
int _gcc_tan_bug(void) {
#if defined(GCC_TAN_BUG)
return 1;
#else
return 0;
#endif
}
int nnumflag(void) {
return nnum;
}
void clear_nnum(void) {
nnum = 0;
}
void set_nnum(int x) {
nnum = x;
}
int _lln(pTHX_ SV * x) {
if(looks_like_number(x)) return 1;
return 0;
}
MODULE = Math::Complex_C::Q PACKAGE = Math::Complex_C::Q
PROTOTYPES: DISABLE
void
q_set_prec (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
q_set_prec(x);
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; /* assume stack size is correct */
int
q_get_prec ()
int
is_nanq (a)
SV * a
CODE:
RETVAL = is_nanq (aTHX_ a);
OUTPUT: RETVAL
int
is_infq (a)
SV * a
CODE:
RETVAL = is_infq (aTHX_ a);
OUTPUT: RETVAL
SV *
create_cq ()
CODE:
RETVAL = create_cq (aTHX);
OUTPUT: RETVAL
void
assign_cq (rop, d1, d2)
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assign_cq(aTHX_ rop, d1, d2);
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; /* assume stack size is correct */
void
set_real_cq (rop, d1)
SV * rop
SV * d1
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_real_cq(aTHX_ rop, d1);
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; /* assume stack size is correct */
void
set_imag_cq (rop, d2)
SV * rop
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_imag_cq(aTHX_ rop, d2);
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; /* assume stack size is correct */
void
F2cq (rop, d1, d2)
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
F2cq(aTHX_ rop, d1, d2);
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; /* assume stack size is correct */
void
cq2F (rop1, rop2, op)
SV * rop1
SV * rop2
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cq2F(aTHX_ rop1, rop2, op);
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; /* assume stack size is correct */
void
mul_cq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_cq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
mul_c_nvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_nvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
mul_c_ivq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_ivq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
mul_c_uvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_uvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
mul_c_pvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_pvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
div_cq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_cq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
div_c_nvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_nvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
div_c_ivq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_ivq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
div_c_uvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_uvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
div_c_pvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_pvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
add_cq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_cq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
add_c_nvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_nvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
add_c_ivq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_ivq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
add_c_uvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_uvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
add_c_pvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_pvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
sub_cq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_cq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
sub_c_nvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_nvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
sub_c_ivq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_ivq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
sub_c_uvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_uvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
sub_c_pvq (rop, op1, op2)
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_pvq(aTHX_ rop, op1, op2);
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; /* assume stack size is correct */
void
DESTROY (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ op);
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; /* assume stack size is correct */
SV *
real_cq (op)
SV * op
CODE:
RETVAL = real_cq (aTHX_ op);
OUTPUT: RETVAL
SV *
real_cq2F (op)
SV * op
CODE:
RETVAL = real_cq2F (aTHX_ op);
OUTPUT: RETVAL
void
real_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
real_cq2str(aTHX_ op);
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; /* assume stack size is correct */
SV *
imag_cq (op)
SV * op
CODE:
RETVAL = imag_cq (aTHX_ op);
OUTPUT: RETVAL
SV *
imag_cq2F (op)
SV * op
CODE:
RETVAL = imag_cq2F (aTHX_ op);
OUTPUT: RETVAL
void
imag_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
imag_cq2str(aTHX_ op);
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; /* assume stack size is correct */
SV *
arg_cq (op)
SV * op
CODE:
RETVAL = arg_cq (aTHX_ op);
OUTPUT: RETVAL
SV *
arg_cq2F (op)
SV * op
CODE:
RETVAL = arg_cq2F (aTHX_ op);
OUTPUT: RETVAL
void
arg_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
arg_cq2str(aTHX_ op);
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; /* assume stack size is correct */
SV *
abs_cq (op)
SV * op
CODE:
RETVAL = abs_cq (aTHX_ op);
OUTPUT: RETVAL
SV *
abs_cq2F (op)
SV * op
CODE:
RETVAL = abs_cq2F (aTHX_ op);
OUTPUT: RETVAL
void
abs_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
abs_cq2str(aTHX_ op);
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; /* assume stack size is correct */
void
conj_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
conj_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
acos_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acos_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
asin_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asin_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
atan_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atan_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
cos_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cos_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
sin_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sin_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
tan_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tan_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
acosh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acosh_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
asinh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asinh_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
atanh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atanh_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
cosh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cosh_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
sinh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sinh_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
tanh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tanh_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
exp_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
exp_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
log_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
sqrt_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sqrt_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
proj_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
proj_cq(aTHX_ rop, op);
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; /* assume stack size is correct */
void
pow_cq (rop, op, exp)
SV * rop
SV * op
SV * exp
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
pow_cq(aTHX_ rop, op, exp);
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; /* assume stack size is correct */
SV *
_overload_true (rop, second, third)
SV * rop
SV * second
SV * third
CODE:
RETVAL = _overload_true (aTHX_ rop, second, third);
OUTPUT: RETVAL
SV *
_overload_not (rop, second, third)
SV * rop
SV * second
SV * third
CODE:
RETVAL = _overload_not (aTHX_ rop, second, third);
OUTPUT: RETVAL
SV *
_overload_equiv (a, b, third)
SV * a
SV * b
SV * third
CODE:
RETVAL = _overload_equiv (aTHX_ a, b, third);
OUTPUT: RETVAL
SV *
_overload_not_equiv (a, b, third)
SV * a
SV * b
SV * third
CODE:
RETVAL = _overload_not_equiv (aTHX_ a, b, third);
OUTPUT: RETVAL
SV *
_overload_pow (a, b, third)
SV * a
SV * b
SV * third
CODE:
RETVAL = _overload_pow (aTHX_ a, b, third);
OUTPUT: RETVAL
SV *
_overload_mul (a, b, third)
SV * a
SV * b
SV * third
_ivsize ()
CODE:
RETVAL = _ivsize (aTHX);
OUTPUT: RETVAL
SV *
_nvsize ()
CODE:
RETVAL = _nvsize (aTHX);
OUTPUT: RETVAL
SV *
_doublesize ()
CODE:
RETVAL = _doublesize (aTHX);
OUTPUT: RETVAL
SV *
_longdoublesize ()
CODE:
RETVAL = _longdoublesize (aTHX);
OUTPUT: RETVAL
SV *
_float128size ()
CODE:
RETVAL = _float128size (aTHX);
OUTPUT: RETVAL
SV *
_double_Complexsize ()
CODE:
RETVAL = _double_Complexsize (aTHX);
OUTPUT: RETVAL
SV *
_longdouble_Complexsize ()
CODE:
RETVAL = _longdouble_Complexsize (aTHX);
OUTPUT: RETVAL
SV *
_float128_Complexsize ()
CODE:
RETVAL = _float128_Complexsize (aTHX);
OUTPUT: RETVAL
void
_q_to_str (ld)
SV * ld
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_q_to_str(aTHX_ ld);
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; /* assume stack size is correct */
void
_q_to_strp (ld, decimal_prec)
SV * ld
int decimal_prec
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_q_to_strp(aTHX_ ld, decimal_prec);
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; /* assume stack size is correct */
SV *
_LDBL_DIG ()
CODE:
RETVAL = _LDBL_DIG (aTHX);
OUTPUT: RETVAL
SV *
_FLT128_DIG ()
CODE:
RETVAL = _FLT128_DIG (aTHX);
OUTPUT: RETVAL
SV *
_get_xs_version ()
CODE:
RETVAL = _get_xs_version (aTHX);
OUTPUT: RETVAL
SV *
_itsa (a)
SV * a
CODE:
RETVAL = _itsa (aTHX_ a);
OUTPUT: RETVAL
int
_mingw_w64_bug ()
int
_gcc_tan_bug ()
int
nnumflag ()
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
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; /* assume stack size is correct */
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
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; /* assume stack size is correct */
int
_lln (x)
SV * x
CODE:
RETVAL = _lln (aTHX_ x);
OUTPUT: RETVAL
( run in 2.088 seconds using v1.01-cache-2.11-cpan-5511b514fd6 )