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

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

From:
julianalbo
Date:
January 18, 2009 15:38
Subject:
[svn:parrot] r35730 - trunk/compilers/imcc
Message ID:
20090118233832.8A0C1CB9AE@x12.develooper.com
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. */



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