diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2012-03-05 12:59:31 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2012-03-05 12:59:31 +0000 |
| commit | 0e90d1ba1fd5c20bf526cda4459eedf12cd1f3ef (patch) | |
| tree | c85a0b4198bcaee5fc4d5b3a03bbf8e9d1f7e6fa /src/runtime/c/pgf/linearize.c | |
| parent | 04db5aa045d720a2ff473097e57c73a09e82e886 (diff) | |
libpgf: now all concrete functions and categories are explicitly linked to their abstract counter parts
Diffstat (limited to 'src/runtime/c/pgf/linearize.c')
| -rw-r--r-- | src/runtime/c/pgf/linearize.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/runtime/c/pgf/linearize.c b/src/runtime/c/pgf/linearize.c index aef966eba..08e182d50 100644 --- a/src/runtime/c/pgf/linearize.c +++ b/src/runtime/c/pgf/linearize.c @@ -133,7 +133,7 @@ pgf_lzr_add_infer_entry( n_args > 0 ? gu_list_index(arg_cats, 0)->fid : -1, n_args > 1 ? gu_list_index(arg_cats, 1)->fid : -1, n_args > 2 ? gu_list_index(arg_cats, 2)->fid : -1, - cat->fid, papply->fun->fun); + cat->fid, papply->fun->name); PgfLinInfers* entries = gu_map_get(infer_table, &arg_cats, PgfLinInfers*); if (!entries) { @@ -161,13 +161,13 @@ pgf_lzr_index(PgfConcr* concr, PgfCCat* ccat, PgfProduction prod, case PGF_PRODUCTION_APPLY: { PgfProductionApply* papply = data; PgfInferMap* infer = - gu_map_get(concr->fun_indices, &papply->fun->fun, + gu_map_get(concr->fun_indices, &papply->fun->name, PgfInferMap*); - gu_debug("index: %s -> %d", papply->fun->fun, ccat->fid); + gu_debug("index: %s -> %d", papply->fun->name, ccat->fid); if (!infer) { infer = gu_map_type_new(PgfInferMap, pool); gu_map_put(concr->fun_indices, - &papply->fun->fun, PgfInferMap*, infer); + &papply->fun->name, PgfInferMap*, infer); } pgf_lzr_add_infer_entry(infer, ccat, papply, pool); break; @@ -452,7 +452,7 @@ pgf_lzr_linearize(PgfConcr* concr, PgfCncTree ctree, size_t lin_idx, PgfLinFuncs PgfCncTreeApp* fapp = cti.data; PgfCncFun* fun = fapp->fun; if (fns->expr_apply) { - fns->expr_apply(fnsp, fun->fun, fapp->n_args); + fns->expr_apply(fnsp, fun->name, fapp->n_args); } gu_require(lin_idx < fun->n_lins); PgfSequence seq = fun->lins[lin_idx]; |