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

*fixed a memory leak with string manipulation.

Browse Source
This commit is contained in:
Wang Renxin 2016-01-11 14:34:15 +08:00
parent d692211deb
commit 64a888db98
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
HISTORY
View File

@ -1,5 +1,6 @@
Jan. 11 2016
Fixed a crash bug when a DO-UNTIL statement is the end of a program
Fixed a memory leak with string manipulation
Jan. 9 2016
Developing lambda, improved error handling

11
core/my_basic.c
View File

@ -1457,6 +1457,7 @@ static int _internal_object_to_public_value(_object_t* itn, mb_value_t* pbl);
static int _create_internal_object_from_public_value(mb_value_t* pbl, _object_t** itn);
static int _compare_public_value_and_internal_object(mb_value_t* pbl, _object_t* itn);
static void _try_clear_intermediate_value(void* data, void* extra, mb_interpreter_t* s);
static void _destroy_lazy_objects(mb_interpreter_t* s);
static void _mark_lazy_destroy_string(mb_interpreter_t* s, char* ch);
static void _assign_public_value(mb_value_t* tgt, mb_value_t* src);
static void _swap_public_value(mb_value_t* tgt, mb_value_t* src);
@ -7528,6 +7529,12 @@ void _try_clear_intermediate_value(void* data, void* extra, mb_interpreter_t* s)
}
}
void _destroy_lazy_objects(mb_interpreter_t* s) {
/* Destroy lazy objects */
_ls_foreach(s->lazy_destroy_objects, _destroy_object);
_ls_clear(s->lazy_destroy_objects);
}
void _mark_lazy_destroy_string(mb_interpreter_t* s, char* ch) {
/* Mark a string as lazy destroy */
_object_t* temp_obj = 0;
@ -7865,6 +7872,8 @@ _retry:
}
_exit:
_destroy_lazy_objects(s);
*l = ast;
_stepped(s, ast);
@ -9930,8 +9939,6 @@ int mb_run(struct mb_interpreter_t* s) {
do {
result = _execute_statement(s, &ast);
_ls_foreach(s->lazy_destroy_objects, _destroy_object);
_ls_clear(s->lazy_destroy_objects);
if(result != MB_FUNC_OK && result != MB_SUB_RETURN) {
if(result != MB_FUNC_SUSPEND && s->error_handler) {
if(result >= MB_EXTENDED_ABORT)