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

*polished code.

Browse Source
This commit is contained in:
paladin-t 2015-12-30 16:11:09 +08:00
parent dd94cab8ce
commit ebd1268717
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/my_basic.c
View File

@ -2934,10 +2934,7 @@ _routine:
(*val)->type = c->type; (*val)->type = c->type;
if(_is_string(c)) { if(_is_string(c)) {
char* _str = _extract_string(c); char* _str = _extract_string(c);
size_t _sl = strlen(_str); (*val)->data.string = mb_strdup(_str, strlen(_str) + 1);
(*val)->data.string = (char*)mb_malloc(_sl + 1);
(*val)->data.string[_sl] = '\0';
memcpy((*val)->data.string, _str, _sl + 1);
(*val)->ref = false; (*val)->ref = false;
} else if(c->type == _DT_ARRAY) { } else if(c->type == _DT_ARRAY) {
(*val)->data = c->data; (*val)->data = c->data;