cvsuser 03/10/15 21:09:05
Modified: . interpreter.c
Log:
IBM VisualAge C 6 complains about some data<->function pointer casts in
+interpreter.c:
- Courtesy Adam Thomason
Revision Changes Path
1.217 +5 -6 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.216
retrieving revision 1.217
diff -u -w -r1.216 -r1.217
--- interpreter.c 15 Oct 2003 18:00:16 -0000 1.216
+++ interpreter.c 16 Oct 2003 04:09:05 -0000 1.217
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.216 2003/10/15 18:00:16 leo Exp $
+ * $Id: interpreter.c,v 1.217 2003/10/16 04:09:05 sfink Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -205,7 +205,7 @@
internal_exception(1, "Couldn't find init_func");
return init_func;
}
- return lib->cache.struct_val;
+ return (oplib_init_f) D2FPTR(lib->cache.struct_val);
}
/*=for api interpreter load_prederef
@@ -313,8 +313,7 @@
opcode_t *code_end;
jit_f jit_code;
if (interpreter->jit_info)
- return (jit_f)D2FPTR(
- ((Parrot_jit_info_t *)interpreter->jit_info)->arena.start);
+ return ((Parrot_jit_info_t *)interpreter->jit_info)->arena.start;
code_start = interpreter->code->byte_code;
code_size = interpreter->code->cur_cs->base.size;
@@ -329,7 +328,7 @@
jit_code = build_asm(interpreter, pc, code_start, code_end, NULL);
interpreter->code->cur_cs->jit_info = interpreter->jit_info;
- return jit_code;
+ return F2DPTR(jit_code);
#else
return NULL;
#endif
@@ -356,7 +355,7 @@
runops_jit(struct Parrot_Interp *interpreter, opcode_t *pc)
{
#if JIT_CAPABLE
- jit_f jit_code = init_jit(interpreter, pc);
+ jit_f jit_code = (jit_f) D2FPTR(init_jit(interpreter, pc));
(jit_code) (interpreter, pc);
#endif
return NULL;
