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

*polished code; *updated win bin.

Browse Source
This commit is contained in:
paladin-t 2016-02-23 10:25:16 +08:00
parent 792d8f694c
commit c9322c9d92
3 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
HISTORY
View File

@ -2,7 +2,7 @@ Feb. 22 2016
Added array clone support Added array clone support
Added array accessing support of a class instance Added array accessing support of a class instance
Added a RAISE statement to the shell Added a RAISE statement to the shell
Fixed an iterator disposing issue by referencing a collection weakly Fixed an iterator disposing issue caused by referencing a collection weakly
Feb. 19 2016 Feb. 19 2016
Added source tracing for sub routine invoking Added source tracing for sub routine invoking

14
core/my_basic.c
View File

@ -1400,7 +1400,7 @@ static bool_t _write_on_ref_object(_lock_t* lk, _ref_t* ref, void* obj);
static _ref_count_t _ref(_ref_t* ref, void* data); static _ref_count_t _ref(_ref_t* ref, void* data);
static bool_t _unref(_ref_t* ref, void* data); static bool_t _unref(_ref_t* ref, void* data);
static _ref_count_t _weak_ref(_ref_t* ref, void* data, _ref_t* weak); static _ref_count_t _weak_ref(_ref_t* ref, void* data, _ref_t* weak);
static bool_t _weak_unref(_ref_t* ref, void* data, _ref_t* weak); static bool_t _weak_unref(_ref_t* weak);
static void _create_ref(_ref_t* ref, _unref_func_t dtor, _data_e t, mb_interpreter_t* s); static void _create_ref(_ref_t* ref, _unref_func_t dtor, _data_e t, mb_interpreter_t* s);
static void _destroy_ref(_ref_t* ref); static void _destroy_ref(_ref_t* ref);
@ -5200,19 +5200,17 @@ static _ref_count_t _weak_ref(_ref_t* ref, void* data, _ref_t* weak) {
mb_unrefvar(data); mb_unrefvar(data);
++(*ref->weak_count); ++(*ref->weak_count);
mb_assert(*ref->weak_count > before && "Too many referencing, weak_count overflow, please redefine _ref_count_t."); mb_assert(*ref->weak_count > before && "Too many referencing, weak count overflow, please redefine _ref_count_t.");
memcpy(weak, ref, sizeof(_ref_t)); memcpy(weak, ref, sizeof(_ref_t));
return *ref->weak_count; return *ref->weak_count;
} }
static bool_t _weak_unref(_ref_t* ref, void* data, _ref_t* weak) { static bool_t _weak_unref(_ref_t* weak) {
/* Decrease the weak reference of a stub by 1 */ /* Decrease the weak reference of a stub by 1 */
bool_t result = true; bool_t result = true;
mb_unrefvar(ref);
mb_unrefvar(data);
result = --(*weak->weak_count) == _NONE_REF; --(*weak->weak_count);
mb_assert(*weak->weak_count >= _NONE_REF); mb_assert(*weak->weak_count >= _NONE_REF);
if(weak->count && *weak->count == _NONE_REF) if(weak->count && *weak->count == _NONE_REF)
result = false; result = false;
@ -6088,7 +6086,7 @@ static bool_t _destroy_list_it(_list_it_t* it) {
mb_assert(it); mb_assert(it);
if(_weak_unref(&it->list->ref, it->list, &it->weak_ref)) if(_weak_unref(&it->weak_ref))
_unlock_ref_object(&it->list->lock, &it->list->ref, it->list); _unlock_ref_object(&it->list->lock, &it->list->ref, it->list);
safe_free(it); safe_free(it);
@ -6147,7 +6145,7 @@ static bool_t _destroy_dict_it(_dict_it_t* it) {
mb_assert(it); mb_assert(it);
if(_weak_unref(&it->dict->ref, it->dict, &it->weak_ref)) if(_weak_unref(&it->weak_ref))
_unlock_ref_object(&it->dict->lock, &it->dict->ref, it->dict); _unlock_ref_object(&it->dict->lock, &it->dict->ref, it->dict);
safe_free(it); safe_free(it);

BIN
output/my_basic.exe
View File

Binary file not shown.