diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-30 23:53:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-30 23:53:56 +0000 |
| commit | 33fb7a6edc5251e55242be2c5935f334082dd9b7 (patch) | |
| tree | 923d77a74387c0b9365f679394913b111c893b5b /proto.h | |
| parent | e670910b0c400b157be823734ec6e961eafe0d4a (diff) | |
| download | perl-33fb7a6edc5251e55242be2c5935f334082dd9b7.tar.gz | |
Refactor the code used to check/execute BEGIN/UNITCHECK/CHECK/INIT/END
duplicated in newATTRSUB and newXS into a new static function
process_special_blocks()
p4raw-id: //depot/perl@30080
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -3293,6 +3293,11 @@ STATIC OP* S_newGIVWHENOP(pTHX_ OP* cond, OP *block, I32 enter_opcode, I32 leave __attribute__nonnull__(pTHX_2); STATIC OP* S_ref_array_or_hash(pTHX_ OP* cond); +STATIC void S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv, CV *const cv) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); + #endif #if defined(PL_OP_SLAB_ALLOC) PERL_CALLCONV void* Perl_Slab_Alloc(pTHX_ int m, size_t sz) |