Differences From Artifact [4f0bfb5114]:
- File src/invocation/invoke-x86_64.m — part of check-in [d0878b2eae] at 2017-09-11 20:32:29 on branch trunk — invoke-x86_64.m: Support for long double (user: js, size: 7014) [annotate] [blame] [check-ins using]
To Artifact [7689390f4e]:
- File
src/invocation/invoke-x86_64.m
— part of check-in
[8417c40405]
at
2017-09-12 23:49:39
on branch trunk
— invoke-x86_64.m: Minor refactor
This makes it easier to add more complex types. (user: js, size: 6862) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
uint8_t num_sse_used;
uint8_t return_type;
uint64_t stack_size;
uint64_t stack[];
};
extern void of_invocation_call(struct call_context *);
void
of_invocation_invoke(OFInvocation *invocation)
{
OFMethodSignature *methodSignature = [invocation methodSignature];
size_t numberOfArguments = [methodSignature numberOfArguments];
struct call_context *context;
const char *typeEncoding;
size_t currentGPR = 0, currentSSE = 0;
if ((context = calloc(sizeof(*context), 1)) == NULL)
@throw [OFOutOfMemoryException exception];
for (size_t i = 0; i < numberOfArguments; i++) {
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > < < < < < < < < < < < | | | | | | | < | | < | < | > | | | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
uint8_t num_sse_used;
uint8_t return_type;
uint64_t stack_size;
uint64_t stack[];
};
extern void of_invocation_call(struct call_context *);
static void
pushGPR(struct call_context **context, size_t *currentGPR, uint64_t value)
{
struct call_context *newContext;
if (*currentGPR < NUM_GPR_IN) {
(*context)->gpr[(*currentGPR)++] = value;
return;
}
if ((newContext = realloc(*context,
sizeof(**context) + ((*context)->stack_size + 1) * 8)) == NULL) {
free(*context);
@throw [OFOutOfMemoryException exceptionWithRequestedSize:
sizeof(**context) + ((*context)->stack_size + 1) * 8];
}
newContext->stack[newContext->stack_size] = value;
newContext->stack_size++;
*context = newContext;
}
static void
pushDouble(struct call_context **context, size_t *currentSSE, double value)
{
struct call_context *newContext;
if (*currentSSE < NUM_SSE_IN) {
(*context)->sse[(*currentSSE)++] = _mm_set_sd(value);
(*context)->num_sse_used++;
return;
}
if ((newContext = realloc(*context,
sizeof(**context) + ((*context)->stack_size + 1) * 8)) == NULL) {
free(*context);
@throw [OFOutOfMemoryException exceptionWithRequestedSize:
sizeof(**context) + ((*context)->stack_size + 1) * 8];
}
memcpy(&newContext->stack[newContext->stack_size], &value, 8);
newContext->stack_size++;
*context = newContext;
}
static void
pushLongDouble(struct call_context **context, long double value)
{
struct call_context *newContext;
if ((newContext = realloc(*context,
sizeof(**context) + ((*context)->stack_size + 2) * 8)) == NULL) {
free(*context);
@throw [OFOutOfMemoryException exceptionWithRequestedSize:
sizeof(**context) + ((*context)->stack_size + 2) * 8];
}
memcpy(&newContext->stack[newContext->stack_size], &value, 16);
newContext->stack_size += 2;
*context = newContext;
}
void
of_invocation_invoke(OFInvocation *invocation)
{
OFMethodSignature *methodSignature = [invocation methodSignature];
size_t numberOfArguments = [methodSignature numberOfArguments];
struct call_context *context;
const char *typeEncoding;
size_t currentGPR = 0, currentSSE = 0;
if ((context = calloc(sizeof(*context), 1)) == NULL)
@throw [OFOutOfMemoryException exception];
for (size_t i = 0; i < numberOfArguments; i++) {
typeEncoding = [methodSignature argumentTypeAtIndex: i];
if (*typeEncoding == 'r')
typeEncoding++;
switch (*typeEncoding) {
#define CASE_GPR(encoding, type) \
case encoding: \
{ \
type tmp; \
[invocation getArgument: &tmp \
atIndex: i]; \
pushGPR(&context, ¤tGPR, tmp); \
} \
break;
CASE_GPR('c', char)
CASE_GPR('C', unsigned char)
CASE_GPR('i', int)
CASE_GPR('I', unsigned int)
CASE_GPR('s', short)
CASE_GPR('S', unsigned short)
CASE_GPR('l', long)
CASE_GPR('L', unsigned long)
CASE_GPR('q', long long)
CASE_GPR('Q', unsigned long long)
case 'f':;
float floatTmp;
[invocation getArgument: &floatTmp
atIndex: i];
pushDouble(&context, ¤tSSE, floatTmp);
break;
case 'd':;
double doubleTmp;
[invocation getArgument: &doubleTmp
atIndex: i];
pushDouble(&context, ¤tSSE, doubleTmp);
break;
case 'D':;
long double longDoubleTmp;
[invocation getArgument: &longDoubleTmp
atIndex: i];
pushLongDouble(&context, longDoubleTmp);
break;
CASE_GPR('B', _Bool)
CASE_GPR('*', uintptr_t)
CASE_GPR('@', uintptr_t)
CASE_GPR('#', uintptr_t)
CASE_GPR(':', uintptr_t)
/* TODO: '[' */
|
| ︙ | ︙ | |||
135 136 137 138 139 140 141 | /* TODO: 'T' */ #endif default: free(context); @throw [OFInvalidFormatException exception]; #undef CASE_GPR } | < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | /* TODO: 'T' */ #endif default: free(context); @throw [OFInvalidFormatException exception]; #undef CASE_GPR } } typeEncoding = [methodSignature methodReturnType]; if (*typeEncoding == 'r') typeEncoding++; |
| ︙ | ︙ |