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.

diff --git a/embed.fnc b/embed.fnc
index f3a24b8..16310b3 100644 (file)
--- 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 3699919..f161911 100644 (file)
--- 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 a2138ec..77109e7 100644 (file)
--- 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 d3fa7fa..218679a 100644 (file)
--- 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 d6929c7..13e5951 100644 (file)
--- 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 779c414..b936c6e 100644 (file)
--- 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 8f1b976..b40021b 100644 (file)
--- 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)