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-07-19 15:00:09 +00:00
parent 30382196be
commit 01a16f87ac
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ase/stx/dict.c
View File

@ -1,5 +1,5 @@
/*
* $Id: dict.c,v 1.2 2005-07-19 12:08:04 bacon Exp $
* $Id: dict.c,v 1.3 2005-07-19 15:00:09 bacon Exp $
*/
#include <xp/stx/dict.h>
@ -10,7 +10,13 @@ xp_word_t __new_association (
xp_stx_t* stx, xp_word_t key, xp_word_t value)
{
xp_word_t x;
#ifdef __GNUC__
xp_word_t data[2] = { key, value };
#else
xp_word_t data[2];
data[0] = key;
data[1] = value;
#endif
x = xp_stx_alloc_word_object (
stx, data, XP_STX_ASSOCIATION_SIZE, XP_NULL, 0);
@ -85,8 +91,8 @@ static void __dict_grow (xp_stx_t* stx, xp_word_t dict)
}
xp_printf (XP_TEXT("dictionary grown. swapped the index\n"));
XP_SWAP (((xp_uint_t)XP_STX_OBJECT(stx,dict)),
((xp_uint_t)XP_STX_OBJECT(stx,new)));
XP_SWAP ((xp_uint_t)XP_STX_OBJECT(stx,dict),
(xp_uint_t)XP_STX_OBJECT(stx,new));
}
xp_word_t xp_stx_dict_lookup (

2
ase/stx/makefile.bcc
View File

@ -1,6 +1,6 @@
SRCS = \
stx.c memory.c object.c symbol.c class.c \
hash.c misc.c context.c token.c parser.c bootstrp.c
dict.c misc.c context.c name.c token.c parser.c bootstrp.c bytecode.c
OBJS = $(SRCS:.c=.obj)
OUT = xpstx.lib

4
ase/stx/makefile.lcc
View File

@ -1,7 +1,7 @@
SRCS = stx.c memory.c object.c symbol.c class.c \
hash.c misc.c context.c name.c token.c parser.c bootstrp.c bytecode.c
dict.c misc.c context.c name.c token.c parser.c bootstrp.c bytecode.c
OBJS = stx.obj memory.obj object.obj symbol.obj class.obj \
hash.obj misc.obj context.obj name.obj token.obj parser.obj bootstrp.obj bytecode.obj
dict.obj misc.obj context.obj name.obj token.obj parser.obj bootstrp.obj bytecode.obj
OUT = xpstx.lib
CC = lcc