[svn:parrot] r18547 - in trunk/src: . io pmc

[particle]

Author: particle
Date: Tue May 15 09:08:45 2007
New Revision: 18547

Modified:
   trunk/src/debug.c
   trunk/src/io/io_win32.c
   trunk/src/objects.c
   trunk/src/pmc/exporter.pmc

Log:
eliminate some compiler warnings
~ all tests pass

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c   (original)
+++ trunk/src/debug.c   Tue May 15 09:08:45 2007
@@ -1983,8 +1983,10 @@
 PDB_eval(Interp *interp, const char *command)
 {
     opcode_t *run;
+#if 0
     PackFile *eval_pf;
     PackFile_ByteCode *old_cs;
+#endif
 
     /*
     The replacement code is almost certainly wrong. The previous

Modified: trunk/src/io/io_win32.c
==============================================================================
--- trunk/src/io/io_win32.c     (original)
+++ trunk/src/io/io_win32.c     Tue May 15 09:08:45 2007
@@ -554,7 +554,7 @@
 
     sa.sin_port = htons(port);
 
-    return string_make(interp, &sa, sizeof (struct sockaddr), "binary", 0);
+    return string_make(interp, (char *)&sa, sizeof (struct sockaddr), 
"binary", 0);
 }
 
 

Modified: trunk/src/objects.c
==============================================================================
--- trunk/src/objects.c (original)
+++ trunk/src/objects.c Tue May 15 09:08:45 2007
@@ -123,8 +123,8 @@
 Parrot_find_vtable_meth(Interp* interp, PMC *pmc, STRING *meth)
 {
     PMC  *_class = pmc;
-    INTVAL i, n, j, k;
-    PMC  *ns, *mro, *key, *self_class;
+    INTVAL i, n;
+    PMC  *ns, *mro, *self_class;
 
     /* Get index in Parrot_vtable_slot_names[]. */
     INTVAL vtable_index = Parrot_get_vtable_index(interp, meth);

Modified: trunk/src/pmc/exporter.pmc
==============================================================================
--- trunk/src/pmc/exporter.pmc  (original)
+++ trunk/src/pmc/exporter.pmc  Tue May 15 09:08:45 2007
@@ -236,7 +236,6 @@
 
     PCCMETHOD void globals(PMC *glb :optional, int got_glb :opt_flag) {
         Parrot_Exporter *exp    = PARROT_EXPORTER(SELF);
-        PMC             *ret_globals;
         STRING          *s_str  = CONST_STRING(interp, "String");
         STRING          *s_arr  = CONST_STRING(interp, "array");
         STRING          *s_hash = CONST_STRING(interp, "hash");