more code added for message sending implementation

This commit is contained in:
2022-01-25 07:54:11 +00:00
parent e94936b893
commit d72baec0a9
3 changed files with 91 additions and 40 deletions

View File

@ -840,18 +840,14 @@ struct hcl_process_scheduler_t
};
#define HCL_CLASS_NAMED_INSTVARS 7
#define HCL_CLASS_NAMED_INSTVARS 6
typedef struct hcl_class_t hcl_class_t;
typedef struct hcl_class_t* hcl_oop_class_t;
struct hcl_class_t
{
HCL_OBJ_HEADER;
/* === the following five fields must be in sync with hcl_methowner_t === */
/* [0] - instance methods, MethodDictionary
* [1] - class methods, MethodDictionary */
hcl_oop_dic_t mthdic[2];
/* ===================================================================== */
hcl_oop_dic_t memdic; /* dictionary of named elements including methods and variables */
hcl_oop_t superclass;
hcl_oop_t nivars; /* smooi. */
@ -860,7 +856,7 @@ struct hcl_class_t
hcl_oop_char_t ivarnames;
hcl_oop_char_t cvarnames;
/* indexed part afterwards */
/* indexed part afterwards - not included in HCL_CLASS_NAMED_INSTVARS */
hcl_oop_t cvar[1]; /* class variables. */
};
@ -2620,12 +2616,12 @@ HCL_EXPORT hcl_oop_cons_t hcl_getatsysdic (
hcl_oop_t key
);
hcl_oop_cons_t hcl_lookupsysdicforsymbol (
HCL_EXPORT hcl_oop_cons_t hcl_lookupsysdicforsymbol (
hcl_t* hcl,
const hcl_oocs_t* name
);
hcl_oop_cons_t hcl_lookupsysdicforsymbol_noseterr (
HCL_EXPORT hcl_oop_cons_t hcl_lookupsysdicforsymbol_noseterr (
hcl_t* hcl,
const hcl_oocs_t* name
);
@ -2635,6 +2631,18 @@ HCL_EXPORT int hcl_zapatsysdic (
hcl_oop_t key
);
HCL_EXPORT hcl_oop_cons_t hcl_lookupdicforsymbol (
hcl_t* hcl,
hcl_oop_dic_t dic,
const hcl_oocs_t* name
);
HCL_EXPORT hcl_oop_cons_t hcl_lookupdicforsymbol_noseterr (
hcl_t* hcl,
hcl_oop_dic_t dic,
const hcl_oocs_t* name
);
HCL_EXPORT hcl_oop_cons_t hcl_putatdic (
hcl_t* hcl,
hcl_oop_dic_t dic,