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

[svn:parrot] r36099 - trunk/compilers/pirc/src

From:
infinoid
Date:
January 28, 2009 08:43
Subject:
[svn:parrot] r36099 - trunk/compilers/pirc/src
Message ID:
20090128164208.E26E0CB9F9@x12.develooper.com
Author: infinoid
Date: Wed Jan 28 08:42:08 2009
New Revision: 36099

Modified:
   trunk/compilers/pirc/src/bcgen.c
   trunk/compilers/pirc/src/main.c
   trunk/compilers/pirc/src/pirregalloc.c

Log:
[pirc] Fix a few warnings.

Modified: trunk/compilers/pirc/src/bcgen.c
==============================================================================
--- trunk/compilers/pirc/src/bcgen.c	(original)
+++ trunk/compilers/pirc/src/bcgen.c	Wed Jan 28 08:42:08 2009
@@ -477,7 +477,8 @@
     char *segment_name = (char *)mem_sys_allocate((strlen(name) + 5) * sizeof (char));
     sprintf(segment_name, "%s_ANN", name);
 
-    bc->interp->code->annotations = PackFile_Segment_new_seg(bc->interp,
+    bc->interp->code->annotations = (PackFile_Annotations*)
+                                    PackFile_Segment_new_seg(bc->interp,
                                         bc->interp->code->base.dir,
                                         PF_ANNOTATIONS_SEG, segment_name, 1);
 

Modified: trunk/compilers/pirc/src/main.c
==============================================================================
--- trunk/compilers/pirc/src/main.c	(original)
+++ trunk/compilers/pirc/src/main.c	Wed Jan 28 08:42:08 2009
@@ -177,7 +177,7 @@
     int                execute      = 0;
     char              *filename     = NULL;
     char              *outputfile   = NULL;
-    char              *hdocoutfile  = NULL;
+    const char        *hdocoutfile  = NULL;
     unsigned           macrosize    = INIT_MACRO_SIZE;
     PARROT_INTERP                   = Parrot_new(NULL);
 

Modified: trunk/compilers/pirc/src/pirregalloc.c
==============================================================================
--- trunk/compilers/pirc/src/pirregalloc.c	(original)
+++ trunk/compilers/pirc/src/pirregalloc.c	Wed Jan 28 08:42:08 2009
@@ -95,6 +95,7 @@
 XXX debug function only
 
 */
+void print_list(char *msg, live_interval *i);
 void
 print_list(char *msg, live_interval *i) {
     fprintf(stderr, "%s: ", msg);



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