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-13 14:42:27 +00:00
parent d92291a5f6
commit e25bb74c25
2 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ase/stx/object.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: object.c,v 1.36 2005-07-07 07:45:05 bacon Exp $ * $Id: object.c,v 1.37 2005-07-13 14:42:27 bacon Exp $
*/ */
#include <xp/stx/object.h> #include <xp/stx/object.h>
@ -185,14 +185,15 @@ xp_word_t xp_stx_hash_object (xp_stx_t* stx, xp_word_t object)
} }
xp_word_t xp_stx_instantiate ( xp_word_t xp_stx_instantiate (
xp_stx_t* stx, xp_word_t class_index, const void* data, xp_stx_t* stx, xp_word_t class, const void* data,
const void* variable_data, xp_word_t variable_nfields) const void* variable_data, xp_word_t variable_nfields)
{ {
xp_stx_class_t* class_obj; xp_stx_class_t* class_obj;
xp_word_t spec, nfields, new; xp_word_t spec, nfields, new;
int indexable; int indexable;
class_obj = (xp_stx_class_t*)XP_STX_OBJECT(stx, class_index); xp_assert (class != stx->class_smallinteger);
class_obj = (xp_stx_class_t*)XP_STX_OBJECT(stx, class);
/* don't instantiate a metaclass whose instance must be /* don't instantiate a metaclass whose instance must be
created in a different way */ created in a different way */
@ -225,6 +226,23 @@ xp_word_t xp_stx_instantiate (
stx, data, nfields, XP_NULL, 0); stx, data, nfields, XP_NULL, 0);
} }
XP_STX_CLASS(stx, new) = class_index; XP_STX_CLASS(stx, new) = class;
return new; return new;
} }
xp_word_t xp_stx_class (xp_stx_t* stx, xp_word_t obj)
{
return XP_STX_IS_SMALLINT(obj)?
stx->class_smallinteger: XP_STX_CLASS(stx,obj);
}
xp_word_t xp_stx_classof (xp_stx_t* stx, xp_word_t obj)
{
return XP_STX_IS_SMALLINT(obj)?
stx->class_smallinteger: XP_STX_CLASS(stx,obj);
}
xp_word_t xp_stx_sizeof (xp_stx_t* stx, xp_word_t obj)
{
return XP_STX_IS_SMALLINT(obj)? 1: XP_STX_SIZE(stx,obj);
}

5
ase/stx/object.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: object.h,v 1.25 2005-07-05 11:15:51 bacon Exp $ * $Id: object.h,v 1.26 2005-07-13 14:42:27 bacon Exp $
*/ */
#ifndef _XP_STX_OBJECT_H_ #ifndef _XP_STX_OBJECT_H_
@ -29,6 +29,9 @@ xp_word_t xp_stx_hash_object (xp_stx_t* stx, xp_word_t object);
xp_word_t xp_stx_instantiate ( xp_word_t xp_stx_instantiate (
xp_stx_t* stx, xp_word_t class_index, const void* data, xp_stx_t* stx, xp_word_t class_index, const void* data,
const void* variable_data, xp_word_t variable_nfields); const void* variable_data, xp_word_t variable_nfields);
xp_word_t xp_stx_classof (xp_stx_t* stx, xp_word_t obj);
xp_word_t xp_stx_sizeof (xp_stx_t* stx, xp_word_t obj);
#ifdef __cplusplus #ifdef __cplusplus
} }