mirror of
https://github.com/kevinbentley/Descent3.git
synced 2026-04-07 11:00:04 -04:00
clang-format on everything.
This commit is contained in:
Kevin Bentley
@@ -2,23 +2,23 @@
|
||||
AngelCode Scripting Library
|
||||
Copyright (c) 2003-2009 Andreas Jonsson
|
||||
|
||||
This software is provided 'as-is', without any express or implied
|
||||
warranty. In no event will the authors be held liable for any
|
||||
This software is provided 'as-is', without any express or implied
|
||||
warranty. In no event will the authors be held liable for any
|
||||
damages arising from the use of this software.
|
||||
|
||||
Permission is granted to anyone to use this software for any
|
||||
purpose, including commercial applications, and to alter it and
|
||||
Permission is granted to anyone to use this software for any
|
||||
purpose, including commercial applications, and to alter it and
|
||||
redistribute it freely, subject to the following restrictions:
|
||||
|
||||
1. The origin of this software must not be misrepresented; you
|
||||
1. The origin of this software must not be misrepresented; you
|
||||
must not claim that you wrote the original software. If you use
|
||||
this software in a product, an acknowledgment in the product
|
||||
this software in a product, an acknowledgment in the product
|
||||
documentation would be appreciated but is not required.
|
||||
|
||||
2. Altered source versions must be plainly marked as such, and
|
||||
2. Altered source versions must be plainly marked as such, and
|
||||
must not be misrepresented as being the original software.
|
||||
|
||||
3. This notice may not be removed or altered from any source
|
||||
3. This notice may not be removed or altered from any source
|
||||
distribution.
|
||||
|
||||
The original version of this library can be located at:
|
||||
@@ -28,7 +28,6 @@
|
||||
andreas@angelcode.com
|
||||
*/
|
||||
|
||||
|
||||
//
|
||||
// as_callfunc_sh4.cpp
|
||||
//
|
||||
@@ -42,7 +41,6 @@
|
||||
// * http://www.renesas.com/avs/resource/japan/eng/pdf/mpumcu/e602156_sh4.pdf
|
||||
// * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcechp40/html/_callsh4_SH_4_Calling_Standard.asp
|
||||
|
||||
|
||||
#include "as_config.h"
|
||||
|
||||
#ifndef MAX_PORTABILITY
|
||||
@@ -76,442 +74,403 @@ static asDWORD sh4Args[AS_SH4_MAX_ARGS + 1 + 1];
|
||||
extern "C" asQWORD sh4Func(int intArgSize, int floatArgSize, int stackArgSize, asDWORD func);
|
||||
|
||||
asm(""
|
||||
" .align 4\n"
|
||||
" .global _sh4Func\n"
|
||||
"_sh4Func:\n"
|
||||
" mov.l r14,@-r15\n"
|
||||
" mov.l r13,@-r15\n"
|
||||
" mov.l r12,@-r15\n"
|
||||
" sts.l pr,@-r15\n" // must be saved since we call a subroutine
|
||||
" mov r7, r14\n" // func
|
||||
" mov r6, r13\n" // stackArgSize
|
||||
" mov.l r5,@-r15\n" // floatArgSize
|
||||
" mov.l sh4Args,r0\n"
|
||||
" pref @r0\n"
|
||||
" mov r4, r1\n" // intArgsize
|
||||
" mov #33*4,r2\n"
|
||||
" extu.b r2,r2\n" // make unsigned (33*4 = 132 => 128)
|
||||
" mov.l @(r0,r2), r2\n" // r2 has adress for when returning in memory
|
||||
"_sh4f_intarguments:\n" // copy all the int arguments to the respective registers
|
||||
" mov #4*2*2,r3\n" // calculate how many bytes to skip
|
||||
" sub r1,r3\n"
|
||||
" braf r3\n"
|
||||
" add #-4,r1\n" // we are indexing the array backwards, so subtract one (delayed slot)
|
||||
" mov.l @(r0,r1),r7\n" // 4 arguments
|
||||
" add #-4,r1\n"
|
||||
" mov.l @(r0,r1),r6\n" // 3 arguments
|
||||
" add #-4,r1\n"
|
||||
" mov.l @(r0,r1),r5\n" // 2 arguments
|
||||
" add #-4,r1\n"
|
||||
" mov.l @(r0,r1),r4\n" // 1 argument
|
||||
" nop\n"
|
||||
"_sh4f_floatarguments:\n" // copy all the float arguments to the respective registers
|
||||
" add #4*4, r0\n"
|
||||
" mov.l @r15+,r1\n" // floatArgSize
|
||||
" mov #8*2*2,r3\n" // calculate how many bytes to skip
|
||||
" sub r1,r3\n"
|
||||
" braf r3\n"
|
||||
" add #-4,r1\n" // we are indexing the array backwards, so subtract one (delayed slot)
|
||||
" fmov.s @(r0,r1),fr11\n" // 8 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr10\n" // 7 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr9\n" // 6 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr8\n" // 5 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr7\n" // 4 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr6\n" // 3 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr5\n" // 2 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr4\n" // 1 argument
|
||||
" nop\n"
|
||||
"_sh4f_stackarguments:\n" // copy all the stack argument onto the stack
|
||||
" add #8*4, r0\n"
|
||||
" mov r0, r1\n"
|
||||
" mov #0, r0\n" // init position counter (also used as a 0-check on the line after)
|
||||
" cmp/eq r0, r13\n"
|
||||
" bt _sh4f_functioncall\n" // no arguments to push onto the stack
|
||||
" mov r13, r3\n" // stackArgSize
|
||||
" sub r3,r15\n" // "allocate" space on the stack
|
||||
" shlr2 r3\n" // make into a counter
|
||||
"_sh4f_stackloop:\n"
|
||||
" mov.l @r1+, r12\n"
|
||||
" mov.l r12, @(r0, r15)\n"
|
||||
" add #4, r0\n"
|
||||
" dt r3\n"
|
||||
" bf _sh4f_stackloop\n"
|
||||
"_sh4f_functioncall:\n"
|
||||
" jsr @r14\n" // no arguments
|
||||
" nop\n"
|
||||
" add r13, r15\n" // restore stack position
|
||||
" lds.l @r15+,pr\n"
|
||||
" mov.l @r15+, r12\n"
|
||||
" mov.l @r15+, r13\n"
|
||||
" rts\n"
|
||||
" mov.l @r15+, r14\n" // delayed slot
|
||||
"\n"
|
||||
" .align 4\n"
|
||||
"sh4Args:\n"
|
||||
" .long _sh4Args\n"
|
||||
);
|
||||
" .align 4\n"
|
||||
" .global _sh4Func\n"
|
||||
"_sh4Func:\n"
|
||||
" mov.l r14,@-r15\n"
|
||||
" mov.l r13,@-r15\n"
|
||||
" mov.l r12,@-r15\n"
|
||||
" sts.l pr,@-r15\n" // must be saved since we call a subroutine
|
||||
" mov r7, r14\n" // func
|
||||
" mov r6, r13\n" // stackArgSize
|
||||
" mov.l r5,@-r15\n" // floatArgSize
|
||||
" mov.l sh4Args,r0\n"
|
||||
" pref @r0\n"
|
||||
" mov r4, r1\n" // intArgsize
|
||||
" mov #33*4,r2\n"
|
||||
" extu.b r2,r2\n" // make unsigned (33*4 = 132 => 128)
|
||||
" mov.l @(r0,r2), r2\n" // r2 has adress for when returning in memory
|
||||
"_sh4f_intarguments:\n" // copy all the int arguments to the respective registers
|
||||
" mov #4*2*2,r3\n" // calculate how many bytes to skip
|
||||
" sub r1,r3\n"
|
||||
" braf r3\n"
|
||||
" add #-4,r1\n" // we are indexing the array backwards, so subtract one (delayed slot)
|
||||
" mov.l @(r0,r1),r7\n" // 4 arguments
|
||||
" add #-4,r1\n"
|
||||
" mov.l @(r0,r1),r6\n" // 3 arguments
|
||||
" add #-4,r1\n"
|
||||
" mov.l @(r0,r1),r5\n" // 2 arguments
|
||||
" add #-4,r1\n"
|
||||
" mov.l @(r0,r1),r4\n" // 1 argument
|
||||
" nop\n"
|
||||
"_sh4f_floatarguments:\n" // copy all the float arguments to the respective registers
|
||||
" add #4*4, r0\n"
|
||||
" mov.l @r15+,r1\n" // floatArgSize
|
||||
" mov #8*2*2,r3\n" // calculate how many bytes to skip
|
||||
" sub r1,r3\n"
|
||||
" braf r3\n"
|
||||
" add #-4,r1\n" // we are indexing the array backwards, so subtract one (delayed slot)
|
||||
" fmov.s @(r0,r1),fr11\n" // 8 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr10\n" // 7 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr9\n" // 6 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr8\n" // 5 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr7\n" // 4 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr6\n" // 3 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr5\n" // 2 arguments
|
||||
" add #-4,r1\n"
|
||||
" fmov.s @(r0,r1),fr4\n" // 1 argument
|
||||
" nop\n"
|
||||
"_sh4f_stackarguments:\n" // copy all the stack argument onto the stack
|
||||
" add #8*4, r0\n"
|
||||
" mov r0, r1\n"
|
||||
" mov #0, r0\n" // init position counter (also used as a 0-check on the line after)
|
||||
" cmp/eq r0, r13\n"
|
||||
" bt _sh4f_functioncall\n" // no arguments to push onto the stack
|
||||
" mov r13, r3\n" // stackArgSize
|
||||
" sub r3,r15\n" // "allocate" space on the stack
|
||||
" shlr2 r3\n" // make into a counter
|
||||
"_sh4f_stackloop:\n"
|
||||
" mov.l @r1+, r12\n"
|
||||
" mov.l r12, @(r0, r15)\n"
|
||||
" add #4, r0\n"
|
||||
" dt r3\n"
|
||||
" bf _sh4f_stackloop\n"
|
||||
"_sh4f_functioncall:\n"
|
||||
" jsr @r14\n" // no arguments
|
||||
" nop\n"
|
||||
" add r13, r15\n" // restore stack position
|
||||
" lds.l @r15+,pr\n"
|
||||
" mov.l @r15+, r12\n"
|
||||
" mov.l @r15+, r13\n"
|
||||
" rts\n"
|
||||
" mov.l @r15+, r14\n" // delayed slot
|
||||
"\n"
|
||||
" .align 4\n"
|
||||
"sh4Args:\n"
|
||||
" .long _sh4Args\n");
|
||||
|
||||
// puts the arguments in the correct place in the sh4Args-array. See comments above.
|
||||
// This could be done better.
|
||||
inline void splitArgs(const asDWORD *args, int argNum, int &numRegIntArgs, int &numRegFloatArgs, int &numRestArgs, int hostFlags) {
|
||||
int i;
|
||||
inline void splitArgs(const asDWORD *args, int argNum, int &numRegIntArgs, int &numRegFloatArgs, int &numRestArgs,
|
||||
int hostFlags) {
|
||||
int i;
|
||||
|
||||
int argBit = 1;
|
||||
for (i = 0; i < argNum; i++) {
|
||||
if (hostFlags & argBit) {
|
||||
if (numRegFloatArgs < 12 - 4) {
|
||||
// put in float register
|
||||
sh4Args[4 + numRegFloatArgs] = args[i];
|
||||
numRegFloatArgs++;
|
||||
} else {
|
||||
// put in stack
|
||||
sh4Args[4 + 8 + numRestArgs] = args[i];
|
||||
numRestArgs++;
|
||||
}
|
||||
} else {
|
||||
if (numRegIntArgs < 8 - 4) {
|
||||
// put in int register
|
||||
sh4Args[numRegIntArgs] = args[i];
|
||||
numRegIntArgs++;
|
||||
} else {
|
||||
// put in stack
|
||||
sh4Args[4 + 8 + numRestArgs] = args[i];
|
||||
numRestArgs++;
|
||||
}
|
||||
}
|
||||
argBit <<= 1;
|
||||
}
|
||||
int argBit = 1;
|
||||
for (i = 0; i < argNum; i++) {
|
||||
if (hostFlags & argBit) {
|
||||
if (numRegFloatArgs < 12 - 4) {
|
||||
// put in float register
|
||||
sh4Args[4 + numRegFloatArgs] = args[i];
|
||||
numRegFloatArgs++;
|
||||
} else {
|
||||
// put in stack
|
||||
sh4Args[4 + 8 + numRestArgs] = args[i];
|
||||
numRestArgs++;
|
||||
}
|
||||
} else {
|
||||
if (numRegIntArgs < 8 - 4) {
|
||||
// put in int register
|
||||
sh4Args[numRegIntArgs] = args[i];
|
||||
numRegIntArgs++;
|
||||
} else {
|
||||
// put in stack
|
||||
sh4Args[4 + 8 + numRestArgs] = args[i];
|
||||
numRestArgs++;
|
||||
}
|
||||
}
|
||||
argBit <<= 1;
|
||||
}
|
||||
}
|
||||
asQWORD CallCDeclFunction(const asDWORD *args, int argSize, asDWORD func, int flags)
|
||||
{
|
||||
int argNum = argSize >> 2;
|
||||
asQWORD CallCDeclFunction(const asDWORD *args, int argSize, asDWORD func, int flags) {
|
||||
int argNum = argSize >> 2;
|
||||
|
||||
int intArgs = 0;
|
||||
int floatArgs = 0;
|
||||
int restArgs = 0;
|
||||
int intArgs = 0;
|
||||
int floatArgs = 0;
|
||||
int restArgs = 0;
|
||||
|
||||
// put the arguments in the correct places in the sh4Args array
|
||||
if (argNum > 0)
|
||||
splitArgs(args, argNum, intArgs, floatArgs, restArgs, flags);
|
||||
// put the arguments in the correct places in the sh4Args array
|
||||
if (argNum > 0)
|
||||
splitArgs(args, argNum, intArgs, floatArgs, restArgs, flags);
|
||||
|
||||
return sh4Func(intArgs << 2, floatArgs << 2, restArgs << 2, func);
|
||||
return sh4Func(intArgs << 2, floatArgs << 2, restArgs << 2, func);
|
||||
}
|
||||
|
||||
// This function is identical to CallCDeclFunction, with the only difference that
|
||||
// the value in the first parameter is the object
|
||||
asQWORD CallThisCallFunction(const void *obj, const asDWORD *args, int argSize, asDWORD func, int flags)
|
||||
{
|
||||
int argNum = argSize >> 2;
|
||||
asQWORD CallThisCallFunction(const void *obj, const asDWORD *args, int argSize, asDWORD func, int flags) {
|
||||
int argNum = argSize >> 2;
|
||||
|
||||
int intArgs = 1;
|
||||
int floatArgs = 0;
|
||||
int restArgs = 0;
|
||||
int intArgs = 1;
|
||||
int floatArgs = 0;
|
||||
int restArgs = 0;
|
||||
|
||||
sh4Args[0] = (asDWORD) obj;
|
||||
|
||||
// put the arguments in the correct places in the sh4Args array
|
||||
if (argNum >= 1)
|
||||
splitArgs(args, argNum, intArgs, floatArgs, restArgs, flags);
|
||||
sh4Args[0] = (asDWORD)obj;
|
||||
|
||||
return sh4Func(intArgs << 2, floatArgs << 2, restArgs << 2, func);
|
||||
// put the arguments in the correct places in the sh4Args array
|
||||
if (argNum >= 1)
|
||||
splitArgs(args, argNum, intArgs, floatArgs, restArgs, flags);
|
||||
|
||||
return sh4Func(intArgs << 2, floatArgs << 2, restArgs << 2, func);
|
||||
}
|
||||
// This function is identical to CallCDeclFunction, with the only difference that
|
||||
// the value in the last parameter is the object
|
||||
asQWORD CallThisCallFunction_objLast(const void *obj, const asDWORD *args, int argSize, asDWORD func, int flags)
|
||||
{
|
||||
int argNum = argSize >> 2;
|
||||
asQWORD CallThisCallFunction_objLast(const void *obj, const asDWORD *args, int argSize, asDWORD func, int flags) {
|
||||
int argNum = argSize >> 2;
|
||||
|
||||
int intArgs = 0;
|
||||
int floatArgs = 0;
|
||||
int restArgs = 0;
|
||||
int intArgs = 0;
|
||||
int floatArgs = 0;
|
||||
int restArgs = 0;
|
||||
|
||||
// put the arguments in the correct places in the sh4Args array
|
||||
if (argNum >= 1)
|
||||
splitArgs(args, argNum, intArgs, floatArgs, restArgs, flags);
|
||||
|
||||
// put the arguments in the correct places in the sh4Args array
|
||||
if (argNum >= 1)
|
||||
splitArgs(args, argNum, intArgs, floatArgs, restArgs, flags);
|
||||
if (intArgs < 4) {
|
||||
sh4Args[intArgs] = (asDWORD)obj;
|
||||
intArgs++;
|
||||
} else {
|
||||
sh4Args[4 + 8 + restArgs] = (asDWORD)obj;
|
||||
restArgs++;
|
||||
}
|
||||
|
||||
if (intArgs < 4) {
|
||||
sh4Args[intArgs] = (asDWORD) obj;
|
||||
intArgs++;
|
||||
} else {
|
||||
sh4Args[4 + 8 + restArgs] = (asDWORD) obj;
|
||||
restArgs++;
|
||||
}
|
||||
|
||||
|
||||
return sh4Func(intArgs << 2, floatArgs << 2, restArgs << 2, func);
|
||||
return sh4Func(intArgs << 2, floatArgs << 2, restArgs << 2, func);
|
||||
}
|
||||
|
||||
asDWORD GetReturnedFloat()
|
||||
{
|
||||
asDWORD f;
|
||||
asDWORD GetReturnedFloat() {
|
||||
asDWORD f;
|
||||
|
||||
asm("fmov.s fr0, %0\n" : "=m"(f));
|
||||
asm("fmov.s fr0, %0\n" : "=m"(f));
|
||||
|
||||
return f;
|
||||
return f;
|
||||
}
|
||||
|
||||
// sizeof(double) == 4 with sh-elf-gcc (3.4.0) -m4
|
||||
// so this isn't really used...
|
||||
asQWORD GetReturnedDouble()
|
||||
{
|
||||
asQWORD d;
|
||||
asQWORD GetReturnedDouble() {
|
||||
asQWORD d;
|
||||
|
||||
asm("fmov dr0, %0\n" : "=m"(d));
|
||||
asm("fmov dr0, %0\n" : "=m"(d));
|
||||
|
||||
return d;
|
||||
return d;
|
||||
}
|
||||
|
||||
int CallSystemFunction(int id, asCContext *context, void *objectPointer)
|
||||
{
|
||||
asCScriptEngine *engine = context->engine;
|
||||
asSSystemFunctionInterface *sysFunc = engine->scriptFunctions[id]->sysFuncIntf;
|
||||
int callConv = sysFunc->callConv;
|
||||
if( callConv == ICC_GENERIC_FUNC || callConv == ICC_GENERIC_METHOD )
|
||||
return context->CallGeneric(id, objectPointer);
|
||||
int CallSystemFunction(int id, asCContext *context, void *objectPointer) {
|
||||
asCScriptEngine *engine = context->engine;
|
||||
asSSystemFunctionInterface *sysFunc = engine->scriptFunctions[id]->sysFuncIntf;
|
||||
int callConv = sysFunc->callConv;
|
||||
if (callConv == ICC_GENERIC_FUNC || callConv == ICC_GENERIC_METHOD)
|
||||
return context->CallGeneric(id, objectPointer);
|
||||
|
||||
asQWORD retQW = 0;
|
||||
asQWORD retQW = 0;
|
||||
|
||||
asCScriptFunction *descr = engine->scriptFunctions[id];
|
||||
asCScriptFunction *descr = engine->scriptFunctions[id];
|
||||
|
||||
void *func = (void*)sysFunc->func;
|
||||
int paramSize = sysFunc->paramSize;
|
||||
asDWORD *args = context->regs.stackPointer;
|
||||
void *retPointer = 0;
|
||||
void *obj = 0;
|
||||
asDWORD *vftable;
|
||||
int popSize = paramSize;
|
||||
void *func = (void *)sysFunc->func;
|
||||
int paramSize = sysFunc->paramSize;
|
||||
asDWORD *args = context->regs.stackPointer;
|
||||
void *retPointer = 0;
|
||||
void *obj = 0;
|
||||
asDWORD *vftable;
|
||||
int popSize = paramSize;
|
||||
|
||||
context->regs.objectType = descr->returnType.GetObjectType();
|
||||
if( descr->returnType.IsObject() && !descr->returnType.IsReference() && !descr->returnType.IsObjectHandle() )
|
||||
{
|
||||
// Allocate the memory for the object
|
||||
retPointer = engine->CallAlloc(descr->returnType.GetObjectType());
|
||||
sh4Args[AS_SH4_MAX_ARGS+1] = (asDWORD) retPointer;
|
||||
context->regs.objectType = descr->returnType.GetObjectType();
|
||||
if (descr->returnType.IsObject() && !descr->returnType.IsReference() && !descr->returnType.IsObjectHandle()) {
|
||||
// Allocate the memory for the object
|
||||
retPointer = engine->CallAlloc(descr->returnType.GetObjectType());
|
||||
sh4Args[AS_SH4_MAX_ARGS + 1] = (asDWORD)retPointer;
|
||||
|
||||
if( sysFunc->hostReturnInMemory )
|
||||
{
|
||||
// The return is made in memory
|
||||
callConv++;
|
||||
}
|
||||
}
|
||||
if (sysFunc->hostReturnInMemory) {
|
||||
// The return is made in memory
|
||||
callConv++;
|
||||
}
|
||||
}
|
||||
|
||||
if( callConv >= ICC_THISCALL )
|
||||
{
|
||||
if( objectPointer )
|
||||
{
|
||||
obj = objectPointer;
|
||||
}
|
||||
else
|
||||
{
|
||||
// The object pointer should be popped from the context stack
|
||||
popSize++;
|
||||
if (callConv >= ICC_THISCALL) {
|
||||
if (objectPointer) {
|
||||
obj = objectPointer;
|
||||
} else {
|
||||
// The object pointer should be popped from the context stack
|
||||
popSize++;
|
||||
|
||||
// Check for null pointer
|
||||
obj = (void*)*(args + paramSize);
|
||||
if( obj == 0 )
|
||||
{
|
||||
context->SetInternalException(TXT_NULL_POINTER_ACCESS);
|
||||
if( retPointer )
|
||||
engine->CallFree(retPointer);
|
||||
return 0;
|
||||
}
|
||||
// Check for null pointer
|
||||
obj = (void *)*(args + paramSize);
|
||||
if (obj == 0) {
|
||||
context->SetInternalException(TXT_NULL_POINTER_ACCESS);
|
||||
if (retPointer)
|
||||
engine->CallFree(retPointer);
|
||||
return 0;
|
||||
}
|
||||
|
||||
// Add the base offset for multiple inheritance
|
||||
obj = (void*)(int(obj) + sysFunc->baseOffset);
|
||||
}
|
||||
}
|
||||
asASSERT(descr->parameterTypes.GetLength() <= 32);
|
||||
// Add the base offset for multiple inheritance
|
||||
obj = (void *)(int(obj) + sysFunc->baseOffset);
|
||||
}
|
||||
}
|
||||
asASSERT(descr->parameterTypes.GetLength() <= 32);
|
||||
|
||||
// mark all float arguments
|
||||
int argBit = 1;
|
||||
int hostFlags = 0;
|
||||
int intArgs = 0;
|
||||
for( int a = 0; a < descr->parameterTypes.GetLength(); a++ ) {
|
||||
if (descr->parameterTypes[a].IsFloatType()) {
|
||||
hostFlags |= argBit;
|
||||
} else intArgs++;
|
||||
argBit <<= 1;
|
||||
}
|
||||
// mark all float arguments
|
||||
int argBit = 1;
|
||||
int hostFlags = 0;
|
||||
int intArgs = 0;
|
||||
for (int a = 0; a < descr->parameterTypes.GetLength(); a++) {
|
||||
if (descr->parameterTypes[a].IsFloatType()) {
|
||||
hostFlags |= argBit;
|
||||
} else
|
||||
intArgs++;
|
||||
argBit <<= 1;
|
||||
}
|
||||
|
||||
asDWORD paramBuffer[64];
|
||||
if( sysFunc->takesObjByVal )
|
||||
{
|
||||
paramSize = 0;
|
||||
int spos = 0;
|
||||
int dpos = 1;
|
||||
for( int n = 0; n < descr->parameterTypes.GetLength(); n++ )
|
||||
{
|
||||
if( descr->parameterTypes[n].IsObject() && !descr->parameterTypes[n].IsObjectHandle() && !descr->parameterTypes[n].IsReference() )
|
||||
{
|
||||
asDWORD paramBuffer[64];
|
||||
if (sysFunc->takesObjByVal) {
|
||||
paramSize = 0;
|
||||
int spos = 0;
|
||||
int dpos = 1;
|
||||
for (int n = 0; n < descr->parameterTypes.GetLength(); n++) {
|
||||
if (descr->parameterTypes[n].IsObject() && !descr->parameterTypes[n].IsObjectHandle() &&
|
||||
!descr->parameterTypes[n].IsReference()) {
|
||||
#ifdef COMPLEX_OBJS_PASSED_BY_REF
|
||||
if( descr->parameterTypes[n].GetObjectType()->flags & COMPLEX_MASK )
|
||||
{
|
||||
paramBuffer[dpos++] = args[spos++];
|
||||
paramSize++;
|
||||
}
|
||||
else
|
||||
if (descr->parameterTypes[n].GetObjectType()->flags & COMPLEX_MASK) {
|
||||
paramBuffer[dpos++] = args[spos++];
|
||||
paramSize++;
|
||||
} else
|
||||
#endif
|
||||
{
|
||||
// Copy the object's memory to the buffer
|
||||
memcpy(¶mBuffer[dpos], *(void**)(args+spos), descr->parameterTypes[n].GetSizeInMemoryBytes());
|
||||
// Delete the original memory
|
||||
engine->CallFree(*(char**)(args+spos));
|
||||
spos++;
|
||||
dpos += descr->parameterTypes[n].GetSizeInMemoryDWords();
|
||||
paramSize += descr->parameterTypes[n].GetSizeInMemoryDWords();
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
// Copy the value directly
|
||||
paramBuffer[dpos++] = args[spos++];
|
||||
if( descr->parameterTypes[n].GetSizeOnStackDWords() > 1 )
|
||||
paramBuffer[dpos++] = args[spos++];
|
||||
paramSize += descr->parameterTypes[n].GetSizeOnStackDWords();
|
||||
}
|
||||
}
|
||||
// Keep a free location at the beginning
|
||||
args = ¶mBuffer[1];
|
||||
}
|
||||
{
|
||||
// Copy the object's memory to the buffer
|
||||
memcpy(¶mBuffer[dpos], *(void **)(args + spos), descr->parameterTypes[n].GetSizeInMemoryBytes());
|
||||
// Delete the original memory
|
||||
engine->CallFree(*(char **)(args + spos));
|
||||
spos++;
|
||||
dpos += descr->parameterTypes[n].GetSizeInMemoryDWords();
|
||||
paramSize += descr->parameterTypes[n].GetSizeInMemoryDWords();
|
||||
}
|
||||
} else {
|
||||
// Copy the value directly
|
||||
paramBuffer[dpos++] = args[spos++];
|
||||
if (descr->parameterTypes[n].GetSizeOnStackDWords() > 1)
|
||||
paramBuffer[dpos++] = args[spos++];
|
||||
paramSize += descr->parameterTypes[n].GetSizeOnStackDWords();
|
||||
}
|
||||
}
|
||||
// Keep a free location at the beginning
|
||||
args = ¶mBuffer[1];
|
||||
}
|
||||
|
||||
context->isCallingSystemFunction = true;
|
||||
switch( callConv )
|
||||
{
|
||||
case ICC_CDECL:
|
||||
case ICC_CDECL_RETURNINMEM:
|
||||
case ICC_STDCALL:
|
||||
case ICC_STDCALL_RETURNINMEM:
|
||||
retQW = CallCDeclFunction(args, paramSize<<2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
case ICC_THISCALL:
|
||||
case ICC_THISCALL_RETURNINMEM:
|
||||
retQW = CallThisCallFunction(obj, args, paramSize<<2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
case ICC_VIRTUAL_THISCALL:
|
||||
case ICC_VIRTUAL_THISCALL_RETURNINMEM:
|
||||
// Get virtual function table from the object pointer
|
||||
vftable = *(asDWORD**)obj;
|
||||
retQW = CallThisCallFunction(obj, args, paramSize<<2, vftable[asDWORD(func)>>2], hostFlags);
|
||||
break;
|
||||
case ICC_CDECL_OBJLAST:
|
||||
case ICC_CDECL_OBJLAST_RETURNINMEM:
|
||||
retQW = CallThisCallFunction_objLast(obj, args, paramSize<<2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
case ICC_CDECL_OBJFIRST:
|
||||
case ICC_CDECL_OBJFIRST_RETURNINMEM:
|
||||
retQW = CallThisCallFunction(obj, args, paramSize<<2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
default:
|
||||
context->SetInternalException(TXT_INVALID_CALLING_CONVENTION);
|
||||
}
|
||||
context->isCallingSystemFunction = false;
|
||||
context->isCallingSystemFunction = true;
|
||||
switch (callConv) {
|
||||
case ICC_CDECL:
|
||||
case ICC_CDECL_RETURNINMEM:
|
||||
case ICC_STDCALL:
|
||||
case ICC_STDCALL_RETURNINMEM:
|
||||
retQW = CallCDeclFunction(args, paramSize << 2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
case ICC_THISCALL:
|
||||
case ICC_THISCALL_RETURNINMEM:
|
||||
retQW = CallThisCallFunction(obj, args, paramSize << 2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
case ICC_VIRTUAL_THISCALL:
|
||||
case ICC_VIRTUAL_THISCALL_RETURNINMEM:
|
||||
// Get virtual function table from the object pointer
|
||||
vftable = *(asDWORD **)obj;
|
||||
retQW = CallThisCallFunction(obj, args, paramSize << 2, vftable[asDWORD(func) >> 2], hostFlags);
|
||||
break;
|
||||
case ICC_CDECL_OBJLAST:
|
||||
case ICC_CDECL_OBJLAST_RETURNINMEM:
|
||||
retQW = CallThisCallFunction_objLast(obj, args, paramSize << 2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
case ICC_CDECL_OBJFIRST:
|
||||
case ICC_CDECL_OBJFIRST_RETURNINMEM:
|
||||
retQW = CallThisCallFunction(obj, args, paramSize << 2, (asDWORD)func, hostFlags);
|
||||
break;
|
||||
default:
|
||||
context->SetInternalException(TXT_INVALID_CALLING_CONVENTION);
|
||||
}
|
||||
context->isCallingSystemFunction = false;
|
||||
|
||||
#ifdef COMPLEX_OBJS_PASSED_BY_REF
|
||||
if( sysFunc->takesObjByVal )
|
||||
{
|
||||
// Need to free the complex objects passed by value
|
||||
args = context->regs.stackPointer;
|
||||
if( callConv >= ICC_THISCALL && !objectPointer )
|
||||
args++;
|
||||
if (sysFunc->takesObjByVal) {
|
||||
// Need to free the complex objects passed by value
|
||||
args = context->regs.stackPointer;
|
||||
if (callConv >= ICC_THISCALL && !objectPointer)
|
||||
args++;
|
||||
|
||||
int spos = 0;
|
||||
for( int n = 0; n < descr->parameterTypes.GetLength(); n++ )
|
||||
{
|
||||
if( descr->parameterTypes[n].IsObject() &&
|
||||
!descr->parameterTypes[n].IsReference() &&
|
||||
(descr->parameterTypes[n].GetObjectType()->flags & COMPLEX_MASK) )
|
||||
{
|
||||
void *obj = (void*)args[spos++];
|
||||
asSTypeBehaviour *beh = &descr->parameterTypes[n].GetObjectType()->beh;
|
||||
if( beh->destruct )
|
||||
engine->CallObjectMethod(obj, beh->destruct);
|
||||
int spos = 0;
|
||||
for (int n = 0; n < descr->parameterTypes.GetLength(); n++) {
|
||||
if (descr->parameterTypes[n].IsObject() && !descr->parameterTypes[n].IsReference() &&
|
||||
(descr->parameterTypes[n].GetObjectType()->flags & COMPLEX_MASK)) {
|
||||
void *obj = (void *)args[spos++];
|
||||
asSTypeBehaviour *beh = &descr->parameterTypes[n].GetObjectType()->beh;
|
||||
if (beh->destruct)
|
||||
engine->CallObjectMethod(obj, beh->destruct);
|
||||
|
||||
engine->CallFree(obj);
|
||||
}
|
||||
else
|
||||
spos += descr->parameterTypes[n].GetSizeInMemoryDWords();
|
||||
}
|
||||
}
|
||||
engine->CallFree(obj);
|
||||
} else
|
||||
spos += descr->parameterTypes[n].GetSizeInMemoryDWords();
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
// Store the returned value in our stack
|
||||
if( descr->returnType.IsObject() && !descr->returnType.IsReference() )
|
||||
{
|
||||
if( descr->returnType.IsObjectHandle() )
|
||||
{
|
||||
context->regs.objectRegister = (void*)(asDWORD)retQW;
|
||||
// Store the returned value in our stack
|
||||
if (descr->returnType.IsObject() && !descr->returnType.IsReference()) {
|
||||
if (descr->returnType.IsObjectHandle()) {
|
||||
context->regs.objectRegister = (void *)(asDWORD)retQW;
|
||||
|
||||
if( sysFunc->returnAutoHandle && context->regs.objectRegister )
|
||||
engine->CallObjectMethod(context->regs.objectRegister, descr->returnType.GetObjectType()->beh.addref);
|
||||
}
|
||||
else
|
||||
{
|
||||
if( !sysFunc->hostReturnInMemory )
|
||||
{
|
||||
// Copy the returned value to the pointer sent by the script engine
|
||||
if( sysFunc->hostReturnSize == 1 )
|
||||
*(asDWORD*)retPointer = (asDWORD)retQW;
|
||||
else
|
||||
*(asQWORD*)retPointer = retQW;
|
||||
}
|
||||
if (sysFunc->returnAutoHandle && context->regs.objectRegister)
|
||||
engine->CallObjectMethod(context->regs.objectRegister, descr->returnType.GetObjectType()->beh.addref);
|
||||
} else {
|
||||
if (!sysFunc->hostReturnInMemory) {
|
||||
// Copy the returned value to the pointer sent by the script engine
|
||||
if (sysFunc->hostReturnSize == 1)
|
||||
*(asDWORD *)retPointer = (asDWORD)retQW;
|
||||
else
|
||||
*(asQWORD *)retPointer = retQW;
|
||||
}
|
||||
|
||||
// Store the object in the register
|
||||
context->regs.objectRegister = retPointer;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
// Store value in valueRegister
|
||||
if( sysFunc->hostReturnFloat )
|
||||
{
|
||||
if( sysFunc->hostReturnSize == 1 )
|
||||
*(asDWORD*)&context->regs.valueRegister = GetReturnedFloat();
|
||||
else
|
||||
context->regs.valueRegister = GetReturnedDouble();
|
||||
}
|
||||
else if( sysFunc->hostReturnSize == 1 )
|
||||
*(asDWORD*)&context->regs.valueRegister = (asDWORD)retQW;
|
||||
else
|
||||
context->regs.valueRegister = retQW;
|
||||
}
|
||||
// Store the object in the register
|
||||
context->regs.objectRegister = retPointer;
|
||||
}
|
||||
} else {
|
||||
// Store value in valueRegister
|
||||
if (sysFunc->hostReturnFloat) {
|
||||
if (sysFunc->hostReturnSize == 1)
|
||||
*(asDWORD *)&context->regs.valueRegister = GetReturnedFloat();
|
||||
else
|
||||
context->regs.valueRegister = GetReturnedDouble();
|
||||
} else if (sysFunc->hostReturnSize == 1)
|
||||
*(asDWORD *)&context->regs.valueRegister = (asDWORD)retQW;
|
||||
else
|
||||
context->regs.valueRegister = retQW;
|
||||
}
|
||||
|
||||
if( sysFunc->hasAutoHandles )
|
||||
{
|
||||
args = context->regs.stackPointer;
|
||||
if( callConv >= ICC_THISCALL && !objectPointer )
|
||||
args++;
|
||||
if (sysFunc->hasAutoHandles) {
|
||||
args = context->regs.stackPointer;
|
||||
if (callConv >= ICC_THISCALL && !objectPointer)
|
||||
args++;
|
||||
|
||||
int spos = 0;
|
||||
for( int n = 0; n < descr->parameterTypes.GetLength(); n++ )
|
||||
{
|
||||
if( sysFunc->paramAutoHandles[n] && args[spos] )
|
||||
{
|
||||
// Call the release method on the type
|
||||
engine->CallObjectMethod((void*)args[spos], descr->parameterTypes[n].GetObjectType()->beh.release);
|
||||
args[spos] = 0;
|
||||
}
|
||||
int spos = 0;
|
||||
for (int n = 0; n < descr->parameterTypes.GetLength(); n++) {
|
||||
if (sysFunc->paramAutoHandles[n] && args[spos]) {
|
||||
// Call the release method on the type
|
||||
engine->CallObjectMethod((void *)args[spos], descr->parameterTypes[n].GetObjectType()->beh.release);
|
||||
args[spos] = 0;
|
||||
}
|
||||
|
||||
if( descr->parameterTypes[n].IsObject() && !descr->parameterTypes[n].IsObjectHandle() && !descr->parameterTypes[n].IsReference() )
|
||||
spos++;
|
||||
else
|
||||
spos += descr->parameterTypes[n].GetSizeOnStackDWords();
|
||||
}
|
||||
}
|
||||
if (descr->parameterTypes[n].IsObject() && !descr->parameterTypes[n].IsObjectHandle() &&
|
||||
!descr->parameterTypes[n].IsReference())
|
||||
spos++;
|
||||
else
|
||||
spos += descr->parameterTypes[n].GetSizeOnStackDWords();
|
||||
}
|
||||
}
|
||||
|
||||
return popSize;
|
||||
return popSize;
|
||||
}
|
||||
|
||||
END_AS_NAMESPACE
|
||||
|
||||
#endif // AS_SH4
|
||||
#endif // AS_MAX_PORTABILITY
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user