1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/xpcom/reflect/xptcall/src/md/unix/xptcinvoke_x86_64_solaris.cpp Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,143 @@
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 +#include "alloca.h"
1.14 +
1.15 +// 6 integral parameters are passed in registers
1.16 +const uint32_t GPR_COUNT = 6;
1.17 +
1.18 +// 8 floating point parameters are passed in SSE registers
1.19 +const uint32_t FPR_COUNT = 8;
1.20 +
1.21 +// Remember that these 'words' are 64-bit long
1.22 +static inline void
1.23 +invoke_count_words(uint32_t paramCount, nsXPTCVariant * s,
1.24 + uint32_t & nr_gpr, uint32_t & nr_fpr, uint32_t & nr_stack)
1.25 +{
1.26 + nr_gpr = 1; // skip one GP register for 'that'
1.27 + nr_fpr = 0;
1.28 + nr_stack = 0;
1.29 +
1.30 + /* Compute number of eightbytes of class MEMORY. */
1.31 + for (uint32_t i = 0; i < paramCount; i++, s++) {
1.32 + if (!s->IsPtrData()
1.33 + && (s->type == nsXPTType::T_FLOAT || s->type == nsXPTType::T_DOUBLE)) {
1.34 + if (nr_fpr < FPR_COUNT)
1.35 + nr_fpr++;
1.36 + else
1.37 + nr_stack++;
1.38 + }
1.39 + else {
1.40 + if (nr_gpr < GPR_COUNT)
1.41 + nr_gpr++;
1.42 + else
1.43 + nr_stack++;
1.44 + }
1.45 + }
1.46 +}
1.47 +
1.48 +static void
1.49 +invoke_copy_to_stack(uint64_t * d, uint32_t paramCount, nsXPTCVariant * s,
1.50 + uint64_t * gpregs, double * fpregs)
1.51 +{
1.52 + uint32_t nr_gpr = 1; // skip one GP register for 'that'
1.53 + uint32_t nr_fpr = 0;
1.54 + uint64_t value;
1.55 +
1.56 + for (uint32_t i = 0; i < paramCount; i++, s++) {
1.57 + if (s->IsPtrData())
1.58 + value = (uint64_t) s->ptr;
1.59 + else {
1.60 + switch (s->type) {
1.61 + case nsXPTType::T_FLOAT: break;
1.62 + case nsXPTType::T_DOUBLE: break;
1.63 + case nsXPTType::T_I8: value = s->val.i8; break;
1.64 + case nsXPTType::T_I16: value = s->val.i16; break;
1.65 + case nsXPTType::T_I32: value = s->val.i32; break;
1.66 + case nsXPTType::T_I64: value = s->val.i64; break;
1.67 + case nsXPTType::T_U8: value = s->val.u8; break;
1.68 + case nsXPTType::T_U16: value = s->val.u16; break;
1.69 + case nsXPTType::T_U32: value = s->val.u32; break;
1.70 + case nsXPTType::T_U64: value = s->val.u64; break;
1.71 + case nsXPTType::T_BOOL: value = s->val.b; break;
1.72 + case nsXPTType::T_CHAR: value = s->val.c; break;
1.73 + case nsXPTType::T_WCHAR: value = s->val.wc; break;
1.74 + default: value = (uint64_t) s->val.p; break;
1.75 + }
1.76 + }
1.77 +
1.78 + if (!s->IsPtrData() && s->type == nsXPTType::T_DOUBLE) {
1.79 + if (nr_fpr < FPR_COUNT)
1.80 + fpregs[nr_fpr++] = s->val.d;
1.81 + else {
1.82 + *((double *)d) = s->val.d;
1.83 + d++;
1.84 + }
1.85 + }
1.86 + else if (!s->IsPtrData() && s->type == nsXPTType::T_FLOAT) {
1.87 + if (nr_fpr < FPR_COUNT)
1.88 + // The value in %xmm register is already prepared to
1.89 + // be retrieved as a float. Therefore, we pass the
1.90 + // value verbatim, as a double without conversion.
1.91 + fpregs[nr_fpr++] = s->val.d;
1.92 + else {
1.93 + *((float *)d) = s->val.f;
1.94 + d++;
1.95 + }
1.96 + }
1.97 + else {
1.98 + if (nr_gpr < GPR_COUNT)
1.99 + gpregs[nr_gpr++] = value;
1.100 + else
1.101 + *d++ = value;
1.102 + }
1.103 + }
1.104 +}
1.105 +
1.106 +EXPORT_XPCOM_API(nsresult)
1.107 +NS_InvokeByIndex(nsISupports * that, uint32_t methodIndex,
1.108 + uint32_t paramCount, nsXPTCVariant * params)
1.109 +{
1.110 + uint32_t nr_gpr, nr_fpr, nr_stack;
1.111 + invoke_count_words(paramCount, params, nr_gpr, nr_fpr, nr_stack);
1.112 +
1.113 + // Stack, if used, must be 16-bytes aligned
1.114 + if (nr_stack)
1.115 + nr_stack = (nr_stack + 1) & ~1;
1.116 +
1.117 + // Load parameters to stack, if necessary
1.118 + uint64_t *stack = (uint64_t *) __builtin_alloca(nr_stack * 8);
1.119 + uint64_t gpregs[GPR_COUNT];
1.120 + double fpregs[FPR_COUNT];
1.121 + invoke_copy_to_stack(stack, paramCount, params, gpregs, fpregs);
1.122 +
1.123 + switch (nr_fpr) {
1.124 + case 8: asm("movupd %0, %xmm7" : : "xmm7" (fpregs[7]));
1.125 + case 7: asm("movupd %0, %xmm6" : : "xmm6" (fpregs[6]));
1.126 + case 6: asm("movupd %0, %xmm5" : : "xmm5" (fpregs[5]));
1.127 + case 5: asm("movupd %0, %xmm4" : : "xmm4" (fpregs[4]));
1.128 + case 4: asm("movupd %0, %xmm3" : : "xmm3" (fpregs[3]));
1.129 + case 3: asm("movupd %0, %xmm2" : : "xmm2" (fpregs[2]));
1.130 + case 2: asm("movupd %0, %xmm1" : : "xmm1" (fpregs[1]));
1.131 + case 1: asm("movupd %0, %xmm0" : : "xmm0" (fpregs[0]));
1.132 + case 0:;
1.133 + }
1.134 +
1.135 + // Ensure that assignments to SSE registers won't be optimized away
1.136 + asm("" ::: "xmm0", "xmm1", "xmm2", "xmm3", "xmm4", "xmm5", "xmm6", "xmm7");
1.137 +
1.138 + // Get pointer to method
1.139 + uint64_t methodAddress = *((uint64_t *)that);
1.140 + methodAddress += 16 + 8 * methodIndex;
1.141 + methodAddress = *((uint64_t *)methodAddress);
1.142 +
1.143 + typedef uint32_t (*Method)(uint64_t, uint64_t, uint64_t, uint64_t, uint64_t, uint64_t);
1.144 + uint32_t result = ((Method)methodAddress)((uint64_t)that, gpregs[1], gpregs[2], gpregs[3], gpregs[4], gpregs[5]);
1.145 + return result;
1.146 +}
