diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-19 23:34:13 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-20 14:14:00 -0800 |
| commit | 032a04476225083994159c2b89c018e2594bf76e (patch) | |
| tree | 10bf9f93ebd9cfcb95dedeaa122d00ac162a331c /proto.h | |
| parent | 6e948d54e675df9d5cbe684af247800599526af9 (diff) | |
| download | perl-032a04476225083994159c2b89c018e2594bf76e.tar.gz | |
Add newXS_len_flags
It accepts a length as well as a pv for the name.
Since newXS_flags is marked with M in embed.fnc and is undocumented,
technically policy allows me to change it, but there are files
throughout cpan/ that use newXS_flags. So it seemed safer to add a
new function.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -2781,6 +2781,12 @@ PERL_CALLCONV CV * Perl_newXS_flags(pTHX_ const char *name, XSUBADDR_t subaddr, #define PERL_ARGS_ASSERT_NEWXS_FLAGS \ assert(subaddr); assert(filename) +PERL_CALLCONV CV * Perl_newXS_len_flags(pTHX_ const char *name, STRLEN len, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags) + __attribute__nonnull__(pTHX_3) + __attribute__nonnull__(pTHX_4); +#define PERL_ARGS_ASSERT_NEWXS_LEN_FLAGS \ + assert(subaddr); assert(filename) + PERL_CALLCONV void Perl_new_collate(pTHX_ const char* newcoll); PERL_CALLCONV void Perl_new_ctype(pTHX_ const char* newctype) __attribute__nonnull__(pTHX_1); |