If it's S_, it should be STATIC.

p4raw-id: //depot/perl@19366

diff --git a/embed.fnc b/embed.fnc
index 8e61254..4547e1f 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1301,6 +1301,10 @@ s        |COP*   |closest_cop    |COP *cop|OP *o
 s      |SV*    |mess_alloc
 #endif
 
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+sn     |NV|mulexp10    |NV value|I32 exponent
+#endif
+
 START_EXTERN_C
 
 Apd    |void   |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags

diff --git a/embed.h b/embed.h
index 325217b..489a552 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -2030,6 +2030,11 @@
 #define mess_alloc             S_mess_alloc
 #endif
 #endif
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define mulexp10               S_mulexp10
+#endif
+#endif
 #define sv_setsv_flags         Perl_sv_setsv_flags
 #define sv_catpvn_flags                Perl_sv_catpvn_flags
 #define sv_catsv_flags         Perl_sv_catsv_flags
@@ -4496,6 +4501,11 @@
 #define mess_alloc()           S_mess_alloc(aTHX)
 #endif
 #endif
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define mulexp10               S_mulexp10
+#endif
+#endif
 #define sv_setsv_flags(a,b,c)  Perl_sv_setsv_flags(aTHX_ a,b,c)
 #define sv_catpvn_flags(a,b,c,d)       Perl_sv_catpvn_flags(aTHX_ a,b,c,d)
 #define sv_catsv_flags(a,b,c)  Perl_sv_catsv_flags(aTHX_ a,b,c)

diff --git a/numeric.c b/numeric.c
index a2d57d6..6232f8e 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -718,7 +718,7 @@ Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep)
   return 0;
 }
 
-NV
+STATIC NV
 S_mulexp10(NV value, I32 exponent)
 {
     NV result = 1.0;

diff --git a/proto.h b/proto.h
index b8fe978..2421889 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1328,6 +1328,10 @@ STATIC COP*      S_closest_cop(pTHX_ COP *cop, OP *o);
 STATIC SV*     S_mess_alloc(pTHX);
 #endif
 
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+STATIC NV      S_mulexp10(NV value, I32 exponent);
+#endif
+
 START_EXTERN_C
 
 PERL_CALLCONV void     Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);