dan 01/09/10 14:40:34
Modified: . register.c interpreter.c
Log:
Yanked out debugging code, since these work OK. The bug I want is elsewhere.
Revision Changes Path
1.3 +0 -3 parrot/register.c
Index: register.c
===================================================================
RCS file: /home/perlcvs/parrot/register.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- register.c 2001/09/10 15:49:27 1.2
+++ register.c 2001/09/10 21:40:33 1.3
@@ -10,17 +10,14 @@
struct IRegChunk *chunk_base;
chunk_base = CHUNK_BASE(interpreter->int_reg);
- printf("Chunk base is %x for %x\n", chunk_base, interpreter->int_reg);
/* Do we have any slots left in the current chunk? */
if (chunk_base->free) {
- printf("Free was %i\n", chunk_base->free);
interpreter->int_reg = &chunk_base->IReg[chunk_base->used++];
chunk_base->free--;
}
/* Nope, so plan B time. Allocate a new chunk of integer register frames */
else {
struct IRegChunk *new_chunk;
- printf("Allocating a new piece\n");
new_chunk = Allocate_Aligned(sizeof(struct IRegChunk));
new_chunk->used = 1;
new_chunk->free = FRAMES_PER_INT_REG_CHUNK - 1;
1.5 +2 -2 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /home/perlcvs/parrot/interpreter.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- interpreter.c 2001/09/10 17:13:27 1.4
+++ interpreter.c 2001/09/10 21:40:33 1.5
@@ -16,7 +16,7 @@
while (*code) {
foo = (void *)interpreter->opcode_funcs;
(void *)func = foo[*code];
- // printf("code %i\n", *code);
+ // printf("code %i at %x\n", *code, code);
code = func(code, interpreter);
CHECK_EVENTS(interpreter);
}
