You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/04/19 19:37:05 UTC
cvs commit: modperl-2.0/xs modperl_xs_util.h
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); \