[svn:parrot] r35090 - in trunk: include/parrot src

[infinoid]

Author: infinoid
Date: Tue Jan  6 21:35:14 2009
New Revision: 35090

Modified:
   trunk/include/parrot/packfile.h
   trunk/src/packfile.c

Log:
[core] Fix a warning from mismatched constness.

Modified: trunk/include/parrot/packfile.h
==============================================================================
--- trunk/include/parrot/packfile.h     (original)
+++ trunk/include/parrot/packfile.h     Tue Jan  6 21:35:14 2009
@@ -709,7 +709,7 @@
         FUNC_MODIFIES(*seg);
 
 void PackFile_Annotations_dump(PARROT_INTERP,
-    ARGIN(struct PackFile_Segment *seg))
+    ARGIN(const struct PackFile_Segment *seg))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c        (original)
+++ trunk/src/packfile.c        Tue Jan  6 21:35:14 2009
@@ -4047,13 +4047,13 @@
 */
 
 void
-PackFile_Annotations_dump(PARROT_INTERP, ARGIN(struct PackFile_Segment *seg))
+PackFile_Annotations_dump(PARROT_INTERP, ARGIN(const struct PackFile_Segment 
*seg))
 {
     ASSERT_ARGS(PackFile_Annotations_dump)
-    PackFile_Annotations *self = (PackFile_Annotations *)seg;
+    const PackFile_Annotations *self = (const PackFile_Annotations *)seg;
     INTVAL i;
 
-    default_dump_header(interp, (PackFile_Segment *)self);
+    default_dump_header(interp, (const PackFile_Segment *)self);
 
     /* Dump keys. */
     Parrot_io_printf(interp, "\n  keys => [\n");