Add some (UN)?LIKELY() to UTF8 handling

[perl5.git] / perly.c

diff --git a/perly.c b/perly.c
index 5a934dc..a7115b3 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -28,6 +28,7 @@
 #include "EXTERN.h"
 #define PERL_IN_PERLY_C
 #include "perl.h"
+#include "feature.h"
 
 typedef unsigned char yytype_uint8;
 typedef signed char yytype_int8;
@@ -433,9 +434,6 @@ Perl_yyparse (pTHX_ int gramtype)
 
     switch (yyn) {
 
-
-#define dep() deprecate("\"do\" to call subroutines")
-
 #ifdef PERL_IN_MADLY_C
 #  define IVAL(i) (i)->tk_lval.ival
 #  define PVAL(p) (p)->tk_lval.pval