cvsuser 02/11/20 21:16:44
Modified: . interpreter.c sub.c
Log:
Fix a few warnings.
Revision Changes Path
1.119 +1 -3 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -w -r1.118 -r1.119
--- interpreter.c 21 Nov 2002 01:47:44 -0000 1.118
+++ interpreter.c 21 Nov 2002 05:16:44 -0000 1.119
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.118 2002/11/21 01:47:44 dan Exp $
+ * $Id: interpreter.c,v 1.119 2002/11/21 05:16:44 josh Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -335,8 +335,6 @@
core = runops_fast_core;
if (Interp_flags_TEST(interpreter, PARROT_PROFILE_FLAG)) {
- unsigned int i;
-
if (interpreter->profile == NULL) {
interpreter->profile = (ProfData *)
mem_sys_allocate_zeroed(interpreter->op_count *
1.10 +1 -4 parrot/sub.c
Index: sub.c
===================================================================
RCS file: /cvs/public/parrot/sub.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- sub.c 15 Nov 2002 05:49:06 -0000 1.9
+++ sub.c 21 Nov 2002 05:16:44 -0000 1.10
@@ -1,7 +1,7 @@
/* sub.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: sub.c,v 1.9 2002/11/15 05:49:06 sfink Exp $
+ * $Id: sub.c,v 1.10 2002/11/21 05:16:44 josh Exp $
* Overview:
* Sub-routines, co-routines and other fun stuff...
* Data Structure and Algorithms:
@@ -174,7 +174,6 @@
scratchpad_store(struct Parrot_Interp * interp, PMC * pad,
STRING * name, INTVAL position, PMC* value)
{
- INTVAL i;
struct Parrot_Lexicals * lex;
if (name) {
@@ -195,7 +194,6 @@
INTVAL scope_index, STRING * name, INTVAL position,
PMC* value)
{
- INTVAL i;
struct Parrot_Lexicals * lex;
lex = scratchpad_index(interp, pad, scope_index);
@@ -220,7 +218,6 @@
scratchpad_get(struct Parrot_Interp * interp, PMC * pad, STRING * name,
INTVAL position)
{
- INTVAL i;
struct Parrot_Lexicals * lex = NULL;
if (name) lex = scratchpad_find(interp, pad, name, &position);
