msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix the debug mode of the JIT compiler after the refactoring in libgu

Browse Source
This commit is contained in:
kr.angelov
2013-11-04 19:33:29 +00:00
parent 546c7ac859
commit 6e1451e142
1 changed files with 24 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
src/runtime/c/pgf/jit.c
View File

@@ -100,11 +100,10 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
GuPool* tmp_pool = gu_new_pool(); GuPool* tmp_pool = gu_new_pool();
GuOut* out = gu_file_out(stderr, tmp_pool); GuOut* out = gu_file_out(stderr, tmp_pool);
GuWriter* wtr = gu_new_utf8_writer(out, tmp_pool);
GuExn* err = gu_exn(NULL, type, tmp_pool); GuExn* err = gu_exn(NULL, type, tmp_pool);
gu_string_write(abscat->name, wtr, err); gu_string_write(abscat->name, out, err);
gu_puts(":\n", wtr, err); gu_puts(":\n", out, err);
int label = 0; int label = 0;
#endif #endif
@@ -122,9 +121,9 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
gu_buf_get(functions, PgfAbsFun*, 0); gu_buf_get(functions, PgfAbsFun*, 0);
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" TRY_FIRST ", wtr, err); gu_puts(" TRY_FIRST ", out, err);
gu_string_write(absfun->name, wtr, err); gu_string_write(absfun->name, out, err);
gu_puts("\n", wtr, err); gu_puts("\n", out, err);
#endif #endif
int rs_arg = jit_arg_p(); int rs_arg = jit_arg_p();
@@ -142,7 +141,7 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
} }
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" RET\n", wtr, err); gu_puts(" RET\n", out, err);
#endif #endif
// compile RET // compile RET
jit_ret(); jit_ret();
@@ -152,8 +151,8 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
PgfAbsFun* absfun = PgfAbsFun* absfun =
gu_buf_get(functions, PgfAbsFun*, 0); gu_buf_get(functions, PgfAbsFun*, 0);
gu_string_write(absfun->name, wtr, err); gu_string_write(absfun->name, out, err);
gu_puts(":\n", wtr, err); gu_puts(":\n", out, err);
} }
#endif #endif
@@ -179,9 +178,9 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
gu_buf_get(functions, PgfAbsFun*, i+1); gu_buf_get(functions, PgfAbsFun*, i+1);
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" TRY_ELSE ", wtr, err); gu_puts(" TRY_ELSE ", out, err);
gu_string_write(absfun->name, wtr, err); gu_string_write(absfun->name, out, err);
gu_puts("\n", wtr, err); gu_puts("\n", out, err);
#endif #endif
// compile TRY_ELSE // compile TRY_ELSE
@@ -203,12 +202,12 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
gu_map_get(abscats, hypo->type->cid, PgfAbsCat*); gu_map_get(abscats, hypo->type->cid, PgfAbsCat*);
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" CALL ", wtr, err); gu_puts(" CALL ", out, err);
gu_string_write(hypo->type->cid, wtr, err); gu_string_write(hypo->type->cid, out, err);
if (i+1 < n_hypos) { if (i+1 < n_hypos) {
gu_printf(wtr, err, " L%d\n", label); gu_printf(out, err, " L%d\n", label);
} else { } else {
gu_printf(wtr, err, " COMPLETE\n"); gu_printf(out, err, " COMPLETE\n");
} }
#endif #endif
@@ -228,9 +227,9 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
} }
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" RET\n", wtr, err); gu_puts(" RET\n", out, err);
if (i+1 < n_hypos) { if (i+1 < n_hypos) {
gu_printf(wtr, err, "L%d:\n", label++); gu_printf(out, err, "L%d:\n", label++);
} }
#endif #endif
@@ -257,9 +256,9 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
gu_buf_get(functions, PgfAbsFun*, i+1); gu_buf_get(functions, PgfAbsFun*, i+1);
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" TRY_CONSTANT ", wtr, err); gu_puts(" TRY_CONSTANT ", out, err);
gu_string_write(absfun->name, wtr, err); gu_string_write(absfun->name, out, err);
gu_puts("\n", wtr, err); gu_puts("\n", out, err);
#endif #endif
// compile TRY_CONSTANT // compile TRY_CONSTANT
@@ -271,7 +270,7 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
jit_finish(pgf_reasoner_try_constant); jit_finish(pgf_reasoner_try_constant);
} else { } else {
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" COMPLETE\n", wtr, err); gu_puts(" COMPLETE\n", out, err);
#endif #endif
// compile COMPLETE // compile COMPLETE
@@ -282,7 +281,7 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
} }
#ifdef PGF_JIT_DEBUG #ifdef PGF_JIT_DEBUG
gu_puts(" RET\n", wtr, err); gu_puts(" RET\n", out, err);
#endif #endif
// compile RET // compile RET
@@ -294,8 +293,8 @@ pgf_jit_predicate(PgfJitState* state, PgfCIdMap* abscats,
PgfAbsFun* absfun = PgfAbsFun* absfun =
gu_buf_get(functions, PgfAbsFun*, i+1); gu_buf_get(functions, PgfAbsFun*, i+1);
gu_string_write(absfun->name, wtr, err); gu_string_write(absfun->name, out, err);
gu_puts(":\n", wtr, err); gu_puts(":\n", out, err);
} }
#endif #endif
} }