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

+added an mb_get_ref_value function.

Browse Source
This commit is contained in:
Wang Renxin 2015-10-29 14:01:24 +08:00
parent fa0d136e22
commit cd34a3b1c7
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
core/my_basic.c
View File

@ -7773,6 +7773,26 @@ int mb_make_ref_value(struct mb_interpreter_t* s, void* val, mb_value_t* out, mb
return result; return result;
} }
int mb_get_ref_value(struct mb_interpreter_t* s, void** l, mb_value_t val, void** out) {
/* Get the data of a referenced usertype value */
int result = MB_FUNC_OK;
_usertype_ref_t* ref = 0;
mb_assert(s && out);
if(val.type != MB_DT_USERTYPE_REF) {
_handle_error_on_obj(s, SE_RN_TYPE_NOT_MATCH, 0, TON(l), MB_FUNC_ERR, _exit, result);
}
if(out) {
ref = (_usertype_ref_t*)val.value.usertype_ref;
*out = ref->usertype;
}
_exit:
return result;
}
int mb_ref_value(struct mb_interpreter_t* s, void** l, mb_value_t val) { int mb_ref_value(struct mb_interpreter_t* s, void** l, mb_value_t val) {
/* Add reference to a value */ /* Add reference to a value */
int result = MB_FUNC_OK; int result = MB_FUNC_OK;