michael@0: /* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
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: /* Platform specific code to invoke XPCOM methods on native objects */
michael@0: 
michael@0: #include "xptcprivate.h"
michael@0: 
michael@0: #ifndef WIN32
michael@0: #error "This code is for Win32 only"
michael@0: #endif
michael@0: 
michael@0: static void __fastcall
michael@0: invoke_copy_to_stack(uint32_t* d, uint32_t paramCount, nsXPTCVariant* s)
michael@0: {
michael@0:     for(; paramCount > 0; paramCount--, d++, s++)
michael@0:     {
michael@0:         if(s->IsPtrData())
michael@0:         {
michael@0:             *((void**)d) = s->ptr;
michael@0:             continue;
michael@0:         }
michael@0:         switch(s->type)
michael@0:         {
michael@0:         case nsXPTType::T_I8     : *((int8_t*)  d) = s->val.i8;          break;
michael@0:         case nsXPTType::T_I16    : *((int16_t*) d) = s->val.i16;         break;
michael@0:         case nsXPTType::T_I32    : *((int32_t*) d) = s->val.i32;         break;
michael@0:         case nsXPTType::T_I64    : *((int64_t*) d) = s->val.i64; d++;    break;
michael@0:         case nsXPTType::T_U8     : *((uint8_t*) d) = s->val.u8;          break;
michael@0:         case nsXPTType::T_U16    : *((uint16_t*)d) = s->val.u16;         break;
michael@0:         case nsXPTType::T_U32    : *((uint32_t*)d) = s->val.u32;         break;
michael@0:         case nsXPTType::T_U64    : *((uint64_t*)d) = s->val.u64; d++;    break;
michael@0:         case nsXPTType::T_FLOAT  : *((float*)   d) = s->val.f;           break;
michael@0:         case nsXPTType::T_DOUBLE : *((double*)  d) = s->val.d;   d++;    break;
michael@0:         case nsXPTType::T_BOOL   : *((bool*)  d) = s->val.b;           break;
michael@0:         case nsXPTType::T_CHAR   : *((char*)    d) = s->val.c;           break;
michael@0:         case nsXPTType::T_WCHAR  : *((wchar_t*) d) = s->val.wc;          break;
michael@0:         default:
michael@0:             // all the others are plain pointer types
michael@0:             *((void**)d) = s->val.p;
michael@0:             break;
michael@0:         }
michael@0:     }
michael@0: }
michael@0: 
michael@0: #pragma warning(disable : 4035) // OK to have no return value
michael@0: // Tell the PDB file this function has a standard frame pointer, and not to use
michael@0: // a custom FPO program.
michael@0: #pragma optimize( "y", off )
michael@0: extern "C" NS_EXPORT nsresult NS_FROZENCALL
michael@0: NS_InvokeByIndex(nsISupports* that, uint32_t methodIndex,
michael@0:                  uint32_t paramCount, nsXPTCVariant* params)
michael@0: {
michael@0:     __asm {
michael@0:         mov     edx,paramCount      // Save paramCount for later
michael@0:         test    edx,edx             // maybe we don't have any params to copy
michael@0:         jz      noparams
michael@0:         mov     eax,edx             
michael@0:         shl     eax,3               // *= 8 (max possible param size)
michael@0:         sub     esp,eax             // make space for params
michael@0:         mov     ecx,esp
michael@0:         push    params
michael@0:         call    invoke_copy_to_stack // fastcall, ecx = d, edx = paramCount, params is on the stack
michael@0: noparams:
michael@0:         mov     ecx,that            // instance in ecx
michael@0:         push    ecx                 // push this
michael@0:         mov     edx,[ecx]           // vtable in edx
michael@0:         mov     eax,methodIndex
michael@0:         call    [edx][eax*4]        // stdcall, i.e. callee cleans up stack.
michael@0:         mov     esp,ebp
michael@0:     }
michael@0: }
michael@0: #pragma warning(default : 4035) // restore default