hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2005-08-11 10:11:26 +00:00
parent b65a93638d
commit e9fddd16d8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ase/stx/dict.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: dict.c,v 1.8 2005-08-11 09:57:54 bacon Exp $ * $Id: dict.c,v 1.9 2005-08-11 10:11:26 bacon Exp $
*/ */
#include <xp/stx/dict.h> #include <xp/stx/dict.h>
@ -50,7 +50,7 @@ static xp_word_t __dict_find_slot (
symbol = XP_STX_WORD_AT(stx,assoc,XP_STX_ASSOCIATION_KEY); symbol = XP_STX_WORD_AT(stx,assoc,XP_STX_ASSOCIATION_KEY);
xp_assert (xp_stx_classof(stx,symbol) == stx->class_symbol); xp_assert (xp_stx_classof(stx,symbol) == stx->class_symbol);
/* /* NOTE:
* shallow comparison is enough for identity check * shallow comparison is enough for identity check
* because only a symbol can be a key of a system dictionary * because only a symbol can be a key of a system dictionary
*/ */
@ -69,7 +69,7 @@ static void __grow_dict (xp_stx_t* stx, xp_word_t dict)
{ {
xp_word_t new, size, index, assoc; xp_word_t new, size, index, assoc;
/* /* WARNING:
* if this assertion fails, adjust the initial size of the * if this assertion fails, adjust the initial size of the
* system dictionary. i don't want this function to be called * system dictionary. i don't want this function to be called
* during the bootstrapping. * during the bootstrapping.
@ -91,8 +91,8 @@ static void __grow_dict (xp_stx_t* stx, xp_word_t dict)
XP_STX_WORD_AT(stx,assoc,XP_STX_ASSOCIATION_VALUE)); XP_STX_WORD_AT(stx,assoc,XP_STX_ASSOCIATION_VALUE));
} }
/* TODO: explore if dict can be immediately destroyed. /* TODO: explore if dict can be immediately destroyed. */
*/
xp_assert (xp_sizeof(xp_stx_object_t*) == xp_sizeof(xp_uint_t)); xp_assert (xp_sizeof(xp_stx_object_t*) == xp_sizeof(xp_uint_t));
XP_SWAP (XP_STX_OBJECT(stx,dict), XP_SWAP (XP_STX_OBJECT(stx,dict),
XP_STX_OBJECT(stx,new), XP_STX_OBJECT(stx,new),