develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
infinoid
Date:
January 6, 2009 21:35
Subject:
[svn:parrot] r35090 - in trunk: include/parrot src
Message ID:
20090107053515.46423CB9F9@x12.develooper.com
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");



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About