diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-08-21 10:22:00 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-08-25 23:21:28 -0600 |
commit | 218282dfcfa77fc6f19c73eba96331bbd064f1f0 (patch) | |
tree | 4a6b0e0dd57b8a1aaaadbe80fb63c384a7c1dfab /utf8.c | |
parent | 41de4811adc75d5bdcab9665a1cc19816e43c703 (diff) | |
download | perl-218282dfcfa77fc6f19c73eba96331bbd064f1f0.tar.gz |
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.
Diffstat (limited to 'utf8.c')
-rw-r--r-- | utf8.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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) |