This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add S_sv_catpvn_simple() for use by sprintf
authorDavid Mitchell <davem@iabyn.com>
Fri, 2 Jun 2017 12:51:45 +0000 (13:51 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 7 Jun 2017 08:11:09 +0000 (09:11 +0100)
commit069f220916a5df0756a761e8e064076229b3e312
tree7e3d3c36f23acb4444fab048e36bb253833c59fe
parentfb66e1c9b3acce81ab01cdc67d5f8610900fcf67
add S_sv_catpvn_simple() for use by sprintf

Currently Perl_sv_vcatpvfn_flags() uses an unrolled sv_catpvn_nomg()
to append floating point formats, a call to sv_catpvn_nomg() to append
non-% parts of the format, and a few other non-performance-critical
calls to sv_catpvn_nomg().

Move the unrolled code block into an inline static function, and make
the non-% appending use it too.
sv.c