quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*fixed a memory issue in gc, thanks to John and Cybermonkey342 for pointing it out.

Browse Source
This commit is contained in:
Wang Renxin 2015-10-22 11:07:38 +08:00
parent b55a590cb5
commit a512eee81a
1 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
core/my_basic.c
View File

@ -79,7 +79,7 @@ extern "C" {
/** Macros */ /** Macros */
#define _VER_MAJOR 1 #define _VER_MAJOR 1
#define _VER_MINOR 1 #define _VER_MINOR 1
#define _VER_REVISION 91 #define _VER_REVISION 92
#define _VER_SUFFIX #define _VER_SUFFIX
#define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION)) #define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION))
#define _STRINGIZE(A) _MAKE_STRINGIZE(A) #define _STRINGIZE(A) _MAKE_STRINGIZE(A)
@ -3864,6 +3864,7 @@ void _gc_remove(_ref_t* ref, void* data) {
mb_assert(ref && data); mb_assert(ref && data);
if(ref->s->gc.table)
_ht_remove(ref->s->gc.table, ref, 0); _ht_remove(ref->s->gc.table, ref, 0);
} }
@ -5982,7 +5983,6 @@ int _clear_scope_chain(mb_interpreter_t* s) {
int result = 0; int result = 0;
_running_context_t* running = 0; _running_context_t* running = 0;
_running_context_t* prev = 0; _running_context_t* prev = 0;
_ht_node_t* global_scope = 0;
mb_assert(s); mb_assert(s);
@ -5990,9 +5990,8 @@ int _clear_scope_chain(mb_interpreter_t* s) {
while(running) { while(running) {
prev = running->prev; prev = running->prev;
global_scope = running->var_dict; _ht_foreach(running->var_dict, _destroy_object);
_ht_foreach(global_scope, _destroy_object); _ht_clear(running->var_dict);
_ht_clear(global_scope);
result++; result++;
running = prev; running = prev;
@ -6006,7 +6005,6 @@ int _dispose_scope_chain(mb_interpreter_t* s) {
int result = 0; int result = 0;
_running_context_t* running = 0; _running_context_t* running = 0;
_running_context_t* prev = 0; _running_context_t* prev = 0;
_ht_node_t* global_scope = 0;
mb_assert(s); mb_assert(s);
@ -6014,11 +6012,10 @@ int _dispose_scope_chain(mb_interpreter_t* s) {
while(running) { while(running) {
prev = running->prev; prev = running->prev;
global_scope = running->var_dict; _ht_foreach(running->var_dict, _destroy_object);
_ht_clear(running->var_dict);
_ht_destroy(running->var_dict);
running->var_dict = 0; running->var_dict = 0;
_ht_foreach(global_scope, _destroy_object);
_ht_clear(global_scope);
_ht_destroy(global_scope);
mb_dispose_value(s, running->intermediate_value); mb_dispose_value(s, running->intermediate_value);
safe_free(running); safe_free(running);
@ -6547,10 +6544,6 @@ int mb_open(struct mb_interpreter_t** s) {
*s = (mb_interpreter_t*)mb_malloc(sizeof(mb_interpreter_t)); *s = (mb_interpreter_t*)mb_malloc(sizeof(mb_interpreter_t));
memset(*s, 0, sizeof(mb_interpreter_t)); memset(*s, 0, sizeof(mb_interpreter_t));
#ifdef MB_ENABLE_GC
(*s)->gc.table = _ht_create(0, _ht_cmp_ref, _ht_hash_ref, _do_nothing_on_object);
#endif /* MB_ENABLE_GC */
(*s)->in_neg_expr = _ls_create(); (*s)->in_neg_expr = _ls_create();
local_scope = _ht_create(0, _ht_cmp_string, _ht_hash_string, _ls_free_extra); local_scope = _ht_create(0, _ht_cmp_string, _ht_hash_string, _ls_free_extra);
@ -6571,6 +6564,10 @@ int mb_open(struct mb_interpreter_t** s) {
global_scope = _ht_create(0, _ht_cmp_string, _ht_hash_string, 0); global_scope = _ht_create(0, _ht_cmp_string, _ht_hash_string, 0);
running->var_dict = global_scope; running->var_dict = global_scope;
#ifdef MB_ENABLE_GC
(*s)->gc.table = _ht_create(0, _ht_cmp_ref, _ht_hash_ref, _do_nothing_on_object);
#endif /* MB_ENABLE_GC */
(*s)->sub_stack = _ls_create(); (*s)->sub_stack = _ls_create();
(*s)->ast = _ls_create(); (*s)->ast = _ls_create();
@ -6608,6 +6605,12 @@ int mb_close(struct mb_interpreter_t** s) {
_ls_destroy((*s)->sub_stack); _ls_destroy((*s)->sub_stack);
#ifdef MB_ENABLE_GC
_gc_collect_garbage(*s);
_ht_destroy((*s)->gc.table);
(*s)->gc.table = 0;
#endif /* MB_ENABLE_GC */
_dispose_scope_chain(*s); _dispose_scope_chain(*s);
_ls_foreach((*s)->temp_values, _destroy_object); _ls_foreach((*s)->temp_values, _destroy_object);
@ -6629,12 +6632,6 @@ int mb_close(struct mb_interpreter_t** s) {
_close_constant(*s); _close_constant(*s);
#ifdef MB_ENABLE_GC
_gc_collect_garbage(*s);
_ht_destroy((*s)->gc.table);
(*s)->gc.table = 0;
#endif /* MB_ENABLE_GC */
safe_free(*s); safe_free(*s);
*s = 0; *s = 0;