diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-30 14:18:05 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:20 +0000 |
| commit | d1b6bf721ad0fafb5a1632854990581d1c7c00d6 (patch) | |
| tree | 6ad37972647230373c3bbbc7bae0299eaf7d6614 /proto.h | |
| parent | 13febba5a2bae013e49242ccd6e373d7e12d0c78 (diff) | |
| download | perl-d1b6bf721ad0fafb5a1632854990581d1c7c00d6.tar.gz | |
convert CX_PUSHLOOP*/POPLOOP to inline fns
Replace CX_PUSHLOOP_FOR() with cx_pushfloop_for() etc.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -3727,6 +3727,9 @@ PERL_STATIC_INLINE void S_cx_popeval(pTHX_ PERL_CONTEXT *cx); PERL_STATIC_INLINE void S_cx_popformat(pTHX_ PERL_CONTEXT *cx); #define PERL_ARGS_ASSERT_CX_POPFORMAT \ assert(cx) +PERL_STATIC_INLINE void S_cx_poploop(pTHX_ PERL_CONTEXT *cx); +#define PERL_ARGS_ASSERT_CX_POPLOOP \ + assert(cx) PERL_STATIC_INLINE void S_cx_popsub(pTHX_ PERL_CONTEXT *cx); #define PERL_ARGS_ASSERT_CX_POPSUB \ assert(cx) @@ -3745,6 +3748,12 @@ PERL_STATIC_INLINE void S_cx_pusheval(pTHX_ PERL_CONTEXT *cx, OP *retop, SV *nam PERL_STATIC_INLINE void S_cx_pushformat(pTHX_ PERL_CONTEXT *cx, CV *cv, OP *retop, GV *gv); #define PERL_ARGS_ASSERT_CX_PUSHFORMAT \ assert(cx); assert(cv) +PERL_STATIC_INLINE void S_cx_pushloop_for(pTHX_ PERL_CONTEXT *cx, void *itervarp, SV *itersave); +#define PERL_ARGS_ASSERT_CX_PUSHLOOP_FOR \ + assert(cx); assert(itervarp) +PERL_STATIC_INLINE void S_cx_pushloop_plain(pTHX_ PERL_CONTEXT *cx); +#define PERL_ARGS_ASSERT_CX_PUSHLOOP_PLAIN \ + assert(cx) PERL_STATIC_INLINE void S_cx_pushsub(pTHX_ PERL_CONTEXT *cx, CV *cv, OP *retop, bool hasargs); #define PERL_ARGS_ASSERT_CX_PUSHSUB \ assert(cx); assert(cv) |