1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/xpcom/reflect/xptcall/src/md/unix/xptcinvoke_amd64_openbsd.cpp Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,178 @@
1.4 +/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
1.5 + *
1.6 + * This Source Code Form is subject to the terms of the Mozilla Public
1.7 + * License, v. 2.0. If a copy of the MPL was not distributed with this
1.8 + * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
1.9 +
1.10 +// Platform specific code to invoke XPCOM methods on native objects
1.11 +
1.12 +#include "xptcprivate.h"
1.13 +
1.14 +// 6 integral parameters are passed in registers
1.15 +const uint32_t GPR_COUNT = 6;
1.16 +
1.17 +// 8 floating point parameters are passed in SSE registers
1.18 +const uint32_t FPR_COUNT = 8;
1.19 +
1.20 +// Remember that these 'words' are 64-bit long
1.21 +static inline void
1.22 +invoke_count_words(uint32_t paramCount, nsXPTCVariant * s,
1.23 + uint32_t & nr_gpr, uint32_t & nr_fpr, uint32_t & nr_stack)
1.24 +{
1.25 + nr_gpr = 1; // skip one GP register for 'that'
1.26 + nr_fpr = 0;
1.27 + nr_stack = 0;
1.28 +
1.29 + /* Compute number of eightbytes of class MEMORY. */
1.30 + for (uint32_t i = 0; i < paramCount; i++, s++) {
1.31 + if (!s->IsPtrData()
1.32 + && (s->type == nsXPTType::T_FLOAT || s->type == nsXPTType::T_DOUBLE)) {
1.33 + if (nr_fpr < FPR_COUNT)
1.34 + nr_fpr++;
1.35 + else
1.36 + nr_stack++;
1.37 + }
1.38 + else {
1.39 + if (nr_gpr < GPR_COUNT)
1.40 + nr_gpr++;
1.41 + else
1.42 + nr_stack++;
1.43 + }
1.44 + }
1.45 +}
1.46 +
1.47 +static void
1.48 +invoke_copy_to_stack(uint64_t * d, uint32_t paramCount, nsXPTCVariant * s,
1.49 + uint64_t * gpregs, double * fpregs)
1.50 +{
1.51 + uint32_t nr_gpr = 1; // skip one GP register for 'that'
1.52 + uint32_t nr_fpr = 0;
1.53 + uint64_t value;
1.54 +
1.55 + for (uint32_t i = 0; i < paramCount; i++, s++) {
1.56 + if (s->IsPtrData())
1.57 + value = (uint64_t) s->ptr;
1.58 + else {
1.59 + switch (s->type) {
1.60 + case nsXPTType::T_FLOAT: break;
1.61 + case nsXPTType::T_DOUBLE: break;
1.62 + case nsXPTType::T_I8: value = s->val.i8; break;
1.63 + case nsXPTType::T_I16: value = s->val.i16; break;
1.64 + case nsXPTType::T_I32: value = s->val.i32; break;
1.65 + case nsXPTType::T_I64: value = s->val.i64; break;
1.66 + case nsXPTType::T_U8: value = s->val.u8; break;
1.67 + case nsXPTType::T_U16: value = s->val.u16; break;
1.68 + case nsXPTType::T_U32: value = s->val.u32; break;
1.69 + case nsXPTType::T_U64: value = s->val.u64; break;
1.70 + case nsXPTType::T_BOOL: value = s->val.b; break;
1.71 + case nsXPTType::T_CHAR: value = s->val.c; break;
1.72 + case nsXPTType::T_WCHAR: value = s->val.wc; break;
1.73 + default: value = (uint64_t) s->val.p; break;
1.74 + }
1.75 + }
1.76 +
1.77 + if (!s->IsPtrData() && s->type == nsXPTType::T_DOUBLE) {
1.78 + if (nr_fpr < FPR_COUNT)
1.79 + fpregs[nr_fpr++] = s->val.d;
1.80 + else {
1.81 + *((double *)d) = s->val.d;
1.82 + d++;
1.83 + }
1.84 + }
1.85 + else if (!s->IsPtrData() && s->type == nsXPTType::T_FLOAT) {
1.86 + if (nr_fpr < FPR_COUNT)
1.87 + // The value in %xmm register is already prepared to
1.88 + // be retrieved as a float. Therefore, we pass the
1.89 + // value verbatim, as a double without conversion.
1.90 + fpregs[nr_fpr++] = s->val.d;
1.91 + else {
1.92 + *((float *)d) = s->val.f;
1.93 + d++;
1.94 + }
1.95 + }
1.96 + else {
1.97 + if (nr_gpr < GPR_COUNT)
1.98 + gpregs[nr_gpr++] = value;
1.99 + else
1.100 + *d++ = value;
1.101 + }
1.102 + }
1.103 +}
1.104 +
1.105 +EXPORT_XPCOM_API(nsresult)
1.106 +NS_InvokeByIndex(nsISupports * that, uint32_t methodIndex,
1.107 + uint32_t paramCount, nsXPTCVariant * params)
1.108 +{
1.109 + uint32_t nr_gpr, nr_fpr, nr_stack;
1.110 + invoke_count_words(paramCount, params, nr_gpr, nr_fpr, nr_stack);
1.111 +
1.112 + // Stack, if used, must be 16-bytes aligned
1.113 + if (nr_stack)
1.114 + nr_stack = (nr_stack + 1) & ~1;
1.115 +
1.116 + // Load parameters to stack, if necessary
1.117 + uint64_t *stack = (uint64_t *) __builtin_alloca(nr_stack * 8);
1.118 + uint64_t gpregs[GPR_COUNT];
1.119 + double fpregs[FPR_COUNT];
1.120 + invoke_copy_to_stack(stack, paramCount, params, gpregs, fpregs);
1.121 +
1.122 + // Load FPR registers from fpregs[]
1.123 + register double d0 asm("xmm0");
1.124 + register double d1 asm("xmm1");
1.125 + register double d2 asm("xmm2");
1.126 + register double d3 asm("xmm3");
1.127 + register double d4 asm("xmm4");
1.128 + register double d5 asm("xmm5");
1.129 + register double d6 asm("xmm6");
1.130 + register double d7 asm("xmm7");
1.131 +
1.132 + switch (nr_fpr) {
1.133 +#define ARG_FPR(N) \
1.134 + case N+1: d##N = fpregs[N];
1.135 + ARG_FPR(7);
1.136 + ARG_FPR(6);
1.137 + ARG_FPR(5);
1.138 + ARG_FPR(4);
1.139 + ARG_FPR(3);
1.140 + ARG_FPR(2);
1.141 + ARG_FPR(1);
1.142 + ARG_FPR(0);
1.143 + case 0:;
1.144 +#undef ARG_FPR
1.145 + }
1.146 +
1.147 + // Load GPR registers from gpregs[]
1.148 + register uint64_t a0 asm("rdi");
1.149 + register uint64_t a1 asm("rsi");
1.150 + register uint64_t a2 asm("rdx");
1.151 + register uint64_t a3 asm("rcx");
1.152 + register uint64_t a4 asm("r8");
1.153 + register uint64_t a5 asm("r9");
1.154 +
1.155 + switch (nr_gpr) {
1.156 +#define ARG_GPR(N) \
1.157 + case N+1: a##N = gpregs[N];
1.158 + ARG_GPR(5);
1.159 + ARG_GPR(4);
1.160 + ARG_GPR(3);
1.161 + ARG_GPR(2);
1.162 + ARG_GPR(1);
1.163 + case 1: a0 = (uint64_t) that;
1.164 + case 0:;
1.165 +#undef ARG_GPR
1.166 + }
1.167 +
1.168 + // Ensure that assignments to SSE registers won't be optimized away
1.169 + asm("" ::
1.170 + "x" (d0), "x" (d1), "x" (d2), "x" (d3),
1.171 + "x" (d4), "x" (d5), "x" (d6), "x" (d7));
1.172 +
1.173 + // Get pointer to method
1.174 + uint64_t methodAddress = *((uint64_t *)that);
1.175 + methodAddress += 8 * methodIndex;
1.176 + methodAddress = *((uint64_t *)methodAddress);
1.177 +
1.178 + typedef nsresult (*Method)(uint64_t, uint64_t, uint64_t, uint64_t, uint64_t, uint64_t);
1.179 + nsresult result = ((Method)methodAddress)(a0, a1, a2, a3, a4, a5);
1.180 + return result;
1.181 +}
