This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove PL_freq
authorKarl Williamson <khw@cpan.org>
Sat, 20 Jun 2020 22:22:13 +0000 (16:22 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 04:04:08 +0000 (22:04 -0600)
This hasn't actually been used since commit
8922e4382e9c1488fdbe46a0f52493860dc897a6.

globvar.sym
perl.h
util.c

index 0462026..76d99be 100644 (file)
@@ -16,7 +16,6 @@ PL_extended_utf8_dfa_tab
 PL_fold
 PL_fold_latin1
 PL_fold_locale
-PL_freq
 PL_global_struct_size
 PL_hexdigit
 PL_inf
diff --git a/perl.h b/perl.h
index 7a569c2..802bada 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5014,45 +5014,6 @@ EXT unsigned char PL_fold_locale[256]; /* Unfortunately not EXTCONST. */
 #  endif
 #endif /* !PERL_GLOBAL_STRUCT */
 
-#ifdef DOINIT
-EXTCONST unsigned char PL_freq[] = {   /* letter frequencies for mixed English/C */
-       1,      2,      84,     151,    154,    155,    156,    157,
-       165,    246,    250,    3,      158,    7,      18,     29,
-       40,     51,     62,     73,     85,     96,     107,    118,
-       129,    140,    147,    148,    149,    150,    152,    153,
-       255,    182,    224,    205,    174,    176,    180,    217,
-       233,    232,    236,    187,    235,    228,    234,    226,
-       222,    219,    211,    195,    188,    193,    185,    184,
-       191,    183,    201,    229,    181,    220,    194,    162,
-       163,    208,    186,    202,    200,    218,    198,    179,
-       178,    214,    166,    170,    207,    199,    209,    206,
-       204,    160,    212,    216,    215,    192,    175,    173,
-       243,    172,    161,    190,    203,    189,    164,    230,
-       167,    248,    227,    244,    242,    255,    241,    231,
-       240,    253,    169,    210,    245,    237,    249,    247,
-       239,    168,    252,    251,    254,    238,    223,    221,
-       213,    225,    177,    197,    171,    196,    159,    4,
-       5,      6,      8,      9,      10,     11,     12,     13,
-       14,     15,     16,     17,     19,     20,     21,     22,
-       23,     24,     25,     26,     27,     28,     30,     31,
-       32,     33,     34,     35,     36,     37,     38,     39,
-       41,     42,     43,     44,     45,     46,     47,     48,
-       49,     50,     52,     53,     54,     55,     56,     57,
-       58,     59,     60,     61,     63,     64,     65,     66,
-       67,     68,     69,     70,     71,     72,     74,     75,
-       76,     77,     78,     79,     80,     81,     82,     83,
-       86,     87,     88,     89,     90,     91,     92,     93,
-       94,     95,     97,     98,     99,     100,    101,    102,
-       103,    104,    105,    106,    108,    109,    110,    111,
-       112,    113,    114,    115,    116,    117,    119,    120,
-       121,    122,    123,    124,    125,    126,    127,    128,
-       130,    131,    132,    133,    134,    135,    136,    137,
-       138,    139,    141,    142,    143,    144,    145,    146
-};
-#else
-EXTCONST unsigned char PL_freq[];
-#endif
-
 /* Although only used for debugging, these constants must be available in
  * non-debugging builds too, since they're used in ext/re/re_exec.c,
  * which has DEBUGGING enabled always */
diff --git a/util.c b/util.c
index 4b6c0df..d0e8afe 100644 (file)
--- a/util.c
+++ b/util.c
@@ -716,9 +716,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
     const U8 *s;
     STRLEN i;
     STRLEN len;
-    U32 frequency = 256;
     MAGIC *mg;
-    PERL_DEB( STRLEN rarest = 0 );
 
     PERL_ARGS_ASSERT_FBM_COMPILE;
 
@@ -770,18 +768,8 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
        }
     }
 
-    s = (const unsigned char*)(SvPVX_const(sv));       /* deeper magic */
-    for (i = 0; i < len; i++) {
-        U32 this_frequency = PL_freq[NATIVE_TO_LATIN1(s[i])];
-       if (this_frequency < frequency) {
-           PERL_DEB( rarest = i );
-           frequency = this_frequency;
-       }
-    }
     BmUSEFUL(sv) = 100;                        /* Initial value */
     ((XPVNV*)SvANY(sv))->xnv_u.xnv_bm_tail = cBOOL(flags & FBMcf_TAIL);
-    DEBUG_r(PerlIO_printf(Perl_debug_log, "rarest char %c at %" UVuf "\n",
-                         s[rarest], (UV)rarest));
 }