зеркало из https://github.com/mozilla/pjs.git
Bug 502188. Implement xptcall for mingw-Windows64. r=timeless
--HG-- extra : rebase_source : 2c03e2ae8d491059b9c3759e7e5082a20c1b715a
This commit is contained in:
Mook
Родитель
3c037ab317
Коммит
a703badcb6
|
|
@ -82,8 +82,13 @@ ASFLAGS += /I../../..public
|
|||
endif
|
||||
|
||||
ifeq ($(TARGET_CPU),x86_64)
|
||||
ifndef GNU_CXX
|
||||
CPPSRCS := xptcinvoke_x86_64.cpp xptcstubs_x86_64.cpp
|
||||
ASFILES := xptcinvoke_asm_x86_64.asm xptcstubs_asm_x86_64.asm
|
||||
else #!GNU_CXX
|
||||
CPPSRCS := xptcinvoke_x86_64.cpp xptcstubs_x86_64_gnu.cpp
|
||||
ASFILES := xptcinvoke_asm_x86_64_gnu.s
|
||||
endif #!GNU_CXX
|
||||
endif
|
||||
|
||||
ifeq ($(OS_ARCH),WINCE)
|
||||
|
|
|
|||
|
|
@ -0,0 +1,158 @@
|
|||
# ***** BEGIN LICENSE BLOCK *****
|
||||
# Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
||||
#
|
||||
# The contents of this file are subject to the Mozilla Public License Version
|
||||
# 1.1 (the "License"); you may not use this file except in compliance with
|
||||
# the License. You may obtain a copy of the License at
|
||||
# http://www.mozilla.org/MPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||||
# for the specific language governing rights and limitations under the
|
||||
# License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is
|
||||
# Makoto Kato <m_kato@ga2.so-net.ne.jp>.
|
||||
# Portions created by the Initial Developer are Copyright (C) 2004
|
||||
# the Initial Developer. All Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
# Alternatively, the contents of this file may be used under the terms of
|
||||
# either the GNU General Public License Version 2 or later (the "GPL"), or
|
||||
# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
||||
# in which case the provisions of the GPL or the LGPL are applicable instead
|
||||
# of those above. If you wish to allow use of your version of this file only
|
||||
# under the terms of either the GPL or the LGPL, and not to allow others to
|
||||
# use your version of this file under the terms of the MPL, indicate your
|
||||
# decision by deleting the provisions above and replace them with the notice
|
||||
# and other provisions required by the GPL or the LGPL. If you do not delete
|
||||
# the provisions above, a recipient may use your version of this file under
|
||||
# the terms of any one of the MPL, the GPL or the LGPL.
|
||||
#
|
||||
# ***** END LICENSE BLOCK *****
|
||||
|
||||
.extern _invoke_copy_to_stack
|
||||
|
||||
|
||||
.text
|
||||
.intel_syntax
|
||||
|
||||
#
|
||||
#_XPTC__InvokebyIndex(nsISupports* that, PRUint32 methodIndex,
|
||||
# PRUint32 paramCount, nsXPTCVariant* params)
|
||||
#
|
||||
|
||||
.globl _XPTC__InvokebyIndex
|
||||
.def _XPTC__InvokebyIndex
|
||||
.scl 3
|
||||
.type 46
|
||||
.endef
|
||||
_XPTC__InvokebyIndex:
|
||||
|
||||
#
|
||||
# store register parameters
|
||||
#
|
||||
|
||||
mov qword ptr [rsp+32], r9 # params
|
||||
mov dword ptr [rsp+24], r8d # paramCount
|
||||
mov dword ptr [rsp+16], edx # methodIndex
|
||||
mov qword ptr [rsp+8], rcx # that
|
||||
|
||||
#
|
||||
# store RBX/RBP register for backup
|
||||
#
|
||||
|
||||
mov qword ptr [rsp-16], rbp
|
||||
|
||||
mov rbp, rsp # store current RSP to RBP
|
||||
# .SETFRAME rbp, 0
|
||||
# .ENDPROLOG
|
||||
|
||||
sub rsp, 32
|
||||
|
||||
#
|
||||
# maybe we don't have any parameters to copy
|
||||
#
|
||||
|
||||
test r8d, r8d
|
||||
jz noparams
|
||||
|
||||
#
|
||||
# make space for 1st parameter
|
||||
|
||||
mov eax, r8d
|
||||
and eax, 1 # AMD64 must be alignment to 16 bytes
|
||||
add eax, r8d
|
||||
shl rax, 3 # *= 8
|
||||
sub rsp, rax
|
||||
mov rcx, rsp
|
||||
|
||||
#
|
||||
# 2nd parameter is parameter count
|
||||
#
|
||||
|
||||
mov edx, r8d
|
||||
|
||||
#
|
||||
# 3rd parameter is params
|
||||
#
|
||||
|
||||
mov r8, r9
|
||||
|
||||
sub rsp, 32
|
||||
|
||||
call _invoke_copy_to_stack # rcx = d
|
||||
# edx = paramCount
|
||||
# r8 = s
|
||||
|
||||
add rsp, 32
|
||||
|
||||
#
|
||||
# Build parameters
|
||||
#
|
||||
|
||||
mov rdx, qword ptr [rsp] # 1st parameter
|
||||
movsd xmm1, qword ptr [rsp] # for double
|
||||
|
||||
mov r8, qword ptr [rsp+8] # 2nd parameter
|
||||
movsd xmm2, qword ptr [rsp+8] # for double
|
||||
|
||||
mov r9, qword ptr [rsp+16] # 3rd parameter
|
||||
movsd xmm3, qword ptr [rsp+16] # for double
|
||||
|
||||
#
|
||||
# 1st parameter (this)
|
||||
#
|
||||
|
||||
mov rcx, qword ptr [rbp+8] # that
|
||||
|
||||
noparams:
|
||||
|
||||
#
|
||||
# calculate call address
|
||||
#
|
||||
|
||||
mov r11, qword ptr [rcx]
|
||||
mov eax, dword ptr [rbp+16] # methodIndex
|
||||
|
||||
#
|
||||
# Now current stack has parameter list
|
||||
# But, since callee function backups parameters, make space into stack.
|
||||
|
||||
sub rsp, 8
|
||||
|
||||
call qword ptr [r11+rax*8] # stdcall, i.e. callee cleans up stack.
|
||||
|
||||
#
|
||||
# restore registers
|
||||
#
|
||||
|
||||
mov rsp, rbp
|
||||
mov rbp, qword ptr [rsp-16]
|
||||
|
||||
ret
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,331 @@
|
|||
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
||||
*
|
||||
* ***** BEGIN LICENSE BLOCK *****
|
||||
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
||||
*
|
||||
* The contents of this file are subject to the Mozilla Public License Version
|
||||
* 1.1 (the "License"); you may not use this file except in compliance with
|
||||
* the License. You may obtain a copy of the License at
|
||||
* http://www.mozilla.org/MPL/
|
||||
*
|
||||
* Software distributed under the License is distributed on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||||
* for the specific language governing rights and limitations under the
|
||||
* License.
|
||||
*
|
||||
* The Original Code is mozilla.org Code.
|
||||
*
|
||||
* The Initial Developer of the Original Code is
|
||||
* Netscape Communications Corporation.
|
||||
* Portions created by the Initial Developer are Copyright (C) 1999
|
||||
* the Initial Developer. All Rights Reserved.
|
||||
*
|
||||
* Contributor(s):
|
||||
*
|
||||
* Alternatively, the contents of this file may be used under the terms of
|
||||
* either of the GNU General Public License Version 2 or later (the "GPL"),
|
||||
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
||||
* in which case the provisions of the GPL or the LGPL are applicable instead
|
||||
* of those above. If you wish to allow use of your version of this file only
|
||||
* under the terms of either the GPL or the LGPL, and not to allow others to
|
||||
* use your version of this file under the terms of the MPL, indicate your
|
||||
* decision by deleting the provisions above and replace them with the notice
|
||||
* and other provisions required by the GPL or the LGPL. If you do not delete
|
||||
* the provisions above, a recipient may use your version of this file under
|
||||
* the terms of any one of the MPL, the GPL or the LGPL.
|
||||
*
|
||||
* ***** END LICENSE BLOCK ***** */
|
||||
|
||||
#include "xptcprivate.h"
|
||||
#include "xptiprivate.h"
|
||||
#include "../unix/xptc_gcc_x86_unix.h"
|
||||
|
||||
/*
|
||||
* This is for Windows 64 bit (x86_64) using GCC syntax
|
||||
* Code was copied from the MSVC version.
|
||||
*/
|
||||
|
||||
#if !defined(_AMD64_) || !defined(__GNUC__)
|
||||
# error xptcstubs_x86_64_gnu.cpp being used unexpectedly
|
||||
#endif
|
||||
|
||||
extern "C" nsresult
|
||||
PrepareAndDispatch(nsXPTCStubBase * self, PRUint32 methodIndex,
|
||||
PRUint64 * args, PRUint64 * gprData, double *fprData)
|
||||
{
|
||||
#define PARAM_BUFFER_COUNT 16
|
||||
//
|
||||
// "this" pointer is first parameter, so parameter count is 3.
|
||||
//
|
||||
#define PARAM_GPR_COUNT 3
|
||||
#define PARAM_FPR_COUNT 3
|
||||
|
||||
nsXPTCMiniVariant paramBuffer[PARAM_BUFFER_COUNT];
|
||||
nsXPTCMiniVariant* dispatchParams = NULL;
|
||||
const nsXPTMethodInfo* info = NULL;
|
||||
PRUint8 paramCount;
|
||||
PRUint8 i;
|
||||
nsresult result = NS_ERROR_FAILURE;
|
||||
|
||||
NS_ASSERTION(self, "no self");
|
||||
|
||||
self->mEntry->GetMethodInfo(PRUint16(methodIndex), &info);
|
||||
NS_ASSERTION(info, "no method info");
|
||||
|
||||
paramCount = info->GetParamCount();
|
||||
|
||||
//
|
||||
// setup variant array pointer
|
||||
//
|
||||
|
||||
if(paramCount > PARAM_BUFFER_COUNT)
|
||||
dispatchParams = new nsXPTCMiniVariant[paramCount];
|
||||
else
|
||||
dispatchParams = paramBuffer;
|
||||
|
||||
NS_ASSERTION(dispatchParams,"no place for params");
|
||||
|
||||
PRUint64* ap = args;
|
||||
PRUint32 iCount = 0;
|
||||
|
||||
for(i = 0; i < paramCount; i++)
|
||||
{
|
||||
const nsXPTParamInfo& param = info->GetParam(i);
|
||||
const nsXPTType& type = param.GetType();
|
||||
nsXPTCMiniVariant* dp = &dispatchParams[i];
|
||||
|
||||
if(param.IsOut() || !type.IsArithmetic())
|
||||
{
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.p = (void*)gprData[iCount++];
|
||||
else
|
||||
dp->val.p = (void*)*ap++;
|
||||
|
||||
continue;
|
||||
}
|
||||
// else
|
||||
switch(type)
|
||||
{
|
||||
case nsXPTType::T_I8:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.i8 = (PRInt8)gprData[iCount++];
|
||||
else
|
||||
dp->val.i8 = *((PRInt8*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_I16:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.i16 = (PRInt16)gprData[iCount++];
|
||||
else
|
||||
dp->val.i16 = *((PRInt16*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_I32:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.i32 = (PRInt32)gprData[iCount++];
|
||||
else
|
||||
dp->val.i32 = *((PRInt32*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_I64:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.i64 = (PRInt64)gprData[iCount++];
|
||||
else
|
||||
dp->val.i64 = *((PRInt64*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_U8:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.u8 = (PRUint8)gprData[iCount++];
|
||||
else
|
||||
dp->val.u8 = *((PRUint8*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_U16:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.u16 = (PRUint16)gprData[iCount++];
|
||||
else
|
||||
dp->val.u16 = *((PRUint16*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_U32:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.u32 = (PRUint32)gprData[iCount++];
|
||||
else
|
||||
dp->val.u32 = *((PRUint32*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_U64:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.u64 = (PRUint64)gprData[iCount++];
|
||||
else
|
||||
dp->val.u64 = *((PRUint64*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_FLOAT:
|
||||
if (iCount < PARAM_FPR_COUNT)
|
||||
dp->val.f = (float)fprData[iCount++];
|
||||
else
|
||||
dp->val.f = *((float*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_DOUBLE:
|
||||
if (iCount < PARAM_FPR_COUNT)
|
||||
dp->val.d = (double)fprData[iCount++];
|
||||
else
|
||||
dp->val.d = *((double*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_BOOL:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.b = (PRBool)gprData[iCount++];
|
||||
else
|
||||
dp->val.b = *((PRBool*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_CHAR:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.c = (char)gprData[iCount++];
|
||||
else
|
||||
dp->val.c = *((char*)ap++);
|
||||
break;
|
||||
|
||||
case nsXPTType::T_WCHAR:
|
||||
if (iCount < PARAM_GPR_COUNT)
|
||||
dp->val.wc = (wchar_t)gprData[iCount++];
|
||||
else
|
||||
dp->val.wc = *((wchar_t*)ap++);
|
||||
break;
|
||||
|
||||
default:
|
||||
NS_ASSERTION(0, "bad type");
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
result = self->mOuter->CallMethod((PRUint16)methodIndex, info, dispatchParams);
|
||||
|
||||
if(dispatchParams != paramBuffer)
|
||||
delete [] dispatchParams;
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
__asm__ (
|
||||
".text\n"
|
||||
".intel_syntax\n" /* switch to Intel syntax to look like the MSVC assembly */
|
||||
".globl SharedStub\n"
|
||||
".def SharedStub ; .scl 3 ; .type 46 ; .endef \n"
|
||||
"SharedStub:\n"
|
||||
|
||||
/* rcx is this pointer. Need backup for optimized build */
|
||||
|
||||
"mov qword ptr [rsp+88], rcx\n"
|
||||
|
||||
/*
|
||||
* fist 4 parameters (1st is "this" pointer) are passed in registers.
|
||||
*/
|
||||
|
||||
/* for floating value */
|
||||
|
||||
"movsd qword ptr [rsp+64], xmm1\n"
|
||||
"movsd qword ptr [rsp+72], xmm2\n"
|
||||
"movsd qword ptr [rsp+80], xmm3\n"
|
||||
|
||||
/* for integer value */
|
||||
|
||||
"mov qword ptr [rsp+40], rdx\n"
|
||||
"mov qword ptr [rsp+48], r8\n"
|
||||
"mov qword ptr [rsp+56], r9\n"
|
||||
|
||||
/*
|
||||
* Call PrepareAndDispatch function
|
||||
*/
|
||||
|
||||
/* 5th parameter (floating parameters) of PrepareAndDispatch */
|
||||
|
||||
"lea r9, qword ptr [rsp+64]\n"
|
||||
"mov qword ptr [rsp+32], r9\n"
|
||||
|
||||
/* 4th parameter (normal parameters) of PrepareAndDispatch */
|
||||
|
||||
"lea r9, qword ptr [rsp+40]\n"
|
||||
|
||||
/* 3rd parameter (pointer to args on stack) */
|
||||
|
||||
"lea r8, qword ptr [rsp+40+104]\n"
|
||||
|
||||
/* 2nd parameter (vtbl_index) */
|
||||
|
||||
"mov rdx, r11\n"
|
||||
|
||||
/* 1st parameter (this) (rcx) */
|
||||
|
||||
"call _PrepareAndDispatch\n"
|
||||
|
||||
/* restore rcx */
|
||||
|
||||
"mov rcx, qword ptr [rsp+88]\n"
|
||||
|
||||
/*
|
||||
* clean up register
|
||||
*/
|
||||
|
||||
"add rsp, 104+8\n"
|
||||
|
||||
/* set return address */
|
||||
|
||||
"mov rdx, qword ptr [rsp-8]\n"
|
||||
|
||||
/* simulate __stdcall return */
|
||||
|
||||
"jmp rdx\n"
|
||||
|
||||
/* back to AT&T syntax */
|
||||
".att_syntax\n"
|
||||
|
||||
);
|
||||
|
||||
#define STUB_ENTRY(n) \
|
||||
asm(".intel_syntax\n" /* this is in intel syntax */ \
|
||||
".text\n" \
|
||||
".align 2\n" \
|
||||
".if " #n " < 10\n" \
|
||||
".globl " SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase5Stub" #n "Ev@4\n" \
|
||||
".def " SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase5Stub" #n "Ev@4\n" \
|
||||
".scl 3\n" /* private */ \
|
||||
".type 46\n" /* function returning unsigned int */ \
|
||||
".endef\n" \
|
||||
SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase5Stub" #n "Ev@4:\n" \
|
||||
".elseif " #n " < 100\n" \
|
||||
".globl " SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase6Stub" #n "Ev@4\n" \
|
||||
".def " SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase6Stub" #n "Ev@4\n" \
|
||||
".scl 3\n" /* private */\
|
||||
".type 46\n" /* function returning unsigned int */ \
|
||||
".endef\n" \
|
||||
SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase6Stub" #n "Ev@4:\n" \
|
||||
".elseif " #n " < 1000\n" \
|
||||
".globl " SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase7Stub" #n "Ev@4\n" \
|
||||
".def " SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase7Stub" #n "Ev@4\n" \
|
||||
".scl 3\n" /* private */ \
|
||||
".type 46\n" /* function returning unsigned int */ \
|
||||
".endef\n" \
|
||||
SYMBOL_UNDERSCORE "_ZN14nsXPTCStubBase7Stub" #n "Ev@4:\n" \
|
||||
".else\n" \
|
||||
".err \"stub number " #n " >= 1000 not yet supported\"\n" \
|
||||
".endif\n" \
|
||||
"push rbx\n" \
|
||||
"mov rbx, " #n "\n" \
|
||||
"jmp SharedStub\n" \
|
||||
".att_syntax\n" /* back to AT&T syntax */ \
|
||||
"");
|
||||
|
||||
#define SENTINEL_ENTRY(n) \
|
||||
nsresult nsXPTCStubBase::Sentinel##n() \
|
||||
{ \
|
||||
NS_ASSERTION(0,"nsXPTCStubBase::Sentinel called"); \
|
||||
return NS_ERROR_NOT_IMPLEMENTED; \
|
||||
}
|
||||
|
||||
#include "xptcstubsdef.inc"
|
||||
|
||||
Загрузка…
Ссылка в новой задаче