cvsuser 03/03/04 08:09:24
Modified: . dod.c embed.c interpreter.c packfile.c
Log:
Steve Peters #21385 - #21389
Revision Changes Path
1.48 +1 -3 parrot/dod.c
Index: dod.c
===================================================================
RCS file: /cvs/public/parrot/dod.c,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -w -r1.47 -r1.48
--- dod.c 16 Jan 2003 17:26:17 -0000 1.47
+++ dod.c 4 Mar 2003 16:09:23 -0000 1.48
@@ -1,7 +1,7 @@
/* dod.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: dod.c,v 1.47 2003/01/16 17:26:17 leo Exp $
+ * $Id: dod.c,v 1.48 2003/03/04 16:09:23 leo Exp $
* Overview:
* Handles dead object destruction of the various headers
* Data Structure and Algorithms:
@@ -207,9 +207,7 @@
trace_active_buffers(struct Parrot_Interp *interpreter)
{
UINTVAL i, j;
- Stack_Chunk_t *cur_stack;
struct SRegChunk *cur_chunk;
- Stack_Entry_t *entry;
/* First mark the current set. We assume that all pointers in S registers
* are pointing to valid buffers. This is not a good assumption, but it'll
1.61 +3 -2 parrot/embed.c
Index: embed.c
===================================================================
RCS file: /cvs/public/parrot/embed.c,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -w -r1.60 -r1.61
--- embed.c 27 Jan 2003 17:06:07 -0000 1.60
+++ embed.c 4 Mar 2003 16:09:23 -0000 1.61
@@ -1,7 +1,7 @@
/* embed.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: embed.c,v 1.60 2003/01/27 17:06:07 leo Exp $
+ * $Id: embed.c,v 1.61 2003/03/04 16:09:23 leo Exp $
* Overview:
* The Parrot embedding interface.
* Data Structure and Algorithms:
@@ -132,8 +132,9 @@
interpreter->current_file = string_make(interpreter, filename,
strlen(filename), NULL, 0, NULL);
}
-
+#ifdef HAS_HEADER_SYSMMAN
again:
+#endif
/* if we've opened a file (or stdin) with PIO, read it in */
if (io != NULL) {
size_t chunk_size;
1.147 +1 -3 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -w -r1.146 -r1.147
--- interpreter.c 14 Feb 2003 13:31:58 -0000 1.146
+++ interpreter.c 4 Mar 2003 16:09:23 -0000 1.147
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.146 2003/02/14 13:31:58 leo Exp $
+ * $Id: interpreter.c,v 1.147 2003/03/04 16:09:23 leo Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -283,8 +283,6 @@
runops_prederef(struct Parrot_Interp *interpreter, opcode_t *pc)
{
opcode_t *code_start = (opcode_t *)interpreter->code->byte_code;
- UINTVAL code_size; /* in opcodes */
- opcode_t *code_end;
void **pc_prederef;
init_prederef(interpreter, 0);
1.80 +4 -1 parrot/packfile.c
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/packfile.c,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -w -r1.79 -r1.80
--- packfile.c 3 Mar 2003 02:26:19 -0000 1.79
+++ packfile.c 4 Mar 2003 16:09:23 -0000 1.80
@@ -7,7 +7,7 @@
** This program is free software. It is subject to the same
** license as Parrot itself.
**
-** $Id: packfile.c,v 1.79 2003/03/03 02:26:19 josh Exp $
+** $Id: packfile.c,v 1.80 2003/03/04 16:09:23 leo Exp $
**
** History:
** Rework by Melvin; new bytecode format, make bytecode portable.
@@ -273,11 +273,14 @@
static opcode_t
fetch_op_mixed(opcode_t b)
{
+#if OPCODE_T_SIZE == 4
union {
unsigned char buf[8];
opcode_t o[2];
} u;
+#else
opcode_t o;
+#endif
#if PARROT_BIGENDIAN
# if OPCODE_T_SIZE == 4
