locale.c: Rmv unnecessary parameter from static function

This dates from an earlier implementation

Author: khwilliamson

embed.fnc

@@ -3368,8 +3368,7 @@ So	|void	|restore_toggled_locale_i|const unsigned cat_index	\
 S	|bool	|is_locale_utf8	|NN const char * locale
 #    if (defined(HAS_LOCALECONV) || defined(HAS_LOCALECONV_L))		\
      && (defined(USE_LOCALE_MONETARY) || defined(USE_LOCALE_NUMERIC))
-S	|HV *	|my_localeconv|const int item				\
-			      |const locale_utf8ness_t locale_is_utf8
+S	|HV *	|my_localeconv|const int item
 S	|HV *	|populate_localeconv|NN const struct lconv *lcbuf	\
 			|const int unused				\
 			|const locale_utf8ness_t numeric_locale_is_utf8	\

embed.h

@@ -1611,7 +1611,7 @@
 #  if (defined(HAS_LOCALECONV) || defined(HAS_LOCALECONV_L))		     && (defined(USE_LOCALE_MONETARY) || defined(USE_LOCALE_NUMERIC))
 #    if defined(PERL_IN_LOCALE_C)
 #      if defined(USE_LOCALE)
-#define my_localeconv(a,b)	S_my_localeconv(aTHX_ a,b)
+#define my_localeconv(a)	S_my_localeconv(aTHX_ a)
 #define populate_localeconv(a,b,c,d)	S_populate_localeconv(aTHX_ a,b,c,d)
 #      endif
 #    endif

locale.c

@@ -3122,7 +3122,7 @@ Perl_localeconv(pTHX)
 
 #else
 
-    return my_localeconv(0, LOCALE_UTF8NESS_UNKNOWN);
+    return my_localeconv(0);
 
 #endif
 
@@ -3132,7 +3132,7 @@ Perl_localeconv(pTHX)
  && (defined(USE_LOCALE_MONETARY) || defined(USE_LOCALE_NUMERIC))
 
 HV *
-S_my_localeconv(pTHX_ const int item, const locale_utf8ness_t locale_is_utf8)
+S_my_localeconv(pTHX_ const int item)
 {
     HV * retval;
     locale_utf8ness_t numeric_locale_is_utf8  = LOCALE_UTF8NESS_UNKNOWN;
@@ -3166,10 +3166,7 @@ S_my_localeconv(pTHX_ const int item, const locale_utf8ness_t locale_is_utf8)
 #  ifdef HAS_SOME_LANGINFO
 
     PERL_UNUSED_ARG(item);
-    PERL_UNUSED_ARG(locale_is_utf8);
 
-    /* When there is a nl_langinfo, we will only be called for localeconv
-     * numeric purposes. */
     const bool is_localeconv_call = true;
 
 #  else
@@ -3207,7 +3204,6 @@ S_my_localeconv(pTHX_ const int item, const locale_utf8ness_t locale_is_utf8)
 
     else {
         copy_localeconv = S_get_nl_item_from_localeconv;
-        numeric_locale_is_utf8 = locale_is_utf8;
     }
 
 #  endif
@@ -4123,7 +4119,7 @@ S_my_langinfo_i(pTHX_
       case CRNCYSTR:
       case THOUSEP:
         {
-            SV * string = (SV *) my_localeconv(item, LOCALE_UTF8NESS_UNKNOWN);
+            SV * string = (SV *) my_localeconv(item);
 
             retval = save_to_buffer(SvPV_nolen(string), retbufp, retbuf_sizep);
 

proto.h

@@ -5108,7 +5108,7 @@ PERL_CALLCONV bool	Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report)
 #if (defined(HAS_LOCALECONV) || defined(HAS_LOCALECONV_L))		     && (defined(USE_LOCALE_MONETARY) || defined(USE_LOCALE_NUMERIC))
 #  if defined(PERL_IN_LOCALE_C)
 #    if defined(USE_LOCALE)
-STATIC HV *	S_my_localeconv(pTHX_ const int item, const locale_utf8ness_t locale_is_utf8);
+STATIC HV *	S_my_localeconv(pTHX_ const int item);
 #define PERL_ARGS_ASSERT_MY_LOCALECONV
 STATIC HV *	S_populate_localeconv(pTHX_ const struct lconv *lcbuf, const int unused, const locale_utf8ness_t numeric_locale_is_utf8, const locale_utf8ness_t monetary_locale_is_utf8);
 #define PERL_ARGS_ASSERT_POPULATE_LOCALECONV	\