dougm 01/04/19 10:37:05 Modified: xs modperl_xs_util.h Log: add a few handy macros Revision Changes Path 1.5 +5 -0 modperl-2.0/xs/modperl_xs_util.h Index: modperl_xs_util.h =================================================================== RCS file: /home/cvs/modperl-2.0/xs/modperl_xs_util.h,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- modperl_xs_util.h 2001/04/02 19:30:31 1.4 +++ modperl_xs_util.h 2001/04/19 17:37:02 1.5 @@ -1,6 +1,8 @@ #ifndef MODPERL_XS_H #define MODPERL_XS_H +#define MP_CODE_ATTRS(cv) (CvXSUBANY((CV*)cv).any_i32) + #ifndef dAX # define dAX I32 ax = mark - PL_stack_base + 1 #endif @@ -17,6 +19,9 @@ #define PUSHs_mortal_iv(iv) PUSHs(sv_2mortal(newSViv(iv))) #define PUSHs_mortal_pv(pv) PUSHs(sv_2mortal(newSVpv((char *)pv,0))) + +#define XPUSHs_mortal_iv(iv) EXTEND(SP, 1); PUSHs_mortal_iv(iv) +#define XPUSHs_mortal_pv(pv) EXTEND(SP, 1); PUSHs_mortal_pv(pv) #define mpxs_sv_grow(sv, len) \ (void)SvUPGRADE(sv, SVt_PV); \