cvsuser 03/01/17 07:05:17
Modified: classes compiler.pmc eval.pmc
Log:
missing ids
Revision Changes Path
1.2 +12 -1 parrot/classes/compiler.pmc
Index: compiler.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/compiler.pmc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- compiler.pmc 16 Jan 2003 17:37:44 -0000 1.1
+++ compiler.pmc 17 Jan 2003 15:05:17 -0000 1.2
@@ -1,7 +1,7 @@
/* Compiler.pmc
* Copyright: 2002 Yet Another Society
* CVS Info
- * $$
+ * $Id: compiler.pmc,v 1.2 2003/01/17 15:05:17 leo Exp $
* Overview:
* The vtable functions for implementing assembler/compilers
* Data Structure and Algorithms:
@@ -41,6 +41,17 @@
(void)stack_pop(interpreter, &interpreter->ctx.user_stack, &code_seg,
STACK_ENTRY_PMC);
pc = (opcode_t*) code_seg->data;
+/* add a code seg
+ * in PDB_compile, imcc_compile
+ PackFile_add_segement(interpreter->code, byte_code_new(interpreter->code))
+ ... seg is at directory->segments[num_segments-1]
+eval:
+ ... remember old code segment
+ ... set global byte_code{,size} to new seg
+ ... DO_OP
+ ... restore old code seg
+ */
+
/* test
while (pc)
DO_OP(pc, interpreter);
1.3 +1 -1 parrot/classes/eval.pmc
Index: eval.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/eval.pmc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- eval.pmc 17 Jan 2003 07:36:35 -0000 1.2
+++ eval.pmc 17 Jan 2003 15:05:17 -0000 1.3
@@ -1,7 +1,7 @@
/* Eval.pmc
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $$
+ * $Id: eval.pmc,v 1.3 2003/01/17 15:05:17 leo Exp $
* Overview:
* These are the vtable functions for evaluating a code segment
* Data Structure and Algorithms:
