diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-12-14 12:23:40 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-12-17 12:19:38 +0000 |
commit | 3288b2435217a1358a3bf5aab3cdfa995bd676a3 (patch) | |
tree | 28d99a2de9ae5431be57dadc191fb6d2bac62b59 /proto.h | |
parent | 63913cc7c64b09b652ff78a75a2630ebb5d6ad35 (diff) | |
download | perl-3288b2435217a1358a3bf5aab3cdfa995bd676a3.tar.gz |
Add `forbid_outofblock_ops()` to op.c
Adds a new function to statically detect forbidden control flow out of a
block.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1301,6 +1301,9 @@ PERL_STATIC_INLINE I32 Perl_foldEQ_locale(pTHX_ const char* a, const char* b, I3 PERL_CALLCONV I32 Perl_foldEQ_utf8_flags(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2, U32 flags); #define PERL_ARGS_ASSERT_FOLDEQ_UTF8_FLAGS \ assert(s1); assert(s2) +PERL_CALLCONV void Perl_forbid_outofblock_ops(pTHX_ OP *o, const char *blockname); +#define PERL_ARGS_ASSERT_FORBID_OUTOFBLOCK_OPS \ + assert(o); assert(blockname) PERL_CALLCONV void Perl_force_locale_unlock(void) __attribute__visibility__("hidden"); #define PERL_ARGS_ASSERT_FORCE_LOCALE_UNLOCK |