mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 lines
3.1 KiB
107 lines
3.1 KiB
// This is a part of the Microsoft Foundation Classes C++ library.
|
|
// Copyright (C) 1992-1995 Microsoft Corporation
|
|
// All rights reserved.
|
|
//
|
|
// This source code is only intended as a supplement to the
|
|
// Microsoft Foundation Classes Reference and related
|
|
// electronic documentation provided with the library.
|
|
// See these sources for detailed information regarding the
|
|
// Microsoft Foundation Classes product.
|
|
|
|
#ifdef _AFXDLL
|
|
#include "stdafx.h"
|
|
#endif
|
|
#include <afxisapi.h>
|
|
|
|
// Note: because of the nature of these functions, it is not possible
|
|
// to create a 'C' or 'C++' version of them. These functions are used
|
|
// for the lowest level of the OLE IDispatch implementation, and need
|
|
// to be ported to each supported platform.
|
|
|
|
extern "C" {
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// Intel 386 version
|
|
|
|
#ifdef _X86_
|
|
|
|
__declspec(naked) void AFXISAPI
|
|
_AfxParseCall(AFX_PISAPICMD /*pfn*/, void* /*pArgs*/, UINT /*nSizeArgs*/)
|
|
{
|
|
_asm
|
|
{
|
|
pop edx // edx = return address
|
|
pop eax // eax = pfn
|
|
pop ecx // ecx = pArgs
|
|
add ecx,[esp] // ecx += nSizeArgs (=scratch area)
|
|
mov [ecx],edx // scratch[0] = return address
|
|
sub ecx,[esp] // ecx = pArgs (again)
|
|
mov esp,ecx // esp = pArgs (usually already correct)
|
|
pop ecx // ecx = this pointer (the CCmdTarget*)
|
|
call eax // call member function
|
|
ret // esp[0] should = scratch[0] = return address
|
|
}
|
|
}
|
|
#endif // _X86_
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// MIPS R4000 version
|
|
|
|
#ifdef _MIPS_
|
|
|
|
extern "C" void _asm(char *, ...);
|
|
void AFXISAPI
|
|
_AfxParseCall(AFX_PISAPICMD /*pfn*/, void* /*pArgs*/, UINT /*nSizeArgs*/)
|
|
{
|
|
_asm("addiu %sp,%a1,0x0"); // sp = pArgs
|
|
_asm("addiu %t6,%a0,0x0"); // t6 = pfn (save it)
|
|
_asm("lw %a0,0x0(%sp)"); // a0 = param0
|
|
_asm("lw %a1,0x4(%sp)"); // a1 = param1
|
|
_asm("lw %a2,0x8(%sp)"); // a2 = param2
|
|
_asm("lw %a3,0xc(%sp)"); // a3 = param3
|
|
_asm("j %t6"); // ip = pfn (jump to target function)
|
|
}
|
|
|
|
#endif // _MIPS_
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// DEC Alpha AXP version
|
|
|
|
#ifdef _ALPHA_
|
|
|
|
// Note: ALPHA version is in src\alpha\inetcal_.s
|
|
|
|
// The ALPHA compiler does not support inline assembly, so it
|
|
// must be build separately with the ASAXP assembler.
|
|
|
|
#endif // _ALPHA_
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// 680x0 version
|
|
|
|
#ifdef _68K_
|
|
|
|
// Note: Mac68k version is in src\m68k\inetcal_.obj
|
|
|
|
// The 68k compiler does not support inline assembly, so it
|
|
// has been build separate and included as an object
|
|
|
|
|
|
#endif // _68K_
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// PowerMac version
|
|
|
|
#ifdef _MPPC_
|
|
|
|
// Note: MacPPC version is in src\mppc\inetcal_.obj
|
|
|
|
// The Mac PowerPC compiler does not support inline assembly, so it
|
|
// has been build separate and included as an object
|
|
|
|
#endif // _MPPC_
|
|
|
|
|
|
} // end extern "C" block
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|