Index: exceptions.c
===================================================================
RCS file: /cvs/public/parrot/src/exceptions.c,v
retrieving revision 1.41
diff -u -b -r1.41 exceptions.c
--- exceptions.c	12 Nov 2003 11:02:33 -0000	1.41
+++ exceptions.c	22 Nov 2003 02:40:12 -0000
@@ -100,7 +100,6 @@
 find_exception_handler(Parrot_Interp interpreter, PMC *exception)
 {
     PMC *handler;
-    Stack_entry_type type;
     STRING *message;
     char *m;
     int exit_status;
@@ -294,7 +293,6 @@
 create_exception(Parrot_Interp interpreter)
 {
     PMC *exception;     /* exception object */
-    size_t offset;      /* resume offset of handler */
     opcode_t *dest;     /* absolute address of handler */
 
 
@@ -353,7 +351,6 @@
 {
 #ifdef PARROT_HAS_HEADER_SETJMP
     STRING *msg;
-    opcode_t *dest;     /* absolute address of handler */
 
 
     /*
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/src/interpreter.c,v
retrieving revision 1.229
diff -u -b -r1.229 interpreter.c
--- interpreter.c	19 Nov 2003 15:29:21 -0000	1.229
+++ interpreter.c	22 Nov 2003 02:40:13 -0000
@@ -481,7 +481,6 @@
     interpreter->resume_flag = 1;
 
     while (interpreter->resume_flag & 1) {
-        unsigned int slow;
         opcode_t *pc = (opcode_t *)
             interpreter->code->byte_code + interpreter->resume_offset;
 
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/src/packfile.c,v
retrieving revision 1.120
diff -u -b -r1.120 packfile.c
--- packfile.c	21 Nov 2003 16:28:30 -0000	1.120
+++ packfile.c	22 Nov 2003 02:40:14 -0000
@@ -158,7 +158,6 @@
 static void
 make_code_pointers(struct PackFile_Segment *seg)
 {
-    size_t i;
     struct PackFile *pf = seg->pf;
 
     switch (seg->type) {
@@ -997,7 +996,7 @@
 static void
 sort_segs(struct PackFile_Directory *dir)
 {
-    size_t i, j, num_segs = dir->num_segments;
+    size_t i, num_segs = dir->num_segments;
 
     struct PackFile_Segment *seg = dir->segments[0], *s2;
     if (seg->type != PF_BYTEC_SEG) {
Index: pmc_freeze.c
===================================================================
RCS file: /cvs/public/parrot/src/pmc_freeze.c,v
retrieving revision 1.6
diff -u -b -r1.6 pmc_freeze.c
--- pmc_freeze.c	21 Nov 2003 10:49:31 -0000	1.6
+++ pmc_freeze.c	22 Nov 2003 02:40:14 -0000
@@ -78,7 +78,7 @@
      * grow by factor 1.5 or such
      */
     if (need_free <= 16) {
-        size_t new_size = s->buflen * 1.5;
+        size_t new_size = (int) (s->buflen * 1.5);
         if (new_size < s->buflen - need_free + 512)
             new_size = s->buflen - need_free + 512;
         Parrot_reallocate_string(interpreter, s, new_size);
@@ -150,7 +150,7 @@
      * grow by factor 1.5 or such
      */
     if (need_free <= 16) {
-        size_t new_size = s->buflen * 1.5;
+        size_t new_size = (int) (s->buflen * 1.5);
         if (new_size < s->buflen - need_free + 512)
             new_size = s->buflen - need_free + 512;
         Parrot_reallocate_string(interpreter, s, new_size);
Index: runops_cores.c
===================================================================
RCS file: /cvs/public/parrot/src/runops_cores.c,v
retrieving revision 1.38
diff -u -b -r1.38 runops_cores.c
--- runops_cores.c	12 Nov 2003 11:02:34 -0000	1.38
+++ runops_cores.c	22 Nov 2003 02:40:14 -0000
@@ -72,8 +72,6 @@
 opcode_t *
 runops_slow_core(struct Parrot_Interp *interpreter, opcode_t *pc)
 {
-    opcode_t *code_start;
-    opcode_t *code_end;
 #ifdef USE_TRACE_INTERP
     Interp * trace_i;
     struct Parrot_Context *trace_ctx;
@@ -148,7 +146,7 @@
 opcode_t *
 runops_profile_core(struct Parrot_Interp *interpreter, opcode_t *pc)
 {
-    opcode_t *code_start, *code_end, cur_op;
+    opcode_t cur_op;
     RunProfile *profile = interpreter->profile;
 
     while (pc) {/* && pc >= code_start && pc < code_end) */
Index: smallobject.c
===================================================================
RCS file: /cvs/public/parrot/src/smallobject.c,v
retrieving revision 1.28
diff -u -b -r1.28 smallobject.c
--- smallobject.c	27 Oct 2003 15:14:35 -0000	1.28
+++ smallobject.c	22 Nov 2003 02:40:14 -0000
@@ -330,7 +330,7 @@
                 GC_DEBUG_REPLENISH_LEVEL_FACTOR);
     }
     else {
-        pool->objects_per_alloc *= UNITS_PER_ALLOC_GROWTH_FACTOR;
+        pool->objects_per_alloc = (size_t) pool->objects_per_alloc * UNITS_PER_ALLOC_GROWTH_FACTOR;
         pool->replenish_level =
                 (size_t)(pool->total_objects * REPLENISH_LEVEL_FACTOR);
     }
Index: string.c
===================================================================
RCS file: /cvs/public/parrot/src/string.c,v
retrieving revision 1.160
diff -u -b -r1.160 string.c
--- string.c	15 Nov 2003 15:30:46 -0000	1.160
+++ string.c	22 Nov 2003 02:40:15 -0000
@@ -1049,11 +1049,6 @@
 INTVAL
 string_equal(struct Parrot_Interp *interpreter, STRING *s1, STRING *s2)
 {
-    const char *s1start;
-    const char *s1end;
-    const char *s2start;
-    const char *s2end;
-
     if (!s1 && !s2) {
         return 0;
     }
Index: utils.c
===================================================================
RCS file: /cvs/public/parrot/src/utils.c,v
retrieving revision 1.3
diff -u -b -r1.3 utils.c
--- utils.c	11 Nov 2003 15:17:20 -0000	1.3
+++ utils.c	22 Nov 2003 02:40:15 -0000
@@ -204,7 +204,7 @@
 INTVAL
 Parrot_range_rand(INTVAL from, INTVAL to, INTVAL how_random)
 {
-    return from + ((double)(to - from)) * Parrot_float_rand(how_random);
+    return (INTVAL) from + ((double)(to - from)) * Parrot_float_rand(how_random);
 }
 
 void