cvsuser 03/01/21 04:56:36
Modified: . debug.c interpreter.c packfile.c spf_render.c
Log:
lcc warnings - hopefully
Revision Changes Path
1.56 +9 -5 parrot/debug.c
Index: debug.c
===================================================================
RCS file: /cvs/public/parrot/debug.c,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -w -r1.55 -r1.56
--- debug.c 21 Jan 2003 10:10:26 -0000 1.55
+++ debug.c 21 Jan 2003 12:56:35 -0000 1.56
@@ -2,7 +2,7 @@
* debug.c
*
* CVS Info
- * $Id: debug.c,v 1.55 2003/01/21 10:10:26 leo Exp $
+ * $Id: debug.c,v 1.56 2003/01/21 12:56:35 leo Exp $
* Overview:
* Parrot debugger
* History:
@@ -372,7 +372,7 @@
/* If program ended */
if (!pdb->cur_opcode)
- PDB_program_end(interpreter);
+ (void)PDB_program_end(interpreter);
}
/* PDB_trace
@@ -408,7 +408,7 @@
/* If program ended */
if (!pdb->cur_opcode)
- PDB_program_end(interpreter);
+ (void)PDB_program_end(interpreter);
}
/* PDB_cond
@@ -1508,8 +1508,12 @@
PDB_eval(struct Parrot_Interp *interpreter, const char *command)
{
opcode_t *run;
- struct PackFile_ByteCode *eval_cs = PDB_compile(interpreter,
- strdup(command));
+ char *c;
+ struct PackFile_ByteCode *eval_cs;
+
+ c = mem_sys_allocate(strlen(command) + 1);
+ strcpy(c, command);
+ eval_cs = PDB_compile(interpreter, c);
if (eval_cs) {
Parrot_switch_to_cs(interpreter, eval_cs);
1.133 +2 -2 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -w -r1.132 -r1.133
--- interpreter.c 21 Jan 2003 10:10:27 -0000 1.132
+++ interpreter.c 21 Jan 2003 12:56:35 -0000 1.133
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.132 2003/01/21 10:10:27 leo Exp $
+ * $Id: interpreter.c,v 1.133 2003/01/21 12:56:35 leo Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -246,8 +246,8 @@
jit_code = build_asm(interpreter, pc, code_start, code_end);
interpreter->code->cur_cs->jit_info = interpreter->jit_info;
(jit_code) (interpreter, pc);
- return NULL;
#endif
+ return NULL;
}
1.65 +10 -9 parrot/packfile.c
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/packfile.c,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -w -r1.64 -r1.65
--- packfile.c 21 Jan 2003 10:10:27 -0000 1.64
+++ packfile.c 21 Jan 2003 12:56:36 -0000 1.65
@@ -7,7 +7,7 @@
** This program is free software. It is subject to the same
** license as Parrot itself.
**
-** $Id: packfile.c,v 1.64 2003/01/21 10:10:27 leo Exp $
+** $Id: packfile.c,v 1.65 2003/01/21 12:56:36 leo Exp $
**
** History:
** Rework by Melvin; new bytecode format, make bytecode portable.
@@ -130,9 +130,9 @@
pf->directory = NULL;
pf->need_wordsize = 0;
pf->need_endianize = 0;
- pf->fetch_op = NULL;
- pf->fetch_iv = NULL;
- pf->fetch_nv = NULL;
+ pf->fetch_op = (opcode_t (*)(opcode_t)) NULL;
+ pf->fetch_iv = (INTVAL (*)(INTVAL)) NULL;
+ pf->fetch_nv = (void (*)(unsigned char *, unsigned char *)) NULL;
return pf;
}
@@ -746,7 +746,7 @@
}
-void
+static void
directory_destroy (struct PackFile_Segment *self)
{
struct PackFile_Directory *dir = (struct PackFile_Directory *)self;
@@ -766,7 +766,7 @@
default_destroy (self);
}
-size_t
+static size_t
directory_packed_size (struct PackFile_Segment *self)
{
struct PackFile_Directory *dir = (struct PackFile_Directory *)self;
@@ -792,7 +792,7 @@
return size;
}
-size_t
+static size_t
directory_pack (struct PackFile_Segment *self,
opcode_t *dest, size_t offset, size_t size)
{
@@ -1028,7 +1028,8 @@
PackFile_add_segment(interpreter->code,
(struct PackFile_Segment*)debug);
debug->lines = mem_sys_allocate(cs->base.byte_count);
- debug->filename = strdup(filename);
+ debug->filename = mem_sys_allocate(strlen(filename) + 1);
+ strcpy(debug->filename, filename);
debug->code = cs;
cs->debug = debug;
return debug;
@@ -1123,7 +1124,7 @@
** PackFile_FixupTable_new
*/
-struct PackFile_FixupTable *
+static struct PackFile_FixupTable *
fixup_new (struct PackFile *pf)
{
struct PackFile_FixupTable *fixup;
1.19 +2 -2 parrot/spf_render.c
Index: spf_render.c
===================================================================
RCS file: /cvs/public/parrot/spf_render.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- spf_render.c 9 Jan 2003 16:37:42 -0000 1.18
+++ spf_render.c 21 Jan 2003 12:56:36 -0000 1.19
@@ -1,7 +1,7 @@
/* spf_render.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: spf_render.c,v 1.18 2003/01/09 16:37:42 leo Exp $
+ * $Id: spf_render.c,v 1.19 2003/01/21 12:56:36 leo Exp $
* Overview:
* Implements the main function that drives the Parrot_sprintf
* family and its utility functions.
@@ -106,7 +106,7 @@
else {
/* string precision */
if (info->flags & FLAG_PREC && info->prec < len) {
- string_chopn(str, -(info->prec));
+ string_chopn(str, -(INTVAL)(info->prec));
len = info->prec;
}
}
