Comment out unused function

In looking at \X handling, I noticed that this function which is
intended for use in it, actually isn't used.  This function may someday
be useful, so I'm leaving the source in.

7 files changed, 4 insertions, 11 deletions

diff --git a/embed.fnc b/embed.fnc
index f3a24b88c9..16310b389f 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -665,7 +665,7 @@ EXpR	|bool	|is_utf8_X_extend	|NN const U8 *p
 EXpR	|bool	|is_utf8_X_prepend	|NN const U8 *p
 EXpR	|bool	|is_utf8_X_non_hangul	|NN const U8 *p
 EXpR	|bool	|is_utf8_X_L		|NN const U8 *p
-EXpR	|bool	|is_utf8_X_LV		|NN const U8 *p
+:not currently used EXpR	|bool	|is_utf8_X_LV		|NN const U8 *p
 EXpR	|bool	|is_utf8_X_LVT		|NN const U8 *p
 EXpR	|bool	|is_utf8_X_LV_LVT_V	|NN const U8 *p
 EXpR	|bool	|is_utf8_X_T		|NN const U8 *p
diff --git a/embed.h b/embed.h
index 3699919c8f..f1619112e9 100644
--- a/embed.h
+++ b/embed.h
@@ -856,7 +856,6 @@
 #define av_reify(a)		Perl_av_reify(aTHX_ a)
 #define current_re_engine()	Perl_current_re_engine(aTHX)
 #define is_utf8_X_L(a)		Perl_is_utf8_X_L(aTHX_ a)
-#define is_utf8_X_LV(a)		Perl_is_utf8_X_LV(aTHX_ a)
 #define is_utf8_X_LVT(a)	Perl_is_utf8_X_LVT(aTHX_ a)
 #define is_utf8_X_LV_LVT_V(a)	Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
 #define is_utf8_X_T(a)		Perl_is_utf8_X_T(aTHX_ a)
diff --git a/embedvar.h b/embedvar.h
index a2138ecdae..77109e73b5 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -354,7 +354,6 @@
 #define PL_unlockhook		(vTHX->Iunlockhook)
 #define PL_unsafe		(vTHX->Iunsafe)
 #define PL_utf8_X_L		(vTHX->Iutf8_X_L)
-#define PL_utf8_X_LV		(vTHX->Iutf8_X_LV)
 #define PL_utf8_X_LVT		(vTHX->Iutf8_X_LVT)
 #define PL_utf8_X_LV_LVT_V	(vTHX->Iutf8_X_LV_LVT_V)
 #define PL_utf8_X_T		(vTHX->Iutf8_X_T)
diff --git a/intrpvar.h b/intrpvar.h
index d3fa7fa985..218679a9bf 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -631,7 +631,6 @@ PERLVAR(I, utf8_X_extend, SV *)
 PERLVAR(I, utf8_X_prepend, SV *)
 PERLVAR(I, utf8_X_non_hangul, SV *)
 PERLVAR(I, utf8_X_L,	SV *)
-PERLVAR(I, utf8_X_LV,	SV *)
 PERLVAR(I, utf8_X_LVT,	SV *)
 PERLVAR(I, utf8_X_T,	SV *)
 PERLVAR(I, utf8_X_V,	SV *)
diff --git a/proto.h b/proto.h
index d6929c7955..13e5951c82 100644
--- a/proto.h
+++ b/proto.h
@@ -1770,12 +1770,6 @@ PERL_CALLCONV bool	Perl_is_utf8_X_L(pTHX_ const U8 *p)
 #define PERL_ARGS_ASSERT_IS_UTF8_X_L	\
 	assert(p)
 
-PERL_CALLCONV bool	Perl_is_utf8_X_LV(pTHX_ const U8 *p)
-			__attribute__warn_unused_result__
-			__attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_IS_UTF8_X_LV	\
-	assert(p)
-
 PERL_CALLCONV bool	Perl_is_utf8_X_LVT(pTHX_ const U8 *p)
 			__attribute__warn_unused_result__
 			__attribute__nonnull__(pTHX_1);
diff --git a/sv.c b/sv.c
index 779c4145bd..b936c6e991 100644
--- a/sv.c
+++ b/sv.c
@@ -13369,7 +13369,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_utf8_X_prepend	= sv_dup_inc(proto_perl->Iutf8_X_prepend, param);
     PL_utf8_X_non_hangul	= sv_dup_inc(proto_perl->Iutf8_X_non_hangul, param);
     PL_utf8_X_L	= sv_dup_inc(proto_perl->Iutf8_X_L, param);
-    PL_utf8_X_LV	= sv_dup_inc(proto_perl->Iutf8_X_LV, param);
+    /*not currently used: PL_utf8_X_LV	= sv_dup_inc(proto_perl->Iutf8_X_LV, param);*/
     PL_utf8_X_LVT	= sv_dup_inc(proto_perl->Iutf8_X_LVT, param);
     PL_utf8_X_T	= sv_dup_inc(proto_perl->Iutf8_X_T, param);
     PL_utf8_X_V	= sv_dup_inc(proto_perl->Iutf8_X_V, param);
diff --git a/utf8.c b/utf8.c
index 8f1b976931..b40021be25 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2264,6 +2264,7 @@ Perl_is_utf8_X_L(pTHX_ const U8 *p)
 #define SCount 11172    /* Length of block */
 #define TCount 28
 
+#if 0   /* This routine is not currently used */
 bool
 Perl_is_utf8_X_LV(pTHX_ const U8 *p)
 {
@@ -2291,6 +2292,7 @@ Perl_is_utf8_X_LV(pTHX_ const U8 *p)
             && cp >= SBASE && cp < SBASE + SCount
             && (cp - SBASE) % TCount == 0); /* Only every TCount one is LV */
 }
+#endif
 
 bool
 Perl_is_utf8_X_LVT(pTHX_ const U8 *p)