diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-30 12:33:48 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:20 +0000 |
| commit | a73d8813ef7582a7040306de412d61e841271675 (patch) | |
| tree | 2c07d21407a88f0c6c0a218658c0582287a2ebce /proto.h | |
| parent | ed8ff0f310e9159df865ecc2e1d316816e8cc11e (diff) | |
| download | perl-a73d8813ef7582a7040306de412d61e841271675.tar.gz | |
convert CX_PUSHSUB/POPSUB to inline fns
Replace CX_PUSHSUB() with cx_pushsub() etc.
No functional changes.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -3721,9 +3721,21 @@ PERL_STATIC_INLINE SSize_t S_av_top_index(pTHX_ AV *av) PERL_STATIC_INLINE void S_cx_popblock(pTHX_ PERL_CONTEXT *cx); #define PERL_ARGS_ASSERT_CX_POPBLOCK \ assert(cx) +PERL_STATIC_INLINE void S_cx_popsub(pTHX_ PERL_CONTEXT *cx); +#define PERL_ARGS_ASSERT_CX_POPSUB \ + assert(cx) +PERL_STATIC_INLINE void S_cx_popsub_args(pTHX_ PERL_CONTEXT *cx); +#define PERL_ARGS_ASSERT_CX_POPSUB_ARGS \ + assert(cx) +PERL_STATIC_INLINE void S_cx_popsub_common(pTHX_ PERL_CONTEXT *cx); +#define PERL_ARGS_ASSERT_CX_POPSUB_COMMON \ + assert(cx) PERL_STATIC_INLINE PERL_CONTEXT * S_cx_pushblock(pTHX_ U8 type, U8 gimme, SV** sp, I32 saveix); #define PERL_ARGS_ASSERT_CX_PUSHBLOCK \ assert(sp) +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) PERL_STATIC_INLINE void S_cx_topblock(pTHX_ PERL_CONTEXT *cx); #define PERL_ARGS_ASSERT_CX_TOPBLOCK \ assert(cx) |