Index: build_tools/build_nativecall.pl
===================================================================
RCS file: /cvs/public/parrot/build_tools/build_nativecall.pl,v
retrieving revision 1.38
diff -b -u -r1.38 build_nativecall.pl
--- build_tools/build_nativecall.pl	20 Jan 2004 19:01:34 -0000	1.38
+++ build_tools/build_nativecall.pl	9 Feb 2004 23:36:07 -0000
@@ -236,11 +236,6 @@
 build_call_func(struct Parrot_Interp *interpreter, PMC *pmc_nci,
                 STRING *signature)
 {
-
-    STRING *ns;
-    STRING *message;
-    char *c;
-
 #if defined(CAN_BUILD_CALL_FRAMES)
     /* This would be a good place to put the code that builds the
        frames. Undoubtedly painfully platform-dependent */
Index: build_tools/jit2h.pl
===================================================================
RCS file: /cvs/public/parrot/build_tools/jit2h.pl,v
retrieving revision 1.56
diff -b -u -r1.56 jit2h.pl
--- build_tools/jit2h.pl	20 Jan 2004 19:01:34 -0000	1.56
+++ build_tools/jit2h.pl	9 Feb 2004 23:36:07 -0000
@@ -240,6 +240,11 @@
 #include"parrot/jit.h"
 #define JIT_EMIT $jit_emit_n
 
+/* Disable "truncation from 'const int' to 'char'" warning. */
+#if defined (_MSC_VER)
+#pragma warning(disable: 4305)
+#endif
+
 /*
  *define default jit_funcs, if architecture doesn't have these optimizations
  */
Index: src/dod.c
===================================================================
RCS file: /cvs/public/parrot/src/dod.c,v
retrieving revision 1.89
diff -b -u -r1.89 dod.c
--- src/dod.c	27 Jan 2004 09:57:49 -0000	1.89
+++ src/dod.c	9 Feb 2004 23:36:14 -0000
@@ -378,7 +378,7 @@
 static void
 trace_active_buffers(struct Parrot_Interp *interpreter)
 {
-    UINTVAL i, j;
+    UINTVAL i;
 
     /* First mark the current set. We assume that all pointers in S registers
      * are pointing to valid buffers. This is not a good assumption, but it'll
Index: src/interpreter.c
===================================================================
RCS file: /cvs/public/parrot/src/interpreter.c,v
retrieving revision 1.266
diff -b -u -r1.266 interpreter.c
--- src/interpreter.c	9 Feb 2004 16:53:33 -0000	1.266
+++ src/interpreter.c	9 Feb 2004 23:36:15 -0000
@@ -228,7 +228,7 @@
             pi->n_branches = 0;
         }
         else if (pi->n_branches >= pi->n_allocated) {
-            pi->n_allocated *= 1.5;
+            pi->n_allocated = (UINTVAL) pi->n_allocated * 1.5;
             pi->branches = mem_sys_realloc( pi->branches,
                     sizeof(Prederef_branch) * pi->n_allocated);
         }
@@ -1343,7 +1343,6 @@
     STRING* sig_str;
     char *p;
     char pasm_sig[4];
-    FLOATVAL* d_param;
     INTVAL   i_param;
     void*    param;
 
Index: src/objects.c
===================================================================
RCS file: /cvs/public/parrot/src/objects.c,v
retrieving revision 1.29
diff -b -u -r1.29 objects.c
--- src/objects.c	27 Jan 2004 23:08:08 -0000	1.29
+++ src/objects.c	9 Feb 2004 23:36:15 -0000
@@ -454,8 +454,6 @@
 Parrot_find_method_with_cache(Parrot_Interp interpreter, PMC *class,
                               STRING *method_name) {
     PMC* method = NULL;  /* The method we ultimately return */
-    PMC* classname;      /* The classname PMC for the currently
-                            searched class */
     PMC* curclass;          /* PMC for the current search class */
     PMC* classsearch_array; /* The array of classes we're searching
                                for the method in */
@@ -465,8 +463,6 @@
     STRING *FQ_method;   /* The fully qualified name of the method
                             that we're going to look for, rebuilt for
                             each class we search */
-    STRING *fallback_name; /* The name of the fallback method for
-                              this class */
     STRING *shortcut_name; /* The method name with the separator
                               prepended */
 
Index: src/packfile.c
===================================================================
RCS file: /cvs/public/parrot/src/packfile.c,v
retrieving revision 1.133
diff -b -u -r1.133 packfile.c
--- src/packfile.c	4 Feb 2004 13:19:32 -0000	1.133
+++ src/packfile.c	9 Feb 2004 23:36:16 -0000
@@ -2355,7 +2355,6 @@
 PackFile_Constant_pack_size(struct PackFile_Constant *self)
 {
     size_t packed_size;
-    opcode_t padded_size;
     PMC *component;
 
     switch (self->type) {
Index: src/smallobject.c
===================================================================
RCS file: /cvs/public/parrot/src/smallobject.c,v
retrieving revision 1.33
diff -b -u -r1.33 smallobject.c
--- src/smallobject.c	28 Jan 2004 23:55:24 -0000	1.33
+++ src/smallobject.c	9 Feb 2004 23:36:17 -0000
@@ -456,7 +456,7 @@
                 GC_DEBUG_REPLENISH_LEVEL_FACTOR);
     }
     else {
-        pool->objects_per_alloc = (size_t) pool->objects_per_alloc * UNITS_PER_ALLOC_GROWTH_FACTOR;
+        pool->objects_per_alloc = (UINTVAL) pool->objects_per_alloc * UNITS_PER_ALLOC_GROWTH_FACTOR;
         pool->replenish_level =
                 (size_t)(pool->total_objects * REPLENISH_LEVEL_FACTOR);
     }