--- ast/node.c.orig Sun Dec 5 01:29:27 2004 +++ ast/node.c Fri Apr 8 11:26:14 2005 @@ -127,7 +127,7 @@ ctx_default(nodeType *p, context_type outer) { context_type inner = CTX_UNK; - nodeType *child, *next; + nodeType *child; for (; p; p = p->next) { p->up_ctx = outer; @@ -503,7 +503,6 @@ lr = rhs->expand(interpreter, rhs); } else if (rhs->expand == exp_Const) { - const char *pmc; /* need a new value, because the name might be aliased by * a = b */ @@ -556,7 +555,6 @@ nodeType *op, *left, *right; Instruction *ins; SymReg *regs[IMCC_MAX_REGS]; - char buf[128]; SymReg *lr, *rr, *dest; op = CHILD(p); @@ -606,7 +604,6 @@ nodeType *op, *arg; Instruction *ins; SymReg *regs[IMCC_MAX_REGS]; - char buf[128]; SymReg *rr, *dest; op = CHILD(p); @@ -810,7 +807,9 @@ { nodeType *name, *args; Instruction *ins; - SymReg *regs[IMCC_MAX_REGS]; +/* TODO + * SymReg *regs[IMCC_MAX_REGS]; + */ name = CHILD(p); args = name->next; @@ -857,7 +856,10 @@ static SymReg* exp_PCC_Sub(Interp* interpreter, nodeType *p) { - nodeType *doc; +/* + * TODO + * nodeType *doc; + */ SymReg *sub; Instruction *ins; SymReg *regs[IMCC_MAX_REGS]; @@ -889,7 +891,10 @@ static SymReg* exp_Py_Module(Interp* interpreter, nodeType *p) { - nodeType *doc; +/* + * TODO + * nodeType *doc; + */ SymReg *sub; Instruction *ins; SymReg *regs[IMCC_MAX_REGS]; --- charset/ascii.c.orig Fri Apr 8 11:17:55 2005 +++ charset/ascii.c Fri Apr 8 11:18:17 2005 @@ -366,8 +366,6 @@ ascii_cs_index(Interp *interpreter, STRING *source_string, STRING *search_string, UINTVAL offset) { - UINTVAL base_size, search_size; - char *base, *search; INTVAL retval; if (source_string->charset != search_string->charset) { return mixed_cs_index(interpreter, source_string, search_string, @@ -383,8 +381,6 @@ INTVAL ascii_cs_rindex(Interp *interpreter, STRING *source_string, STRING *search_string, UINTVAL offset) { - UINTVAL base_size, search_size; - char *base, *search; INTVAL retval; if (source_string->charset != search_string->charset) { internal_exception(UNIMPLEMENTED, "Cross-charset index not supported"); --- ops/io.ops.orig Mon Feb 14 03:57:23 2005 +++ ops/io.ops Fri Apr 8 11:13:00 2005 @@ -340,7 +340,6 @@ =cut op read(out STR, in INT) :base_io { - UINTVAL n; $1 = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t)$2); goto NEXT(); } --- ops/string.ops.orig Fri Apr 8 07:36:15 2005 +++ ops/string.ops Fri Apr 8 11:13:28 2005 @@ -346,7 +346,6 @@ inline op pack(inout STR, in INT, in STR) :base_core { STRING *t,*s = $3; UINTVAL len = (UINTVAL)$2; - char buf[3]; if (s->strlen < len) { /* XXXX: what is this supposed to do? */ STRING *temp; --- classes/fixedbooleanarray.pmc.orig Wed Mar 30 07:03:07 2005 +++ classes/fixedbooleanarray.pmc Fri Apr 8 11:49:36 2005 @@ -119,7 +119,6 @@ */ PMC* clone () { - INTVAL size; PMC * dest = pmc_new(INTERP, SELF->vtable->base_type); PMC_int_val(dest) = PMC_int_val(SELF); @@ -309,7 +308,6 @@ */ void set_integer_native (INTVAL size) { - Parrot_UInt1 *sd; if (PMC_int_val(SELF) || size < 1) internal_exception(OUT_OF_BOUNDS, "FixedBooleanArray: Can't resize!"); --- classes/fixedpmcarray.pmc.orig Tue Apr 5 08:36:37 2005 +++ classes/fixedpmcarray.pmc Fri Apr 8 11:51:00 2005 @@ -240,7 +240,7 @@ } STRING* get_repr () { - STRING *res, *s; + STRING *res; INTVAL j, n; PMC *val; --- classes/hash.pmc.orig Tue Apr 5 08:36:37 2005 +++ classes/hash.pmc Fri Apr 8 11:45:30 2005 @@ -420,7 +420,7 @@ STRING* get_repr () { /* TODO use freeze */ PMC *iter = VTABLE_get_iter(INTERP, SELF); - STRING *res, *s; + STRING *res; INTVAL j, n; res = string_from_cstring(INTERP, "{", 0); @@ -611,7 +611,6 @@ } PMC* get_pmc_keyed (PMC* key) { - PMC* valpmc; STRING* keystr; Hash *hash = PMC_struct_val(SELF); HashBucket *b; @@ -813,7 +812,6 @@ STRING* keystr; PMC* nextkey; PMC* box; - PMC* val; if (!key) return; keystr = make_hash_key(INTERP, key); --- classes/integer.pmc.orig Fri Apr 8 07:36:07 2005 +++ classes/integer.pmc Fri Apr 8 11:40:29 2005 @@ -689,7 +689,7 @@ */ void divide_int (INTVAL value, PMC* dest) { INTVAL pmci, divi; - FLOATVAL valf, divf; + FLOATVAL divf; pmci = PMC_int_val(SELF); /* TODO exception */ --- classes/parrotclass.pmc.orig Mon Apr 4 07:45:46 2005 +++ classes/parrotclass.pmc Fri Apr 8 11:47:31 2005 @@ -197,7 +197,7 @@ * * So here's the plan: * During thaw, we first extend the class_data by two, - * thaw parents and attribs into that new arrea, and + * thaw parents and attribs into that new area, and * then we see what to do. */ if (info->extra_flags == EXTRA_IS_PROP_HASH) { @@ -206,7 +206,6 @@ else if (info->extra_flags == EXTRA_IS_NULL) { STRING *class_name; INTVAL new_type; - PMC *ar; PMC *real_class; /* thaw class name */ --- classes/parrotthread.pmc.orig Wed Jan 12 04:42:06 2005 +++ classes/parrotthread.pmc Fri Apr 8 11:36:37 2005 @@ -53,7 +53,6 @@ */ void init () { - PMC *parent; /* * protect interpreter creation and list handling */ --- classes/scratchpad.pmc.orig Thu Mar 24 07:08:15 2005 +++ classes/scratchpad.pmc Fri Apr 8 11:38:05 2005 @@ -176,7 +176,6 @@ void delete_keyed(PMC* key) { STRING * name = NULL; INTVAL position; - struct Parrot_Lexicals * lex; if (key_type(INTERP, key) == KEY_integer_FLAG) { position = key_integer(INTERP, key); --- classes/tqueue.pmc.orig Fri Aug 20 04:25:36 2004 +++ classes/tqueue.pmc Fri Apr 8 11:46:15 2005 @@ -79,7 +79,6 @@ void mark () { QUEUE *queue = PMC_data(SELF); QUEUE_ENTRY *entry; - PMC *val; queue_lock(queue); entry = queue->head; --- classes/unmanagedstruct.pmc.orig Wed Jan 12 04:42:06 2005 +++ classes/unmanagedstruct.pmc Fri Apr 8 11:35:41 2005 @@ -115,7 +115,7 @@ static char * char_offset_key(Interp* interpreter, PMC *pmc, PMC *key, int *type) { - size_t offs, n, count, size, max; + size_t offs, count, size, max; PMC *next, *init, *outer_init; int ix; char *p; @@ -325,8 +325,6 @@ static PMC* ret_pmc(Interp* interpreter, PMC* pmc, char *p, int type, INTVAL idx) { - char *cstr; - size_t len; PMC *ret = NULL, *init, *ptr; switch (type) {