Author: particle
Date: Tue Oct 25 09:11:59 2005
New Revision: 9558
Modified:
trunk/src/embed.c
trunk/src/exec.c
trunk/src/hash.c
trunk/src/inter_create.c
trunk/src/inter_run.c
trunk/src/jit.c
trunk/src/pmc_freeze.c
trunk/src/sub.c
Log:
removed some compiler warnings
Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c (original)
+++ trunk/src/embed.c Tue Oct 25 09:11:59 2005
@@ -462,10 +462,7 @@ static PMC*
setup_argv(Interp *interpreter, int argc, char ** argv)
{
INTVAL i;
- PMC *userargv, *sig_arr, *class, *cont;
- STRING *signature;
- static opcode_t opcodes[3];
- int const_nr;
+ PMC *userargv;
if (Interp_debug_TEST(interpreter, PARROT_START_DEBUG_FLAG)) {
PIO_eprintf(interpreter,
Modified: trunk/src/exec.c
==============================================================================
--- trunk/src/exec.c (original)
+++ trunk/src/exec.c Tue Oct 25 09:11:59 2005
@@ -63,7 +63,6 @@ Parrot_exec(Interp *interpreter, opcode_
#ifdef JIT_CGP
int i, j *k;
#endif
- char *nptr;
const char *output;
long bhs;
Parrot_exec_objfile_t *obj;
Modified: trunk/src/hash.c
==============================================================================
--- trunk/src/hash.c (original)
+++ trunk/src/hash.c Tue Oct 25 09:11:59 2005
@@ -275,9 +275,7 @@ hash_thaw(Interp *interpreter, Hash *has
static void
hash_freeze(Interp *interpreter, Hash *hash, visit_info* info)
{
- size_t i, n;
- STRING *s_key;
- INTVAL i_key;
+ size_t i;
IMAGE_IO *io = info->image_io;
HashBucket *b;
Modified: trunk/src/inter_create.c
==============================================================================
--- trunk/src/inter_create.c (original)
+++ trunk/src/inter_create.c Tue Oct 25 09:11:59 2005
@@ -449,7 +449,6 @@ Parrot_alloc_context(Interp *interpreter
void
Parrot_free_context(Interp *interpreter, parrot_context_t *ctxp, int re_use)
{
- struct Parrot_Context *free_list;
void *ptr;
/*
Modified: trunk/src/inter_run.c
==============================================================================
--- trunk/src/inter_run.c (original)
+++ trunk/src/inter_run.c Tue Oct 25 09:11:59 2005
@@ -144,7 +144,6 @@ runops_args(Parrot_Interp interpreter, P
opcode_t offset, *dest;
parrot_context_t *ctx;
parrot_context_t *old_ctx;
- int i;
/*
* FIXME argument count limited - check strlen of sig
*/
Modified: trunk/src/jit.c
==============================================================================
--- trunk/src/jit.c (original)
+++ trunk/src/jit.c Tue Oct 25 09:11:59 2005
@@ -1297,7 +1297,10 @@ build_asm(Interp *interpreter, opcode_t
opcode_t cur_opcode_byte, *cur_op;
Parrot_jit_optimizer_section_ptr cur_section;
struct PackFile_Segment *jit_seg;
- char *name;
+ /* XXX
+ * no longer referenced due to disabled code below
+ char *name;
+ */
char *map;
Parrot_jit_fn_info_t *op_func;
#if EXEC_CAPABLE
Modified: trunk/src/pmc_freeze.c
==============================================================================
--- trunk/src/pmc_freeze.c (original)
+++ trunk/src/pmc_freeze.c Tue Oct 25 09:11:59 2005
@@ -744,7 +744,6 @@ Initializes the C<*info> lists.
static void
todo_list_init(Parrot_Interp interpreter, visit_info *info)
{
- Hash *hash;
info->visit_pmc_now = visit_todo_list;
info->visit_pmc_later = add_pmc_todo_list;
/* we must use PMCs here, so that they get marked properly */
Modified: trunk/src/sub.c
==============================================================================
--- trunk/src/sub.c (original)
+++ trunk/src/sub.c Tue Oct 25 09:11:59 2005
@@ -36,7 +36,7 @@ void
mark_context(Interp* interpreter, parrot_context_t* ctx)
{
PObj *obj;
- int i, n;
+ int i;
mark_stack(interpreter, ctx->pad_stack);
mark_stack(interpreter, ctx->user_stack);
