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-05 06:28:03 +00:00
parent fd769d0f29
commit 774f884b2d
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ase/stx/symbol.c
View File

@ -1,5 +1,5 @@
/*
* $Id: symbol.c,v 1.11 2005-07-05 06:26:33 bacon Exp $
* $Id: symbol.c,v 1.12 2005-07-05 06:28:03 bacon Exp $
*/
#include <xp/stx/symbol.h>
@ -9,16 +9,11 @@
xp_word_t xp_stx_new_symlink (xp_stx_t* stx, xp_word_t sym)
{
xp_word_t x;
xp_word_t data[] = { stx->nil, sym };
/*
x = xp_stx_alloc_word_object (stx, XP_NULL, XP_STX_SYMLINK_SIZE);
XP_STX_CLASS(stx,x) = stx->class_symlink;
XP_STX_WORDAT(stx,x,XP_STX_SYMLINK_LINK) = stx->nil;
XP_STX_WORDAT(stx,x,XP_STX_SYMLINK_SYMBOL) = sym;
*/
x = xp_stx_alloc_word_object (stx, data, XP_STX_SYMLINK_SIZE);
XP_STX_CLASS(stx,x) = stx->class_symlink;
return x;
}