# New Ticket Created by Mattia Barbon
# Please include the string: [perl #24930]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=24930 >
Hello,
with this patch calling Parrot_redabc(interp, "foo") does not
warn anymore.
Regards
Mattia
Index: include/parrot/embed.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/embed.h,v
retrieving revision 1.22
diff -u -2 -r1.22 embed.h
--- include/parrot/embed.h 13 Dec 2003 15:01:15 -0000 1.22
+++ include/parrot/embed.h 17 Jan 2004 13:53:33 -0000
@@ -34,5 +34,5 @@
void Parrot_setwarnings(Parrot_Interp, Parrot_warnclass);
-Parrot_PackFile Parrot_readbc(Parrot_Interp, char *);
+Parrot_PackFile Parrot_readbc(Parrot_Interp, const char *);
void Parrot_loadbc(Parrot_Interp, Parrot_PackFile);
Index: src/embed.c
===================================================================
RCS file: /cvs/public/parrot/src/embed.c,v
retrieving revision 1.98
diff -u -2 -r1.98 embed.c
--- src/embed.c 21 Dec 2003 10:15:19 -0000 1.98
+++ src/embed.c 17 Jan 2004 13:53:38 -0000
@@ -87,5 +87,5 @@
*/
struct PackFile *
-Parrot_readbc(struct Parrot_Interp *interpreter, char *filename)
+Parrot_readbc(struct Parrot_Interp *interpreter, const char *filename)
{
#if PARROT_HAS_HEADER_UNISTD
