diff options
| author | Zefram <zefram@fysh.org> | 2012-02-11 11:05:51 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2012-02-11 11:05:51 +0000 |
| commit | e8570548af49b057631f1011e4b19c8c4a1342dd (patch) | |
| tree | 250e8d72a232028036906cd58757ad4f86da886c /proto.h | |
| parent | 96a6e6fa4fb95146d6ef6deb911128ac757e1550 (diff) | |
| download | perl-e8570548af49b057631f1011e4b19c8c4a1342dd.tar.gz | |
add wrap_op_checker() API function
This function provides a convenient and thread-safe way for modules to
hook op checking.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -4711,6 +4711,12 @@ PERL_CALLCONV I32 Perl_whichsig_sv(pTHX_ SV* sigsv) #define PERL_ARGS_ASSERT_WHICHSIG_SV \ assert(sigsv) +PERL_CALLCONV void Perl_wrap_op_checker(pTHX_ Optype opcode, Perl_check_t new_checker, Perl_check_t *old_checker_p) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); +#define PERL_ARGS_ASSERT_WRAP_OP_CHECKER \ + assert(new_checker); assert(old_checker_p) + PERL_CALLCONV void Perl_write_to_stderr(pTHX_ SV* msv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_WRITE_TO_STDERR \ |