1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/xpcom/reflect/xptcall/src/md/unix/xptcinvoke_linux_s390x.cpp Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,184 @@
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 +
1.15 +static uint32_t
1.16 +invoke_count_words(uint32_t paramCount, nsXPTCVariant* s)
1.17 +{
1.18 + uint32_t overflow = 0, gpr = 1 /*this*/, fpr = 0;
1.19 + for(uint32_t i = 0; i < paramCount; i++, s++)
1.20 + {
1.21 + if(s->IsPtrData())
1.22 + {
1.23 + if (gpr < 5) gpr++; else overflow++;
1.24 + continue;
1.25 + }
1.26 + switch(s->type)
1.27 + {
1.28 + case nsXPTType::T_I8 :
1.29 + case nsXPTType::T_I16 :
1.30 + case nsXPTType::T_I32 :
1.31 + case nsXPTType::T_I64 :
1.32 + if (gpr < 5) gpr++; else overflow++;
1.33 + break;
1.34 + case nsXPTType::T_U8 :
1.35 + case nsXPTType::T_U16 :
1.36 + case nsXPTType::T_U32 :
1.37 + case nsXPTType::T_U64 :
1.38 + if (gpr < 5) gpr++; else overflow++;
1.39 + break;
1.40 + case nsXPTType::T_FLOAT :
1.41 + case nsXPTType::T_DOUBLE :
1.42 + if (fpr < 4) fpr++; else overflow++;
1.43 + break;
1.44 + case nsXPTType::T_BOOL :
1.45 + case nsXPTType::T_CHAR :
1.46 + case nsXPTType::T_WCHAR :
1.47 + if (gpr < 5) gpr++; else overflow++;
1.48 + break;
1.49 + default:
1.50 + // all the others are plain pointer types
1.51 + if (gpr < 5) gpr++; else overflow++;
1.52 + break;
1.53 + }
1.54 + }
1.55 + /* Round up number of overflow words to ensure stack
1.56 + stays aligned to 8 bytes. */
1.57 + return (overflow + 1) & ~1;
1.58 +}
1.59 +
1.60 +static void
1.61 +invoke_copy_to_stack(uint32_t paramCount, nsXPTCVariant* s, uint64_t* d_ov, uint32_t overflow)
1.62 +{
1.63 + uint64_t *d_gpr = d_ov + overflow;
1.64 + uint64_t *d_fpr = (uint64_t *)(d_gpr + 4);
1.65 + uint32_t gpr = 1 /*this*/, fpr = 0;
1.66 +
1.67 + for(uint32_t i = 0; i < paramCount; i++, s++)
1.68 + {
1.69 + if(s->IsPtrData())
1.70 + {
1.71 + if (gpr < 5)
1.72 + *((void**)d_gpr) = s->ptr, d_gpr++, gpr++;
1.73 + else
1.74 + *((void**)d_ov ) = s->ptr, d_ov++;
1.75 + continue;
1.76 + }
1.77 + switch(s->type)
1.78 + {
1.79 + case nsXPTType::T_I8 :
1.80 + if (gpr < 5)
1.81 + *((int64_t*) d_gpr) = s->val.i8, d_gpr++, gpr++;
1.82 + else
1.83 + *((int64_t*) d_ov ) = s->val.i8, d_ov++;
1.84 + break;
1.85 + case nsXPTType::T_I16 :
1.86 + if (gpr < 5)
1.87 + *((int64_t*) d_gpr) = s->val.i16, d_gpr++, gpr++;
1.88 + else
1.89 + *((int64_t*) d_ov ) = s->val.i16, d_ov++;
1.90 + break;
1.91 + case nsXPTType::T_I32 :
1.92 + if (gpr < 5)
1.93 + *((int64_t*) d_gpr) = s->val.i32, d_gpr++, gpr++;
1.94 + else
1.95 + *((int64_t*) d_ov ) = s->val.i32, d_ov++;
1.96 + break;
1.97 + case nsXPTType::T_I64 :
1.98 + if (gpr < 5)
1.99 + *((int64_t*) d_gpr) = s->val.i64, d_gpr++, gpr++;
1.100 + else
1.101 + *((int64_t*) d_ov ) = s->val.i64, d_ov++;
1.102 + break;
1.103 + case nsXPTType::T_U8 :
1.104 + if (gpr < 5)
1.105 + *((uint64_t*) d_gpr) = s->val.u8, d_gpr++, gpr++;
1.106 + else
1.107 + *((uint64_t*) d_ov ) = s->val.u8, d_ov++;
1.108 + break;
1.109 + case nsXPTType::T_U16 :
1.110 + if (gpr < 5)
1.111 + *((uint64_t*)d_gpr) = s->val.u16, d_gpr++, gpr++;
1.112 + else
1.113 + *((uint64_t*)d_ov ) = s->val.u16, d_ov++;
1.114 + break;
1.115 + case nsXPTType::T_U32 :
1.116 + if (gpr < 5)
1.117 + *((uint64_t*)d_gpr) = s->val.u32, d_gpr++, gpr++;
1.118 + else
1.119 + *((uint64_t*)d_ov ) = s->val.u32, d_ov++;
1.120 + break;
1.121 + case nsXPTType::T_U64 :
1.122 + if (gpr < 5)
1.123 + *((uint64_t*)d_gpr) = s->val.u64, d_gpr++, gpr++;
1.124 + else
1.125 + *((uint64_t*)d_ov ) = s->val.u64, d_ov++;
1.126 + break;
1.127 + case nsXPTType::T_FLOAT :
1.128 + if (fpr < 4)
1.129 + *((float*) d_fpr) = s->val.f, d_fpr++, fpr++;
1.130 + else
1.131 + *(((float*) d_ov )+1) = s->val.f, d_ov++;
1.132 + break;
1.133 + case nsXPTType::T_DOUBLE :
1.134 + if (fpr < 4)
1.135 + *((double*) d_fpr) = s->val.d, d_fpr++, fpr++;
1.136 + else
1.137 + *((double*) d_ov ) = s->val.d, d_ov++;
1.138 + break;
1.139 + case nsXPTType::T_BOOL :
1.140 + if (gpr < 5)
1.141 + *((uint64_t*)d_gpr) = s->val.b, d_gpr++, gpr++;
1.142 + else
1.143 + *((uint64_t*)d_ov ) = s->val.b, d_ov++;
1.144 + break;
1.145 + case nsXPTType::T_CHAR :
1.146 + if (gpr < 5)
1.147 + *((uint64_t*)d_gpr) = s->val.c, d_gpr++, gpr++;
1.148 + else
1.149 + *((uint64_t*)d_ov ) = s->val.c, d_ov++;
1.150 + break;
1.151 + case nsXPTType::T_WCHAR :
1.152 + if (gpr < 5)
1.153 + *((uint64_t*)d_gpr) = s->val.wc, d_gpr++, gpr++;
1.154 + else
1.155 + *((uint64_t*)d_ov ) = s->val.wc, d_ov++;
1.156 + break;
1.157 + default:
1.158 + // all the others are plain pointer types
1.159 + if (gpr < 5)
1.160 + *((void**) d_gpr) = s->val.p, d_gpr++, gpr++;
1.161 + else
1.162 + *((void**) d_ov ) = s->val.p, d_ov++;
1.163 + break;
1.164 + }
1.165 + }
1.166 +}
1.167 +
1.168 +typedef nsresult (*vtable_func)(nsISupports *, uint64_t, uint64_t, uint64_t, uint64_t, double, double, double, double);
1.169 +
1.170 +EXPORT_XPCOM_API(nsresult)
1.171 +NS_InvokeByIndex(nsISupports* that, uint32_t methodIndex,
1.172 + uint32_t paramCount, nsXPTCVariant* params)
1.173 +{
1.174 + vtable_func *vtable = *reinterpret_cast<vtable_func **>(that);
1.175 + vtable_func method = vtable[methodIndex];
1.176 + uint64_t overflow = invoke_count_words (paramCount, params);
1.177 + uint64_t *stack_space = reinterpret_cast<uint64_t *>(__builtin_alloca((overflow + 8 /* 4 64-bits gpr + 4 64-bits fpr */) * 8));
1.178 + uint64_t result;
1.179 +
1.180 + invoke_copy_to_stack(paramCount, params, stack_space, overflow);
1.181 +
1.182 + uint64_t *d_gpr = stack_space + overflow;
1.183 + double *d_fpr = reinterpret_cast<double *>(d_gpr + 4);
1.184 +
1.185 + return method(that, d_gpr[0], d_gpr[1], d_gpr[2], d_gpr[3], d_fpr[0], d_fpr[1], d_fpr[2], d_fpr[3]);
1.186 +}
1.187 +
