mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-26 10:11:03 +00:00
a4a7fb8f81
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@23024 72102866-910b-0410-8b05-ffd578937521
60 lines
1.6 KiB
Text
60 lines
1.6 KiB
Text
/* See ../README for copyright */
|
|
|
|
#define MFRAME_STACK_STRUCT 0
|
|
#define MFRAME_STRUCT_BYREF 0
|
|
#define MFRAME_SMALL_STRUCT 8
|
|
#define MFRAME_ARGS_SIZE 128
|
|
#define MFRAME_RESULT_SIZE 128
|
|
|
|
#define MFRAME_GET_STRUCT_ADDR(ARGS, TYPES) \
|
|
(((*(TYPES)==_C_STRUCT_B || *(TYPES)==_C_UNION_B || *(TYPES)==_C_ARY_B) && \
|
|
objc_sizeof_type(TYPES) > MFRAME_SMALL_STRUCT) ? \
|
|
*(void**)((ARGS)->arg_ptr + sizeof(void*)) : (void*)0)
|
|
|
|
#define MFRAME_SET_STRUCT_ADDR(ARGS, TYPES, ADDR) \
|
|
({if ((*(TYPES)==_C_STRUCT_B || *(TYPES)==_C_UNION_B || \
|
|
*(TYPES)==_C_ARY_B) && \
|
|
objc_sizeof_type(TYPES) > MFRAME_SMALL_STRUCT) \
|
|
*(void**)((ARGS)->arg_ptr + sizeof(void*)) = (ADDR);})
|
|
|
|
#define MFRAME_ARGS int
|
|
|
|
#define MFRAME_INIT_ARGS(CUM, RTYPE) \
|
|
((CUM) = ((*(RTYPE)==_C_STRUCT_B || *(RTYPE)==_C_UNION_B || \
|
|
*(RTYPE)==_C_ARY_B) && \
|
|
objc_sizeof_type(RTYPE) > MFRAME_SMALL_STRUCT) \
|
|
? sizeof(void*) : 0)
|
|
|
|
#define MFRAME_ARG_ENCODING(CUM, TYPE, STACK, DEST) \
|
|
({ \
|
|
const char* type = (TYPE); \
|
|
int align = objc_alignof_type(type); \
|
|
int size = objc_sizeof_type(type); \
|
|
\
|
|
(CUM) = ROUND((CUM), align); \
|
|
(TYPE) = objc_skip_typespec(type); \
|
|
sprintf((DEST), "%.*s%d", (int)((TYPE)-type), type, (CUM)); \
|
|
if (*(TYPE) == '+') \
|
|
{ \
|
|
(TYPE)++; \
|
|
} \
|
|
if (*(TYPE) == '-') \
|
|
{ \
|
|
(TYPE)++; \
|
|
} \
|
|
while (isdigit(*(TYPE))) \
|
|
{ \
|
|
(TYPE)++; \
|
|
} \
|
|
(DEST)=&(DEST)[strlen(DEST)]; \
|
|
if ((*type==_C_STRUCT_B || *type==_C_UNION_B || *type==_C_ARY_B)) \
|
|
{ \
|
|
(STACK) = (CUM) + ROUND(size, align); \
|
|
} \
|
|
else \
|
|
{ \
|
|
(STACK) = (CUM) + size; \
|
|
} \
|
|
(CUM) += ROUND(size, sizeof(void*)); \
|
|
})
|
|
|