diff options
author | Yves Orton <demerphq@gmail.com> | 2023-01-13 20:37:01 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-01-14 17:53:20 +0100 |
commit | cc8af69427466b91a81167e24e583e8638b32949 (patch) | |
tree | 5cc80e779f92c8c93a16a25f804c3564ef51b775 /proto.h | |
parent | 33019846eaa4ea3ee24c40e9765272bbc0f49317 (diff) | |
download | perl-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.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) |