Oops, my patch introduced some more warnings in other files. Here's a
fixed version.
Index: exceptions.c
===================================================================
RCS file: /home/perlcvs/parrot/exceptions.c,v
retrieving revision 1.2
diff -u -r1.2 exceptions.c
--- exceptions.c 15 Feb 2002 23:20:31 -0000 1.2
+++ exceptions.c 16 Feb 2002 04:08:14 -0000
@@ -1,4 +1,4 @@
-/* exceptions.h
+/* exceptions.c
* Copyright: (When this is determined...it will go here)
* CVS Info
* $Id: exceptions.c,v 1.2 2002/02/15 23:20:31 brentdax Exp $
@@ -11,6 +11,7 @@
*/
#include "parrot/parrot.h"
+#include "parrot/exceptions.h"
#include <stdarg.h>
@@ -27,7 +28,7 @@
#define dumpcore() printf("Sorry, coredump is not yet implemented for this
platform.\n\n"); exit(1);
-void do_panic(struct Parrot_Interp *interpreter, char *message, char *file, int line)
{
+void do_panic(struct Parrot_Interp *interpreter, const char *message, const char
+*file, int line) {
printf(
"Parrot VM: PANIC: %s!\n\
C file %s, line %d\n\
@@ -44,7 +45,7 @@
Architecture: " PARROT_ARCHNAME "\n\
JIT Capable : %s\n\
\n\
-Interp Flags: 0x%x\n\
+Interp Flags: 0x%lx\n\
Exceptions : (missing from core)\n\
\n\
Dumping core...\n\
@@ -53,7 +54,7 @@
file,
line,
"(not available)",
- interpreter->current_line,
+ (int)interpreter->current_line,
(JIT_CAPABLE ? "Yes" : "No"),
interpreter->flags);
dumpcore();
Index: include/parrot/exceptions.h
===================================================================
RCS file: /home/perlcvs/parrot/include/parrot/exceptions.h,v
retrieving revision 1.13
diff -u -r1.13 exceptions.h
--- include/parrot/exceptions.h 15 Feb 2002 23:20:50 -0000 1.13
+++ include/parrot/exceptions.h 16 Feb 2002 04:08:15 -0000
@@ -16,6 +16,7 @@
/* Prototypes */
void internal_exception(int exitcode, const char * format, ... );
+void do_panic(struct Parrot_Interp *interpreter, const char *message, const char
+*file, int line);
#define PANIC(message)\
do_panic(interpreter, message, __FILE__, __LINE__)
