/* -*- 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): * Russell King * * 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 ***** */ /* Implement shared vtbl methods. */ #include "xptcprivate.h" #include "xptiprivate.h" #if !defined(LINUX) || !defined(__arm__) #error "This code is for Linux ARM only. Please check if it works for you, too.\nDepends strongly on gcc behaviour." #endif #if (__GNUC__ > 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 4)) /* This tells gcc3.4+ not to optimize away symbols. * @see http://gcc.gnu.org/gcc-3.4/changes.html */ #define DONT_DROP_OR_WARN __attribute__((used)) #else /* This tells older gccs not to warn about unused vairables. * @see http://docs.freebsd.org/info/gcc/gcc.info.Variable_Attributes.html */ #define DONT_DROP_OR_WARN __attribute__((unused)) #endif /* Specify explicitly a symbol for this function, don't try to guess the c++ mangled symbol. */ static nsresult PrepareAndDispatch(nsXPTCStubBase* self, uint32 methodIndex, PRUint32* args) asm("_PrepareAndDispatch") DONT_DROP_OR_WARN; #ifdef __ARM_EABI__ #define DOUBLEWORD_ALIGN(p) ((PRUint32 *)((((PRUint32)(p)) + 7) & 0xfffffff8)) #else #define DOUBLEWORD_ALIGN(p) (p) #endif static nsresult PrepareAndDispatch(nsXPTCStubBase* self, uint32 methodIndex, PRUint32* args) { #define PARAM_BUFFER_COUNT 16 nsXPTCMiniVariant paramBuffer[PARAM_BUFFER_COUNT]; nsXPTCMiniVariant* dispatchParams = NULL; nsIInterfaceInfo* iface_info = NULL; const nsXPTMethodInfo* info; PRUint8 paramCount; PRUint8 i; nsresult result = NS_ERROR_FAILURE; NS_ASSERTION(self,"no self"); self->mEntry->GetMethodInfo(PRUint16(methodIndex), &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"); PRUint32* ap = args; for(i = 0; i < paramCount; i++, ap++) { const nsXPTParamInfo& param = info->GetParam(i); const nsXPTType& type = param.GetType(); nsXPTCMiniVariant* dp = &dispatchParams[i]; if(param.IsOut() || !type.IsArithmetic()) { dp->val.p = (void*) *ap; continue; } // else switch(type) { case nsXPTType::T_I8 : dp->val.i8 = *((PRInt8*) ap); break; case nsXPTType::T_I16 : dp->val.i16 = *((PRInt16*) ap); break; case nsXPTType::T_I32 : dp->val.i32 = *((PRInt32*) ap); break; case nsXPTType::T_I64 : ap = DOUBLEWORD_ALIGN(ap); dp->val.i64 = *((PRInt64*) ap); ap++; break; case nsXPTType::T_U8 : dp->val.u8 = *((PRUint8*) ap); break; case nsXPTType::T_U16 : dp->val.u16 = *((PRUint16*)ap); break; case nsXPTType::T_U32 : dp->val.u32 = *((PRUint32*)ap); break; case nsXPTType::T_U64 : ap = DOUBLEWORD_ALIGN(ap); dp->val.u64 = *((PRUint64*)ap); ap++; break; case nsXPTType::T_FLOAT : dp->val.f = *((float*) ap); break; case nsXPTType::T_DOUBLE : ap = DOUBLEWORD_ALIGN(ap); dp->val.d = *((double*) ap); ap++; break; case nsXPTType::T_BOOL : dp->val.b = *((PRBool*) ap); break; case nsXPTType::T_CHAR : dp->val.c = *((char*) ap); break; case nsXPTType::T_WCHAR : 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; } /* * This is our shared stub. * * r0 = Self. * * The Rules: * We pass an (undefined) number of arguments into this function. * The first 3 C++ arguments are in r1 - r3, the rest are built * by the calling function on the stack. * * We are allowed to corrupt r0 - r3, ip, and lr. * * Other Info: * We pass the stub number in using `ip'. * * Implementation: * - We save r1 to r3 inclusive onto the stack, which will be * immediately below the caller saved arguments. * - setup r2 (PrepareAndDispatch's args pointer) to point at * the base of all these arguments * - Save LR (for the return address) * - Set r1 (PrepareAndDispatch's methodindex argument) from ip * - r0 is passed through (self) * - Call PrepareAndDispatch * - When the call returns, we return by loading the PC off the * stack, and undoing the stack (one instruction)! * */ __asm__ ("\n\ SharedStub: \n\ stmfd sp!, {r1, r2, r3} \n\ mov r2, sp \n\ str lr, [sp, #-4]! \n\ mov r1, ip \n\ bl _PrepareAndDispatch \n\ ldr pc, [sp], #16"); /* * Create sets of stubs to call the SharedStub. * We don't touch the stack here, nor any registers, other than IP. * IP is defined to be corruptable by a called function, so we are * safe to use it. * * This will work with or without optimisation. */ #if defined(__GXX_ABI_VERSION) && __GXX_ABI_VERSION >= 100 /* G++ V3 ABI */ /* * Note : As G++3 ABI contains the length of the functionname in the * mangled name, it is difficult to get a generic assembler mechanism like * in the G++ 2.95 case. * Create names would be like : * _ZN14nsXPTCStubBase5Stub9Ev * _ZN14nsXPTCStubBase6Stub13Ev * _ZN14nsXPTCStubBase7Stub144Ev * Use the assembler directives to get the names right... */ #define STUB_ENTRY(n) \ __asm__( \ ".section \".text\"\n" \ " .align 2\n" \ " .iflt ("#n" - 10)\n" \ " .globl _ZN14nsXPTCStubBase5Stub"#n"Ev\n" \ " .type _ZN14nsXPTCStubBase5Stub"#n"Ev,#function\n" \ "_ZN14nsXPTCStubBase5Stub"#n"Ev:\n" \ " .else\n" \ " .iflt ("#n" - 100)\n" \ " .globl _ZN14nsXPTCStubBase6Stub"#n"Ev\n" \ " .type _ZN14nsXPTCStubBase6Stub"#n"Ev,#function\n" \ "_ZN14nsXPTCStubBase6Stub"#n"Ev:\n" \ " .else\n" \ " .iflt ("#n" - 1000)\n" \ " .globl _ZN14nsXPTCStubBase7Stub"#n"Ev\n" \ " .type _ZN14nsXPTCStubBase7Stub"#n"Ev,#function\n" \ "_ZN14nsXPTCStubBase7Stub"#n"Ev:\n" \ " .else\n" \ " .err \"stub number "#n"> 1000 not yet supported\"\n" \ " .endif\n" \ " .endif\n" \ " .endif\n" \ " mov ip, #"#n"\n" \ " b SharedStub\n\t"); #if 0 /* * This part is left in as comment : this is how the method definition * should look like. */ #define STUB_ENTRY(n) \ nsresult nsXPTCStubBase::Stub##n () \ { \ __asm__ ( \ " mov ip, #"#n"\n" \ " b SharedStub\n\t"); \ return 0; /* avoid warnings */ \ } #endif #else /* G++2.95 ABI */ #define STUB_ENTRY(n) \ __asm__( \ ".section \".text\"\n" \ " .align\n" \ " .globl Stub"#n"__14nsXPTCStubBase\n" \ " .type Stub"#n"__14nsXPTCStubBase,#function\n\n" \ "Stub"#n"__14nsXPTCStubBase:\n" \ " mov ip, #"#n"\n" \ " b SharedStub\n\t"); #endif #define SENTINEL_ENTRY(n) \ nsresult nsXPTCStubBase::Sentinel##n() \ { \ NS_ASSERTION(0,"nsXPTCStubBase::Sentinel called"); \ return NS_ERROR_NOT_IMPLEMENTED; \ } #include "xptcstubsdef.inc"