This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove "b" flag for sv_utf8_upgrade_nomg in embed.fnc
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 27 Dec 2008 08:26:09 +0000 (09:26 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 27 Dec 2008 08:26:09 +0000 (09:26 +0100)
This is only a macro, without a Perl_ implementation.
Hopefully this fixes the Win32 build.

embed.fnc
global.sym
proto.h

index a926a53..cc3cf79 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1257,7 +1257,7 @@ AmdbR     |char*  |sv_pv          |NN SV *sv
 AmdbR  |char*  |sv_pvutf8      |NN SV *sv
 AmdbR  |char*  |sv_pvbyte      |NN SV *sv
 Amdb   |STRLEN |sv_utf8_upgrade|NN SV *sv
-Amdb   |STRLEN |sv_utf8_upgrade_nomg|NN SV *sv
+Amd    |STRLEN |sv_utf8_upgrade_nomg|NN SV *sv
 ApdM   |bool   |sv_utf8_downgrade|NN SV *const sv|const bool fail_ok
 Apd    |void   |sv_utf8_encode |NN SV *const sv
 ApdM   |bool   |sv_utf8_decode |NN SV *const sv
index 9598d52..fe26578 100644 (file)
@@ -663,7 +663,6 @@ Perl_sv_pv
 Perl_sv_pvutf8
 Perl_sv_pvbyte
 Perl_sv_utf8_upgrade
-Perl_sv_utf8_upgrade_nomg
 Perl_sv_utf8_downgrade
 Perl_sv_utf8_encode
 Perl_sv_utf8_decode
diff --git a/proto.h b/proto.h
index 06e305b..62ddce4 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3969,7 +3969,7 @@ PERL_CALLCONV void        Perl_reginitcolors(pTHX);
 #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE       \
        assert(sv)
 
-/* PERL_CALLCONV STRLEN        Perl_sv_utf8_upgrade_nomg(pTHX_ SV *sv)
+/* PERL_CALLCONV STRLEN        sv_utf8_upgrade_nomg(pTHX_ SV *sv)
                        __attribute__nonnull__(pTHX_1); */
 #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE_NOMG  \
        assert(sv)