# New Ticket Created by Jürgen Bömmels
# Please include the string: [perl #17935]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17935 >
/usr/local/bin/gcc -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wshadow
-Wpointer-arith -Wcast-align -Wwrite-strings -Waggregate-return -Winline -W
-Wno-unused -Wsign-compare -Wformat-security -Wpacked -Wdisabled-optimization -Werror
-Wno-padded -Wno-format-nonliteral -Wno-cast-qual -I../include -o default.o -c
default.c
cc1: warnings being treated as errors
default.pmc: In function `caller':
default.pmc:21: warning: return discards qualifiers from pointer target type
make[1]: *** [default.o] Error 1
attached patch fixes this problem.
b.
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/39841/32251/ba406d/warning.diff
Index: classes/default.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/default.pmc,v
retrieving revision 1.34
diff -u -r1.34 default.pmc
--- classes/default.pmc 14 Oct 2002 03:14:26 -0000 1.34
+++ classes/default.pmc 14 Oct 2002 22:27:31 -0000
@@ -13,9 +13,9 @@
#define INT2KEY(i,k) ((k) ? key_new_integer((i), *(k)) : NULL)
-static char * caller(Parrot_Interp interp, PMC * pmc);
+static const char * caller(Parrot_Interp interp, PMC * pmc);
-static char * caller(Parrot_Interp interp, PMC * pmc)
+static const char * caller(Parrot_Interp interp, PMC * pmc)
{
return pmc && pmc->vtable && pmc->vtable->name ?
pmc->vtable->name(interp, pmc)->strstart : "(null)";
