cvsuser 04/10/01 07:21:33
Modified: imcc imc.c
Log:
update comments
Revision Changes Path
1.74 +3 -12 parrot/imcc/imc.c
Index: imc.c
===================================================================
RCS file: /cvs/public/parrot/imcc/imc.c,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -w -r1.73 -r1.74
--- imc.c 1 Oct 2004 13:25:54 -0000 1.73
+++ imc.c 1 Oct 2004 14:21:33 -0000 1.74
@@ -72,35 +72,26 @@
/* All done with compilation, now free instructions and other structures */
- /* XXX FIXME: Can't free instructions yet without causing memory problems
- * in the symbol tables.
- */
-#if 1
for (unit = interp->imc_info->imc_units; unit;) {
unit_next = unit->next;
-#if 1
for (ins = unit->instructions; ins; ) {
ins_next = ins->next;
free_ins(ins);
ins = ins_next;
}
-#endif
imc_free_unit(interp, unit);
unit = unit_next;
}
-#endif
- /* XXX: Memory leak */
interp->imc_info->imc_units = NULL;
interp->imc_info->last_unit = NULL;
}
-/* imc_compile_unit is the main loop of the IMC compiler for each unit. It operates
- * on a single compilation unit at a time.
+/* imc_compile_unit is the main loop of the IMC compiler for each unit. It
+ * operates on a single compilation unit at a time.
*/
void
-imc_compile_unit(Interp *interp, IMC_Unit * unit)
-{
+imc_compile_unit(Interp *interp, IMC_Unit * unit) {
/* Not much here for now except the allocator */
cur_unit = unit;
