[svn:parrot] r9883 - in trunk: config/gen/platform/win32 src

[particle]

Author: particle
Date: Thu Nov 10 07:47:03 2005
New Revision: 9883

Modified:
   trunk/config/gen/platform/win32/exec.c
   trunk/src/inter_call.c
   trunk/src/library.c
   trunk/src/register.c
Log:
ongoing compiler warning suppression

Modified: trunk/config/gen/platform/win32/exec.c
==============================================================================
--- trunk/config/gen/platform/win32/exec.c      (original)
+++ trunk/config/gen/platform/win32/exec.c      Thu Nov 10 07:47:03 2005
@@ -52,7 +52,7 @@ Parrot_Run_OS_Command_Argv(Parrot_Interp
     DWORD status = 0;
     STARTUPINFO si;
     PROCESS_INFORMATION pi;
-    unsigned int pmclen;
+    int pmclen;
     int cmdlinelen = 1000;
     int cmdlinepos = 0;
     char *cmdline = mem_sys_allocate(cmdlinelen);

Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c      (original)
+++ trunk/src/inter_call.c      Thu Nov 10 07:47:03 2005
@@ -670,7 +670,7 @@ parrot_pass_args_tail_call(Interp* inter
         struct Parrot_sub *dest_sub, opcode_t *pc)
 {
     struct call_state st;
-    int todo, i, n;
+    int todo;
     struct Interp_Context src_ctx;
     void *old_mem;
 

Modified: trunk/src/library.c
==============================================================================
--- trunk/src/library.c (original)
+++ trunk/src/library.c Thu Nov 10 07:47:03 2005
@@ -324,7 +324,7 @@ Parrot_locate_runtime_file(Interp *inter
                 str = string_from_cstring(interpreter, parrot_path, 
strlen(parrot_path));
                 if (Parrot_stat_info_intval(interpreter, str, STAT_EXISTS)) {
                     if (free_prefix)
-                        string_cstring_free(prefix);
+                        string_cstring_free(const_cast(prefix));
                     return parrot_path;
                 }
                 else

Modified: trunk/src/register.c
==============================================================================
--- trunk/src/register.c        (original)
+++ trunk/src/register.c        Thu Nov 10 07:47:03 2005
@@ -432,7 +432,7 @@ void *
 Parrot_realloc_context(Interp *interpreter, INTVAL *n_regs_used)
 {
     struct Parrot_Context *ctx;
-    size_t to_alloc, reg_alloc, size_n, size_nip;
+    size_t reg_alloc, size_n, size_nip;
     void *p, *old_mem;
     int i;