[codingstd] add docs, ...

parrot · Mar 5, 2014 · b579401 · b579401
1 parent 2fac34d
commit b579401
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 3 deletions.
diff --git a/compilers/imcc/api.c b/compilers/imcc/api.c
@@ -233,11 +233,22 @@ imcc_set_flags_api(Parrot_PMC interp_pmc, Parrot_PMC compiler,
     IMCC_API_CALLOUT(interp_pmc, interp)
 }
 
+/*
+
+=item C<void imcc_set_to_pasm_api(Parrot_PMC interp_pmc, Parrot_PMC compiler,
+Parrot_Int to_pasm)>
+
+Public interface to imcc_set_to_pasm, for writing to pasm, not pbc.
+
+=cut
+
+*/
+
 PARROT_EXPORT
 void
 imcc_set_to_pasm_api(Parrot_PMC interp_pmc, Parrot_PMC compiler, Parrot_Int to_pasm)
 {
-    ASSERT_ARGS(imcc_set_flags_api)
+    ASSERT_ARGS(imcc_set_to_pasm_api)
     IMCC_API_CALLIN(interp_pmc, interp)
 
     imc_info_t * imcc = (imc_info_t *)VTABLE_get_pointer(interp, compiler);

diff --git a/compilers/imcc/debug.c b/compilers/imcc/debug.c
@@ -305,8 +305,10 @@ dump_instructions(ARGMOD(imc_info_t * imcc), ARGIN(const IMC_Unit *unit))
                               "                            ");
         }
         IMCC_debug_ins(imcc, 0xffff, ins);
-        //Parrot_io_eprintf(imcc->interp, "%s\n", ins->opname);
-        //ins_print(imcc, pstderr, ins);
+#if 0
+        Parrot_io_eprintf(imcc->interp, "%s\n", ins->opname);
+        ins_print(imcc, pstderr, ins);
+#endif
         pc += ins->opsize;
     }
 

diff --git a/compilers/imcc/instructions.c b/compilers/imcc/instructions.c
@@ -665,6 +665,9 @@ ins_print(ARGMOD(imc_info_t * imcc), PIOHANDLE io, ARGIN(const Instruction *ins)
 
 =item C<static int e_pasm_open(imc_info_t * imcc, STRING *path)>
 
+Opens the path to an .pasm file for writing, and stores the os handle in
+C<imcc->write_pasm>.
+
 =cut
 
 */