conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

unify the names of IR reference nodes to a name 'ref'

This commit is contained in:
Yuichi Nishiwaki 2014-01-23 15:18:41 +09:00
parent 3dbafd58be
commit 6d346fef87
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/codegen.c
View File

@ -99,7 +99,7 @@ typedef struct analyze_state {
pic_sym rCONS, rCAR, rCDR, rNILP; pic_sym rCONS, rCAR, rCDR, rNILP;
pic_sym rADD, rSUB, rMUL, rDIV; pic_sym rADD, rSUB, rMUL, rDIV;
pic_sym rEQ, rLT, rLE, rGT, rGE; pic_sym rEQ, rLT, rLE, rGT, rGE;
pic_sym sCALL, sTAILCALL; pic_sym sCALL, sTAILCALL, sREF;
pic_sym sGREF, sLREF, sCREF; pic_sym sGREF, sLREF, sCREF;
} analyze_state; } analyze_state;
@ -148,6 +148,7 @@ new_analyze_state(pic_state *pic)
register_symbol(pic, state, sCALL, "call"); register_symbol(pic, state, sCALL, "call");
register_symbol(pic, state, sTAILCALL, "tail-call"); register_symbol(pic, state, sTAILCALL, "tail-call");
register_symbol(pic, state, sREF, "ref");
register_symbol(pic, state, sGREF, "gref"); register_symbol(pic, state, sGREF, "gref");
register_symbol(pic, state, sLREF, "lref"); register_symbol(pic, state, sLREF, "lref");
register_symbol(pic, state, sCREF, "cref"); register_symbol(pic, state, sCREF, "cref");
@ -248,10 +249,10 @@ define_var(analyze_state *state, const char *name)
} }
static pic_value static pic_value
new_cref(analyze_state *state, int depth, pic_sym sym) new_ref(analyze_state *state, int depth, pic_sym sym)
{ {
return pic_list(state->pic, 3, return pic_list(state->pic, 3,
pic_symbol_value(state->sCREF), pic_symbol_value(state->sREF),
pic_int_value(depth), pic_int_value(depth),
pic_symbol_value(sym)); pic_symbol_value(sym));
} }
@ -288,7 +289,7 @@ analyze_node(analyze_state *state, pic_value obj, bool tailpos)
pic_error(pic, "symbol: unbound variable"); pic_error(pic, "symbol: unbound variable");
} }
/* at this stage, lref/cref/gref are not distinguished */ /* at this stage, lref/cref/gref are not distinguished */
return new_cref(state, depth, pic_sym(obj)); return new_ref(state, depth, pic_sym(obj));
} }
case PIC_TT_PAIR: { case PIC_TT_PAIR: {
pic_value proc; pic_value proc;