[svn:parrot] r35730 - trunk/compilers/imcc

[email protected]
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: julianalbo
Date: Sun Jan 18 15:38:31 2009
New Revision: 35730

Modified:
   trunk/compilers/imcc/pbc.c

Log:
add some casts to avoid warnings

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	(original)
+++ trunk/compilers/imcc/pbc.c	Sun Jan 18 15:38:31 2009
@@ -2169,11 +2169,12 @@
         /* Add annotations seg if we're missing one. */
         if (!interp->code->annotations) {
             /* Create segment. */
-            char * const name = mem_sys_allocate(strlen(interp->code->base.name) + 5);
+            char * const name = (char *) mem_sys_allocate(strlen(interp->code->base.name) + 5);
             strcpy(name, interp->code->base.name);
             strcat(name, "_ANN");
-            interp->code->annotations = PackFile_Segment_new_seg(interp, interp->code->base.dir,
-                    PF_ANNOTATIONS_SEG, name, 1);
+            interp->code->annotations = (PackFile_Annotations *)
+                    PackFile_Segment_new_seg(interp, interp->code->base.dir,
+                        PF_ANNOTATIONS_SEG, name, 1);
             interp->code->annotations->code = interp->code;
 
             /* Create initial group. */
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.