compile on threaded perls

[p5sagit/Function-Parameters.git] / toke_on_crack.c.inc

diff --git a/toke_on_crack.c.inc b/toke_on_crack.c.inc
index fca95b5..1607c78 100644 (file)
--- a/toke_on_crack.c.inc
+++ b/toke_on_crack.c.inc
@@ -306,7 +306,7 @@ static char *S_scan_str(pTHX_ SV *sv, int keep_quoted, int keep_delims) {
        return s;
 }
 
-static void S_check_prototype(const SV *declarator, SV *proto) {
+static void S_check_prototype(pTHX_ const SV *declarator, SV *proto) {
        bool bad_proto = FALSE;
        bool in_brackets = FALSE;
        char greedy_proto = ' ';