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