michael@0: 
michael@0: /* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*-
michael@0:  *
michael@0:  * This Source Code Form is subject to the terms of the Mozilla Public
michael@0:  * License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0:  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
michael@0: 
michael@0: 
michael@0: #include "xptcprivate.h"
michael@0: #include "xptiprivate.h"
michael@0: 
michael@0: #include <stddef.h>
michael@0: #include <stdlib.h>
michael@0: 
michael@0: // "This code is for IA64 only"
michael@0: 
michael@0: /* Implement shared vtbl methods. */
michael@0: 
michael@0: extern "C" nsresult ATTRIBUTE_USED
michael@0: PrepareAndDispatch(nsXPTCStubBase* self, uint32_t methodIndex,
michael@0:   uint64_t* intargs, uint64_t* floatargs, uint64_t* restargs)
michael@0: {
michael@0: 
michael@0: #define PARAM_BUFFER_COUNT     16
michael@0: 
michael@0:   nsXPTCMiniVariant paramBuffer[PARAM_BUFFER_COUNT];
michael@0:   nsXPTCMiniVariant* dispatchParams = nullptr;
michael@0:   const nsXPTMethodInfo* info;
michael@0:   nsresult result = NS_ERROR_FAILURE;
michael@0:   uint64_t* iargs = intargs;
michael@0:   uint64_t* fargs = floatargs;
michael@0:   uint8_t paramCount;
michael@0:   uint8_t i;
michael@0: 
michael@0:   NS_ASSERTION(self,"no self");
michael@0: 
michael@0:   self->mEntry->GetMethodInfo(uint16_t(methodIndex), &info);
michael@0:   NS_ASSERTION(info,"no interface info");
michael@0: 
michael@0:   paramCount = info->GetParamCount();
michael@0: 
michael@0:   // setup variant array pointer
michael@0:   if(paramCount > PARAM_BUFFER_COUNT)
michael@0:     dispatchParams = new nsXPTCMiniVariant[paramCount];
michael@0:   else
michael@0:     dispatchParams = paramBuffer;
michael@0:   NS_ASSERTION(dispatchParams,"no place for params");
michael@0:   if (! dispatchParams)
michael@0:       return NS_ERROR_OUT_OF_MEMORY;
michael@0: 
michael@0:   for(i = 0; i < paramCount; ++i)
michael@0:   {
michael@0:     int isfloat = 0;
michael@0:     const nsXPTParamInfo& param = info->GetParam(i);
michael@0:     const nsXPTType& type = param.GetType();
michael@0:     nsXPTCMiniVariant* dp = &dispatchParams[i];
michael@0: 
michael@0:     if(param.IsOut() || !type.IsArithmetic())
michael@0:     {
michael@0: #ifdef __LP64__
michael@0:         /* 64 bit pointer mode */
michael@0:         dp->val.p = (void*) *iargs;
michael@0: #else
michael@0:         /* 32 bit pointer mode */
michael@0:         uint32_t* adr = (uint32_t*) iargs;
michael@0:         dp->val.p = (void*) (*(adr+1));
michael@0: #endif
michael@0:     }
michael@0:     else
michael@0:     switch(type)
michael@0:     {
michael@0:     case nsXPTType::T_I8     : dp->val.i8  = *(iargs); break;
michael@0:     case nsXPTType::T_I16    : dp->val.i16 = *(iargs); break;
michael@0:     case nsXPTType::T_I32    : dp->val.i32 = *(iargs); break;
michael@0:     case nsXPTType::T_I64    : dp->val.i64 = *(iargs); break;
michael@0:     case nsXPTType::T_U8     : dp->val.u8  = *(iargs); break;
michael@0:     case nsXPTType::T_U16    : dp->val.u16 = *(iargs); break;
michael@0:     case nsXPTType::T_U32    : dp->val.u32 = *(iargs); break;
michael@0:     case nsXPTType::T_U64    : dp->val.u64 = *(iargs); break;
michael@0:     case nsXPTType::T_FLOAT  :
michael@0:       isfloat = 1;
michael@0:       if (i < 7)
michael@0:         dp->val.f = (float) *((double*) fargs); /* register */
michael@0:       else
michael@0:         dp->val.u32 = *(fargs); /* memory */
michael@0:       break;
michael@0:     case nsXPTType::T_DOUBLE :
michael@0:       isfloat = 1;
michael@0:       dp->val.u64 = *(fargs);
michael@0:       break;
michael@0:     case nsXPTType::T_BOOL   : dp->val.b   = *(iargs); break;
michael@0:     case nsXPTType::T_CHAR   : dp->val.c   = *(iargs); break;
michael@0:     case nsXPTType::T_WCHAR  : dp->val.wc  = *(iargs); break;
michael@0:     default:
michael@0:       NS_ERROR("bad type");
michael@0:       break;
michael@0:     }
michael@0:     if (i < 7)
michael@0:     {
michael@0:       /* we are parsing register arguments */
michael@0:       if (i == 6)
michael@0:       {
michael@0:         // run out of register arguments, move on to memory arguments
michael@0:         iargs = restargs;
michael@0:         fargs = restargs;
michael@0:       }
michael@0:       else
michael@0:       {
michael@0:         ++iargs; // advance one integer register slot
michael@0:         if (isfloat) ++fargs; // advance float register slot if isfloat
michael@0:       }
michael@0:     }
michael@0:     else
michael@0:     {
michael@0:       /* we are parsing memory arguments */
michael@0:       ++iargs;
michael@0:       ++fargs;
michael@0:     }
michael@0:   }
michael@0: 
michael@0:   result = self->mOuter->CallMethod((uint16_t) methodIndex, info, dispatchParams);
michael@0: 
michael@0:   if(dispatchParams != paramBuffer)
michael@0:     delete [] dispatchParams;
michael@0: 
michael@0:   return result;
michael@0: }
michael@0: 
michael@0: extern "C" nsresult SharedStub(uint64_t,uint64_t,uint64_t,uint64_t,
michael@0:  uint64_t,uint64_t,uint64_t,uint64_t,uint64_t,uint64_t *);
michael@0: 
michael@0: /* Variable a0-a7 were put there so we can have access to the 8 input
michael@0:    registers on Stubxyz entry */
michael@0: 
michael@0: #define STUB_ENTRY(n) \
michael@0: nsresult nsXPTCStubBase::Stub##n(uint64_t a1, \
michael@0: uint64_t a2,uint64_t a3,uint64_t a4,uint64_t a5,uint64_t a6,uint64_t a7, \
michael@0: uint64_t a8) \
michael@0: { uint64_t a0 = (uint64_t) this; \
michael@0:  return SharedStub(a0,a1,a2,a3,a4,a5,a6,a7,(uint64_t) n, &a8); \
michael@0: }
michael@0: 
michael@0: #define SENTINEL_ENTRY(n) \
michael@0: nsresult nsXPTCStubBase::Sentinel##n() \
michael@0: { \
michael@0:     NS_ERROR("nsXPTCStubBase::Sentinel called"); \
michael@0:     return NS_ERROR_NOT_IMPLEMENTED; \
michael@0: }
michael@0: 
michael@0: #include "xptcstubsdef.inc"
michael@0: