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

*fixed a multiple memory disposing bug.

Browse Source
This commit is contained in:
paladin-t 2015-12-17 16:37:42 +08:00
parent f5057fd859
commit a9219bb31b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/my_basic.c
View File

@ -11803,6 +11803,8 @@ int _std_print(mb_interpreter_t* s, void** l) {
_MAKE_NIL(&tmp);
_public_value_to_internal_object(&s->running_context->intermediate_value, &tmp);
val_ptr = obj = &tmp;
if(tmp.type == _DT_STRING)
tmp.data.string = mb_memdup(tmp.data.string, (unsigned)(strlen(tmp.data.string) + 1));
if(ast) ast = ast->prev;
} else if(obj->type == _DT_VAR) {
val_ptr = obj = obj->data.variable->data;