find_byclass() prototype was incoherent

p4raw-id: //depot/perl@4608

diff --git a/regexec.c b/regexec.c
index f1b3590..9c0ef17 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -745,8 +745,8 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 }
 
 /* We know what class REx starts with.  Try to find this position... */
-static char *
-find_byclass(regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun)
+STATIC char *
+S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun)
 {
        I32 doevery = (prog->reganch & ROPT_SKIP) == 0;
        char *m;
@@ -1221,11 +1221,8 @@ find_byclass(regexp * prog, regnode *c, char *s, char *strend, char *startpos, I
            }
            break;
        default:
-           {
-               dTHX;
-               Perl_croak(aTHX_ "panic: unknown regstclass %d", (int)OP(c));
-               break;
-           }
+           Perl_croak(aTHX_ "panic: unknown regstclass %d", (int)OP(c));
+           break;
        }
        return 0;
       got_it: