Fix compiler warning introduced in DEBUGGING builds by #33103

p4raw-id: //depot/perl@33142

diff --git a/embed.fnc b/embed.fnc
index fa5e1d5..aa17276 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1585,7 +1585,7 @@ s |void   |strip_return   |NN SV *sv
 #  endif
 #  if defined(DEBUGGING)
 s      |int    |tokereport     |I32 rv|NN const YYSTYPE* lvalp
-s      |void   |printbuf       |NN const char *const fmt|NN const char* s
+s      |void   |printbuf       |NN const char *const fmt|NN const char *const s
 #  endif
 #endif
 

diff --git a/proto.h b/proto.h
index 865823a..3b4875e 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4171,7 +4171,7 @@ STATIC void       S_strip_return(pTHX_ SV *sv)
 STATIC int     S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp)
                        __attribute__nonnull__(pTHX_2);
 
-STATIC void    S_printbuf(pTHX_ const char *const fmt, const char* s)
+STATIC void    S_printbuf(pTHX_ const char *const fmt, const char *const s)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);