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

+added "HASH" and "COMPARE" string constants.

Browse Source
This commit is contained in:
paladin-t 2016-01-21 13:26:41 +08:00
parent 9c35b84843
commit d9d793f08a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/my_basic.c
View File

@ -409,7 +409,9 @@ typedef struct _label_t {
} _label_t;
#ifdef MB_ENABLE_CLASS
# define _TO_STRING_FUNC "TOSTRING"
# define _CLASS_HASH_FUNC "HASH"
# define _CLASS_COMPARE_FUNC "COMPARE"
# define _CLASS_TO_STRING_FUNC "TOSTRING"
#endif /* MB_ENABLE_CLASS */
#ifdef MB_ENABLE_CLASS
@ -13879,7 +13881,7 @@ _print:
#ifdef MB_ENABLE_CLASS
} else if(val_ptr->type == _DT_CLASS) {
bool_t got_tostr = false;
_ls_node_t* tsn = _search_identifier_in_class(s, val_ptr->data.instance, _TO_STRING_FUNC, 0, 0);
_ls_node_t* tsn = _search_identifier_in_class(s, val_ptr->data.instance, _CLASS_TO_STRING_FUNC, 0, 0);
if(tsn) {
_object_t* tso = (_object_t*)tsn->data;
_ls_node_t* tmp = *l;