cvsuser 01/12/31 10:01:12
Modified: . interpreter.c
Log:
Fixed a few warnings wrt prototypes, etc.
Revision Changes Path
1.46 +11 -11 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /home/perlcvs/parrot/interpreter.c,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -w -r1.45 -r1.46
--- interpreter.c 31 Dec 2001 05:09:25 -0000 1.45
+++ interpreter.c 31 Dec 2001 18:01:11 -0000 1.46
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.45 2001/12/31 05:09:25 grunblatt Exp $
+ * $Id: interpreter.c,v 1.46 2001/12/31 18:01:11 gregor Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -24,7 +24,7 @@
* TODO: Not really part of the API, but here's the docs.
* Check the bytecode's opcode table fingerprint.
*/
-void
+static void
check_fingerprint(struct Parrot_Interp *interpreter) {
/* if (PNCONST == 0) { */
@@ -58,7 +58,7 @@
* TODO: Not really part of the API, but here's the docs.
* Generic runops, which takes a function pointer for the core.
*/
-void
+static void
runops_generic (opcode_t * (*core)(struct Parrot_Interp *, opcode_t *),
struct Parrot_Interp *interpreter, opcode_t * pc) {
opcode_t * code_start;
@@ -89,7 +89,7 @@
static op_info_t * prederef_op_info = NULL;
static op_func_t * prederef_op_func = NULL;
-void
+static void
init_prederef(struct Parrot_Interp * interpreter)
{
char file_name[50];
@@ -119,7 +119,7 @@
** Look up the init function:
*/
- prederef_oplib_init = Parrot_dlsym(prederef_oplib_handle, func_name);
+ prederef_oplib_init = (oplib_init_f)Parrot_dlsym(prederef_oplib_handle,
func_name);
if (!prederef_oplib_init) {
fprintf(stderr, "No exported symbol for oplib init function '%s' from oplib
file '%s' for oplib '%s_prederef' version %s!\n",
@@ -149,7 +149,7 @@
if (prederef_op_count <= 0) {
fprintf(stderr, "Illegal op count (%d) from oplib file '%s' for oplib
'%s_prederef' version %s!\n",
- prederef_op_count, file_name,
+ (int)prederef_op_count, file_name,
PARROT_CORE_OPLIB_NAME, PARROT_VERSION);
exit(1);
}
@@ -184,7 +184,7 @@
/*=for api interpreter stop_prederef
*/
-void
+static void
stop_prederef(void)
{
prederef_op_func = NULL;
@@ -201,7 +201,7 @@
/*=for api interpreter prederef
*/
-void **
+static void **
prederef(void ** pc_prederef, struct Parrot_Interp * interpreter)
{
size_t offset = pc_prederef - interpreter->prederef_code;
@@ -269,7 +269,7 @@
/*=for api interpreter runops_jit
*/
-void
+static void
runops_jit (struct Parrot_Interp *interpreter, opcode_t * pc) {
opcode_t * code_start;
INTVAL code_size;
@@ -291,7 +291,7 @@
/*=for api interpreter runops_prederef
*/
-void
+static void
runops_prederef (struct Parrot_Interp *interpreter, opcode_t * pc,
void ** pc_prederef) {
opcode_t * code_start;
@@ -370,7 +370,7 @@
}
if ((interpreter->flags & PARROT_PREDEREF_FLAG) != 0) {
- size_t offset = pc - (opcode_t *)interpreter->code->byte_code;
+ offset = pc - (opcode_t *)interpreter->code->byte_code;
if (!interpreter->prederef_code) {
size_t N = interpreter->code->byte_code_size;
