summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2023-01-13 20:37:01 +0100
committerYves Orton <demerphq@gmail.com>2023-01-14 17:53:20 +0100
commitcc8af69427466b91a81167e24e583e8638b32949 (patch)
tree5cc80e779f92c8c93a16a25f804c3564ef51b775 /proto.h
parent33019846eaa4ea3ee24c40e9765272bbc0f49317 (diff)
downloadperl-cc8af69427466b91a81167e24e583e8638b32949.tar.gz
embed.pl - add a way to declare a parameter should be non-zero
This autogenerates the required asserts to validate a parameter is non-zero. It uses it to replace the check in regrepeat() as a first example.
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/proto.h b/proto.h
index a834b7867c..157a25041d 100644
--- a/proto.h
+++ b/proto.h
@@ -8819,7 +8819,8 @@ STATIC I32
S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, char *loceol, regmatch_info * const reginfo, I32 max _pDEPTH)
__attribute__warn_unused_result__;
# define PERL_ARGS_ASSERT_REGREPEAT \
- assert(prog); assert(startposp); assert(p); assert(loceol); assert(reginfo)
+ assert(prog); assert(startposp); assert(p); assert(loceol); assert(reginfo); \
+ assert(max)
STATIC bool
S_regtry(pTHX_ regmatch_info *reginfo, char **startposp)