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

realloc pic->irep when exhausted

This commit is contained in:
Yuichi Nishiwaki 2013-11-21 06:28:43 -08:00
parent 58b9e2cb60
commit 6581177ec5
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/codegen.c
View File

@ -284,7 +284,18 @@ codegen(codegen_state *state, pic_value obj, bool tailpos)
} }
} }
else if (sym == pic->sLAMBDA) { else if (sym == pic->sLAMBDA) {
int k = pic->ilen++; int k;
if (pic->ilen >= pic->icapa) {
#if DEBUG
puts("irep realloced");
#endif
pic->irep = (struct pic_irep **)pic_realloc(pic, pic->irep, pic->icapa * 2);
pic->icapa *= 2;
}
k = pic->ilen++;
irep->code[irep->clen].insn = OP_LAMBDA; irep->code[irep->clen].insn = OP_LAMBDA;
irep->code[irep->clen].u.i = k; irep->code[irep->clen].u.i = k;
irep->clen++; irep->clen++;