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

impl pic_close

This commit is contained in:
Yuichi Nishiwaki 2014-01-16 22:02:50 +09:00
parent db75df2624
commit 43f3f6d0ce
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/state.c
View File

@ -4,6 +4,7 @@
#include "picrin/gc.h" #include "picrin/gc.h"
#include "picrin/proc.h" #include "picrin/proc.h"
#include "picrin/macro.h" #include "picrin/macro.h"
#include "picrin/cont.h"
#include "xhash/xhash.h" #include "xhash/xhash.h"
void pic_init_core(pic_state *); void pic_init_core(pic_state *);
@ -117,5 +118,39 @@ pic_open(int argc, char *argv[], char **envp)
void void
pic_close(pic_state *pic) pic_close(pic_state *pic)
{ {
int i;
/* free global stacks */
free(pic->stbase);
free(pic->cibase);
free(pic->rescue);
free(pic->globals);
free(pic->pool);
pic->glen = 0;
pic->rlen = 0;
pic->plen = 0;
pic->arena_idx = 0;
pic->lib_tbl = pic_undef_value();
/* free all values */
pic_gc_run(pic);
/* free heaps */
finalize_heap(pic->heap);
free(pic->heap);
/* free symbol names */
for (i = 0; i < pic->slen; ++i) {
free((void *)pic->sym_pool[i]);
}
/* free ireps */
for (i = 0; i < pic->ilen; ++i) {
free(pic->irep[i]);
}
PIC_BLK_DECREF(pic, pic->blk);
free(pic); free(pic);
} }