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-05-21 07:27:32 +00:00
parent b2877c0238
commit 17a14a36bc
4 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ase/stx/misc.h
View File

@ -1,5 +1,5 @@
/*
* $Id: misc.h,v 1.2 2005-05-19 16:41:10 bacon Exp $
* $Id: misc.h,v 1.3 2005-05-21 07:27:32 bacon Exp $
*/
#ifndef _XP_STX_MISC_H_
@ -11,6 +11,7 @@
#include <stdlib.h>
#include <assert.h>
#include <stdarg.h>
#include <stdio.h>
#define xp_stx_assert assert
#define xp_stx_malloc malloc

4
ase/stx/object.c
View File

@ -1,5 +1,5 @@
/*
* $Id: object.c,v 1.17 2005-05-19 16:41:10 bacon Exp $
* $Id: object.c,v 1.18 2005-05-21 07:27:32 bacon Exp $
*/
#include <xp/stx/object.h>
@ -110,7 +110,7 @@ xp_stx_word_t xp_stx_new_class (xp_stx_t* stx, const xp_stx_char_t* name)
meta = xp_stx_alloc_object (stx, XP_STX_CLASS_SIZE);
XP_STX_CLASS(stx,meta) = stx->class_metaclass;
XP_STX_AT(stx,meta,XP_STX_CLASS_SIZE) =
XP_STX_AT(stx,meta,XP_STX_CLASS_SPEC) =
XP_STX_TO_SMALLINT(XP_STX_CLASS_SIZE);
class = xp_stx_alloc_object (stx, XP_STX_CLASS_SIZE);

5
ase/stx/stx.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stx.c,v 1.21 2005-05-19 16:41:10 bacon Exp $
* $Id: stx.c,v 1.22 2005-05-21 07:27:32 bacon Exp $
*/
#include <xp/stx/stx.h>
@ -64,7 +64,8 @@ int xp_stx_bootstrap (xp_stx_t* stx)
XP_STX_CLASS(stx,stx->smalltalk) =
xp_stx_new_class (stx, XP_STX_TEXT("SystemDictionary"));
symbol_Smalltalk = xp_stx_new_symbol (stx, XP_STX_TEXT("Smalltalk"));
symbol_Smalltalk =
xp_stx_new_symbol (stx, XP_STX_TEXT("Smalltalk"));
xp_stx_hash_insert (stx, stx->smalltalk,
xp_stx_hash_string_object(stx,symbol_Smalltalk),
symbol_Smalltalk, stx->smalltalk);