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-09-30 09:46:10 +00:00
parent 9682256a55
commit 3d3c41e083
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ase/awk/sce.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: sce.h,v 1.1 2005-09-30 09:40:15 bacon Exp $ * $Id: sce.h,v 1.2 2005-09-30 09:46:10 bacon Exp $
*/ */
#ifndef _XP_SCE_SCE_H_ #ifndef _XP_SCE_SCE_H_
@ -71,6 +71,13 @@ struct xp_sce_real_obj_t
xp_real_t data[1]; xp_real_t data[1];
}; };
struct xp_sce_proc_obj_t
{
xp_sce_objhdr_t hdr;
xp_real_
xp_byte_t code[1];
};
struct xp_sce_mem_t struct xp_sce_mem_t
{ {
xp_word_t capacity; xp_word_t capacity;
@ -94,8 +101,6 @@ struct xp_sce_t
#define XP_SCE_FROM_OINDEX(x) ((x) >> 1) #define XP_SCE_FROM_OINDEX(x) ((x) >> 1)
#define XP_SCE_NIL XP_SCE_TO_OINDEX(0) #define XP_SCE_NIL XP_SCE_TO_OINDEX(0)
#define XP_SCE_TRUE XP_SCE_TO_OINDEX(1)
#define XP_SCE_FALSE XP_SCE_TO_OINDEX(2)
#define XP_SCE_OBJ(sce,idx) (((sce)->mem).slots[XP_SCE_FROM_OINDEX(idx)]) #define XP_SCE_OBJ(sce,idx) (((sce)->mem).slots[XP_SCE_FROM_OINDEX(idx)])
#define XP_SCE_ACCESS(sce,idx) (XP_SCE_OBJ(sce,(idx))->hdr.access) #define XP_SCE_ACCESS(sce,idx) (XP_SCE_OBJ(sce,(idx))->hdr.access)