diff options
| author | Karl Williamson <khw@cpan.org> | 2018-01-28 14:48:53 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-01-30 08:54:40 -0700 |
| commit | 9c13cd3cdfa6ab6920882a355869287a277989c3 (patch) | |
| tree | ad13abacc407640743a23ed66339bb9abf5966a4 /ext/XS-APItest | |
| parent | e08037291c2f611062f5eb94bf15c8607efe5bcc (diff) | |
| download | perl-9c13cd3cdfa6ab6920882a355869287a277989c3.tar.gz | |
APItest/APItest.xs: Simplify mappings
Instead of using SVs, use the underlying C type, and so the code here
doesn't have to deal with the SV conversions
Diffstat (limited to 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index a693318083..0be5d95310 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -1422,13 +1422,12 @@ test_utf8n_to_uvchr_msgs(s, len, flags) AV * test_utf8n_to_uvchr_error(s, len, flags) - SV *s - SV *len - SV *flags + char *s + STRLEN len + U32 flags PREINIT: STRLEN retlen; UV ret; - STRLEN slen; U32 errors; CODE: @@ -1441,10 +1440,10 @@ test_utf8n_to_uvchr_error(s, len, flags) RETVAL = newAV(); sv_2mortal((SV*)RETVAL); - ret = utf8n_to_uvchr_error((U8*) SvPV(s, slen), - SvUV(len), + ret = utf8n_to_uvchr_error((U8*) s, + len, &retlen, - SvUV(flags), + flags, &errors); /* Returns the return value in [0]; <retlen> in [1], <errors> in [2] */ |