cvsuser 03/01/30 07:36:29
Modified: . interpreter.c pbc2c.pl
Log:
misc cleanup
Revision Changes Path
1.136 +2 -4 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -w -r1.135 -r1.136
--- interpreter.c 22 Jan 2003 15:56:57 -0000 1.135
+++ interpreter.c 30 Jan 2003 15:36:28 -0000 1.136
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.135 2003/01/22 15:56:57 leo Exp $
+ * $Id: interpreter.c,v 1.136 2003/01/30 15:36:28 leo Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -250,12 +250,10 @@
opcode_t *code_start = (opcode_t *)interpreter->code->byte_code;
UINTVAL code_size; /* in opcodes */
opcode_t *code_end;
- void **code_start_prederef;
void **pc_prederef;
init_prederef(interpreter);
- code_start_prederef = interpreter->prederef_code + (pc - code_start);
- pc_prederef = code_start_prederef;
+ pc_prederef = interpreter->prederef_code + (pc - code_start);
while (pc_prederef) {
pc_prederef =
1.32 +6 -4 parrot/pbc2c.pl
Index: pbc2c.pl
===================================================================
RCS file: /cvs/public/parrot/pbc2c.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -w -r1.31 -r1.32
--- pbc2c.pl 27 Jan 2003 17:06:07 -0000 1.31
+++ pbc2c.pl 30 Jan 2003 15:36:28 -0000 1.32
@@ -8,7 +8,7 @@
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
-# $Id: pbc2c.pl,v 1.31 2003/01/27 17:06:07 leo Exp $
+# $Id: pbc2c.pl,v 1.32 2003/01/30 15:36:28 leo Exp $
#
use strict;
@@ -240,7 +240,7 @@
printf( "Can't unpack.\n" );
return 1;
}
- interpreter->code = pf;
+ Parrot_loadbc(interpreter, pf);
/* setup P0, stolen from embed.c */
userargv = pmc_new(interpreter, enum_class_PerlArray);
@@ -259,8 +259,10 @@
userargv->vtable->push_string(interpreter, userargv, arg);
}
-/* runops(interpreter, pf, 0); */
+ runops(interpreter, 0);
+/*
run_compiled(interpreter, (opcode_t *)program_code, (opcode_t *)program_code);
+ */
exit(0);
}
@@ -284,7 +286,7 @@
$new_pc = $pc + $op->size;
$source =~ s/^\s*goto PC_$new_pc;\s*$//mg if defined($new_pc);
$source =~ s/\n/\n /mg;
-# $source =~ s/#line.*\n//mg;
+ $source =~ s/#line.*\n//mg;
$source =~ s/CUR_OPCODE/(start_code + $pc)/mg;
printf("\n /* %s */\n {\n%s}\n", $op->full_name, $source);
