This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Comment out unused function
authorKarl Williamson <public@khwilliamson.com>
Tue, 21 Aug 2012 16:22:00 +0000 (10:22 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 26 Aug 2012 05:21:28 +0000 (23:21 -0600)
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.

embed.fnc
embed.h
embedvar.h
intrpvar.h
proto.h
sv.c
utf8.c

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
 #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)
index a2138ec..77109e7 100644 (file)
 #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)
index d3fa7fa..218679a 100644 (file)
@@ -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)