diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-05-03 09:52:49 -0600 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2011-05-03 17:14:06 -0400 |
| commit | 7bee57f6d73fe07d73dd9b4a538e4ffd60c7eed8 (patch) | |
| tree | 3abff776f0a716ac976a5ddf252f0e2a5a9b434f | |
| parent | a5eda76fc2190125cec66d38de6fa46913045ca0 (diff) | |
| download | perl-7bee57f6d73fe07d73dd9b4a538e4ffd60c7eed8.tar.gz | |
embed.fnc: Allow NULL arg to to_utf8_case()
Code within the function doesn't assume that the parameter is non-null,
and in fact the specials are retrieved by swash_init(). Having the
parameter null just means that no specials will be retrieved in the
current call.
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | proto.h | 5 |
2 files changed, 3 insertions, 4 deletions
@@ -1318,7 +1318,7 @@ EsMR |HV* |invlist_union |NN HV* const a|NN HV* const b Ap |void |taint_env Ap |void |taint_proper |NULLOK const char* f|NN const char *const s Apd |UV |to_utf8_case |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp \ - |NN SV **swashp|NN const char *normal|NN const char *special + |NN SV **swashp|NN const char *normal|NULLOK const char *special Apd |UV |to_utf8_lower |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp Apd |UV |to_utf8_upper |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp Apd |UV |to_utf8_title |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp @@ -4253,10 +4253,9 @@ PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, S __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_4) - __attribute__nonnull__(pTHX_5) - __attribute__nonnull__(pTHX_6); + __attribute__nonnull__(pTHX_5); #define PERL_ARGS_ASSERT_TO_UTF8_CASE \ - assert(p); assert(ustrp); assert(swashp); assert(normal); assert(special) + assert(p); assert(ustrp); assert(swashp); assert(normal) PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) __attribute__nonnull__(pTHX_1) |