winamp/Src/ns-eel2/glue_x86.h
2024-09-24 14:54:57 +02:00

525 lines
15 KiB
C

#ifndef _NSEEL_GLUE_X86_H_
#define _NSEEL_GLUE_X86_H_
#include <intrin.h>
#define GLUE_MAX_FPSTACK_SIZE 8
// endOfInstruction is end of jump with relative offset, offset is offset from end of instruction to jump to
#define GLUE_JMP_SET_OFFSET(endOfInstruction,offset) (((int *)(endOfInstruction))[-1] = (offset))
static const unsigned char GLUE_JMP_NC[] = { 0xE9, 0,0,0,0, }; // jmp<offset>
static const unsigned char GLUE_JMP_IF_P1_Z[] = {0x85, 0xC0, 0x0F, 0x84, 0,0,0,0 }; // test eax, eax, jz
static const unsigned char GLUE_JMP_IF_P1_NZ[] = {0x85, 0xC0, 0x0F, 0x85, 0,0,0,0 }; // test eax, eax, jnz
#define GLUE_FUNC_ENTER_SIZE 0
#define GLUE_FUNC_LEAVE_SIZE 0
const static unsigned int GLUE_FUNC_ENTER[1];
const static unsigned int GLUE_FUNC_LEAVE[1];
// x86
// stack is 16 byte aligned
// when pushing values to stack, alignment pushed first, then value (value is at the lower address)
// when pushing pointers to stack, alignment pushed first, then pointer (pointer is at the lower address)
static const unsigned char GLUE_PUSH_P1PTR_AS_VALUE[] =
{
0x83, 0xEC, 8, /* sub esp, 8 */
0xff, 0x70, 0x4, /* push dword [eax+4] */
0xff, 0x30, /* push dword [eax] */
};
static int GLUE_POP_VALUE_TO_ADDR(unsigned char *buf, void *destptr)
{
if (buf)
{
*buf++ = 0xB8; *(void **) buf = destptr; buf+=4; // mov eax, directvalue
*buf++ = 0x8f; *buf++ = 0x00; // pop dword [eax]
*buf++ = 0x8f; *buf++ = 0x40; *buf++ = 4; // pop dword [eax+4]
*buf++ = 0x59; // pop ecx (alignment)
*buf++ = 0x59; // pop ecx (alignment)
}
return 12;
}
static int GLUE_COPY_VALUE_AT_P1_TO_PTR(unsigned char *buf, void *destptr)
{
if (buf)
{
*buf++ = 0x8B; *buf++ = 0x38; // mov edi, [eax]
*buf++ = 0x8B; *buf++ = 0x48; *buf++ = 0x04; // mov ecx, [eax+4]
*buf++ = 0xB8; *(void **) buf = destptr; buf+=4; // mov eax, directvalue
*buf++ = 0x89; *buf++ = 0x38; // mov [eax], edi
*buf++ = 0x89; *buf++ = 0x48; *buf++ = 0x04; // mov [eax+4], ecx
}
return 2 + 3 + 5 + 2 + 3;
}
static int GLUE_POP_FPSTACK_TO_PTR(unsigned char *buf, void *destptr)
{
if (buf)
{
*buf++ = 0xB8; *(void **) buf = destptr; buf+=4; // mov eax, directvalue
*buf++ = 0xDD; *buf++ = 0x18; // fstp qword [eax]
}
return 1+4+2;
}
#define GLUE_MOV_PX_DIRECTVALUE_SIZE 5
#define GLUE_MOV_PX_DIRECTVALUE_TOSTACK_SIZE 6 // length when wv == -1
static void GLUE_MOV_PX_DIRECTVALUE_GEN(void *b, INT_PTR v, int wv)
{
if (wv==-1)
{
const static unsigned char t[2] = {0xDD, 0x05};
memcpy(b,t,2);
b= ((unsigned char *)b)+2;
}
else
{
const static unsigned char tab[3] = {
0xB8 /* mov eax, dv*/,
0xBF /* mov edi, dv */ ,
0xB9 /* mov ecx, dv */
};
*((unsigned char *)b) = tab[wv]; // mov eax, dv
b= ((unsigned char *)b)+1;
}
*(INT_PTR *)b = v;
}
const static unsigned char GLUE_PUSH_P1[4]={0x83, 0xEC, 12, 0x50}; // sub esp, 12, push eax
#define GLUE_STORE_P1_TO_STACK_AT_OFFS_SIZE(x) 7
static void GLUE_STORE_P1_TO_STACK_AT_OFFS(void *b, int offs)
{
((unsigned char *)b)[0] = 0x89; // mov [esp+offs], eax
((unsigned char *)b)[1] = 0x84;
((unsigned char *)b)[2] = 0x24;
*(int *)((unsigned char *)b+3) = offs;
}
#define GLUE_MOVE_PX_STACKPTR_SIZE 2
static void GLUE_MOVE_PX_STACKPTR_GEN(void *b, int wv)
{
static const unsigned char tab[3][GLUE_MOVE_PX_STACKPTR_SIZE]=
{
{ 0x89, 0xe0 }, // mov eax, esp
{ 0x89, 0xe7 }, // mov edi, esp
{ 0x89, 0xe1 }, // mov ecx, esp
};
memcpy(b,tab[wv],GLUE_MOVE_PX_STACKPTR_SIZE);
}
#define GLUE_MOVE_STACK_SIZE 6
static void GLUE_MOVE_STACK(void *b, int amt)
{
((unsigned char *)b)[0] = 0x81;
if (amt <0)
{
((unsigned char *)b)[1] = 0xEC;
*(int *)((char*)b+2) = -amt; // sub esp, -amt
}
else
{
((unsigned char *)b)[1] = 0xc4;
*(int *)((char*)b+2) = amt; // add esp, amt
}
}
#define GLUE_POP_PX_SIZE 4
static void GLUE_POP_PX(void *b, int wv)
{
static const unsigned char tab[3][GLUE_POP_PX_SIZE]=
{
{0x58,/*pop eax*/ 0x83, 0xC4, 12 /* add esp, 12*/},
{0x5F,/*pop edi*/ 0x83, 0xC4, 12},
{0x59,/*pop ecx*/ 0x83, 0xC4, 12},
};
memcpy(b,tab[wv],GLUE_POP_PX_SIZE);
}
#define GLUE_SET_PX_FROM_P1_SIZE 2
static void GLUE_SET_PX_FROM_P1(void *b, int wv)
{
static const unsigned char tab[3][GLUE_SET_PX_FROM_P1_SIZE]={
{0x90,0x90}, // should never be used! (nopnop)
{0x89,0xC7}, // mov edi, eax
{0x89,0xC1}, // mov ecx, eax
};
memcpy(b,tab[wv],GLUE_SET_PX_FROM_P1_SIZE);
}
#define GLUE_POP_FPSTACK_SIZE 2
static const unsigned char GLUE_POP_FPSTACK[2] = { 0xDD, 0xD8 }; // fstp st0
static const unsigned char GLUE_POP_FPSTACK_TOSTACK[] = {
0x83, 0xEC, 16, // sub esp, 16
0xDD, 0x1C, 0x24 // fstp qword (%esp)
};
static const unsigned char GLUE_POP_STACK_TO_FPSTACK[] = {
0xDD, 0x04, 0x24, // fld qword (%esp)
0x83, 0xC4, 16 // add esp, 16
};
static const unsigned char GLUE_POP_FPSTACK_TO_WTP[] = {
0xDD, 0x1E, /* fstp qword [esi] */
0x83, 0xC6, 8, /* add esi, 8 */
};
#define GLUE_SET_PX_FROM_WTP_SIZE 2
static void GLUE_SET_PX_FROM_WTP(void *b, int wv)
{
static const unsigned char tab[3][GLUE_SET_PX_FROM_WTP_SIZE]={
{0x89,0xF0}, // mov eax, esi
{0x89,0xF7}, // mov edi, esi
{0x89,0xF1}, // mov ecx, esi
};
memcpy(b,tab[wv],GLUE_SET_PX_FROM_WTP_SIZE);
}
#define GLUE_PUSH_VAL_AT_PX_TO_FPSTACK_SIZE 2
static void GLUE_PUSH_VAL_AT_PX_TO_FPSTACK(void *b, int wv)
{
static const unsigned char tab[3][GLUE_PUSH_VAL_AT_PX_TO_FPSTACK_SIZE]={
{0xDD,0x00}, // fld qword [eax]
{0xDD,0x07}, // fld qword [edi]
{0xDD,0x01}, // fld qword [ecx]
};
memcpy(b,tab[wv],GLUE_PUSH_VAL_AT_PX_TO_FPSTACK_SIZE);
}
#define GLUE_POP_FPSTACK_TO_WTP_TO_PX_SIZE (GLUE_SET_PX_FROM_WTP_SIZE + sizeof(GLUE_POP_FPSTACK_TO_WTP))
static void GLUE_POP_FPSTACK_TO_WTP_TO_PX(unsigned char *buf, int wv)
{
GLUE_SET_PX_FROM_WTP(buf,wv);
memcpy(buf + GLUE_SET_PX_FROM_WTP_SIZE,GLUE_POP_FPSTACK_TO_WTP,sizeof(GLUE_POP_FPSTACK_TO_WTP));
};
const static unsigned char GLUE_RET=0xC3;
static int GLUE_RESET_WTP(unsigned char *out, void *ptr)
{
if (out)
{
*out++ = 0xBE; // mov esi, constant
memcpy(out,&ptr,sizeof(void *));
out+=sizeof(void *);
}
return 1+sizeof(void *);
}
#ifdef _MSC_VER
#pragma warning(push)
#pragma warning(disable: 4731)
#endif
#define GLUE_TABPTR_IGNORED
#define GLUE_CALL_CODE(bp, cp, rt) do { \
if (h->compile_flags&NSEEL_CODE_COMPILE_FLAG_NOFPSTATE) eel_callcode32_fast(cp, rt); \
else eel_callcode32(cp, rt);\
} while(0)
static void eel_callcode32(INT_PTR cp, INT_PTR ramptr)
{
#ifndef NSEEL_EEL1_COMPAT_MODE
short oldsw, newsw;
#endif
#ifdef _MSC_VER
__asm
{
#ifndef NSEEL_EEL1_COMPAT_MODE
fnstcw [oldsw]
mov ax, [oldsw]
or ax, 0xE3F // 53 or 64 bit precision (depending on whether 0x100 is set), trunc, and masking all exceptions
mov [newsw], ax
fldcw [newsw]
#endif
mov eax, cp
mov ebx, ramptr
pushad
mov ebp, esp
and esp, -16
// on win32, which _MSC_VER implies, we keep things aligned to 16 bytes, and if we call a win32 function,
// the stack is 16 byte aligned before the call, meaning that if calling a function with no frame pointer,
// the stack would be aligned to a 16 byte boundary +4, which isn't good for performance. Having said that,
// normally we compile with frame pointers (which brings that to 16 byte + 8, which is fine), or ICC, which
// for nontrivial functions will align the stack itself (for very short functions, it appears to weigh the
// cost of aligning the stack vs that of the slower misaligned double accesses).
// it may be worthwhile (at some point) to put some logic in the code that calls out to functions
// (generic1parm etc) to detect which alignment would be most optimal.
sub esp, 12
call eax
mov esp, ebp
popad
#ifndef NSEEL_EEL1_COMPAT_MODE
fldcw [oldsw]
#endif
};
#else // gcc x86
__asm__(
#ifndef NSEEL_EEL1_COMPAT_MODE
"fnstcw %2\n"
"movw %2, %%ax\n"
"orw $0xE3F, %%ax\n" // 53 or 64 bit precision (depending on whether 0x100 is set), trunc, and masking all exceptions
"movw %%ax, %3\n"
"fldcw %3\n"
#endif
"pushl %%ebx\n"
"movl %%ecx, %%ebx\n"
"pushl %%ebp\n"
"movl %%esp, %%ebp\n"
"andl $-16, %%esp\n" // align stack to 16 bytes
"subl $12, %%esp\n" // call will push 4 bytes on stack, align for that
"call *%%edx\n"
"leave\n"
"popl %%ebx\n"
#ifndef NSEEL_EEL1_COMPAT_MODE
"fldcw %2\n"
#endif
::
"d" (cp), "c" (ramptr)
#ifndef NSEEL_EEL1_COMPAT_MODE
, "m" (oldsw), "m" (newsw)
#endif
: "%eax","%esi","%edi");
#endif //gcc x86
}
void eel_enterfp(int s[2])
{
#ifdef _MSC_VER
__asm
{
mov ecx, s
fnstcw [ecx]
mov ax, [ecx]
or ax, 0xE3F // 53 or 64 bit precision (depending on whether 0x100 is set), trunc, and masking all exceptions
mov [ecx+4], ax
fldcw [ecx+4]
};
#else
__asm__(
"fnstcw (%%ecx)\n"
"movw (%%ecx), %%ax\n"
"orw $0xE3F, %%ax\n" // 53 or 64 bit precision (depending on whether 0x100 is set), trunc, and masking all exceptions
"movw %%ax, 4(%%ecx)\n"
"fldcw 4(%%ecx)\n"
:: "c" (s) : "%eax");
#endif
}
void eel_leavefp(int s[2])
{
#ifdef _MSC_VER
__asm
{
mov ecx, s
fldcw [ecx]
};
#else
__asm__(
"fldcw (%%ecx)\n"
:: "c" (s) : "%eax");
#endif
}
static void eel_callcode32_fast(INT_PTR cp, INT_PTR ramptr)
{
#ifdef _MSC_VER
__asm
{
mov eax, cp
mov ebx, ramptr
pushad
mov ebp, esp
and esp, -16
// on win32, which _MSC_VER implies, we keep things aligned to 16 bytes, and if we call a win32 function,
// the stack is 16 byte aligned before the call, meaning that if calling a function with no frame pointer,
// the stack would be aligned to a 16 byte boundary +4, which isn't good for performance. Having said that,
// normally we compile with frame pointers (which brings that to 16 byte + 8, which is fine), or ICC, which
// for nontrivial functions will align the stack itself (for very short functions, it appears to weigh the
// cost of aligning the stack vs that of the slower misaligned double accesses).
// it may be worthwhile (at some point) to put some logic in the code that calls out to functions
// (generic1parm etc) to detect which alignment would be most optimal.
sub esp, 12
call eax
mov esp, ebp
popad
};
#else // gcc x86
__asm__(
"pushl %%ebx\n"
"movl %%ecx, %%ebx\n"
"pushl %%ebp\n"
"movl %%esp, %%ebp\n"
"andl $-16, %%esp\n" // align stack to 16 bytes
"subl $12, %%esp\n" // call will push 4 bytes on stack, align for that
"call *%%edx\n"
"leave\n"
"popl %%ebx\n"
::
"d" (cp), "c" (ramptr)
: "%eax","%esi","%edi");
#endif //gcc x86
}
#ifdef _MSC_VER
#pragma warning(pop)
#endif
static unsigned char *EEL_GLUE_set_immediate(void *_p, INT_PTR newv)
{
char *p=(char*)_p;
INT_PTR scan = 0xFEFEFEFE;
while (*(INT_PTR *)p != scan) p++;
*(INT_PTR *)p = newv;
return (unsigned char *) (((INT_PTR*)p)+1);
}
#define INT_TO_LECHARS(x) ((x)&0xff),(((x)>>8)&0xff), (((x)>>16)&0xff), (((x)>>24)&0xff)
#define GLUE_INLINE_LOOPS
static const unsigned char GLUE_LOOP_LOADCNT[]={
0xDB, 0x1E, //fistp dword [esi]
0x8B, 0x0E, // mov ecx, [esi]
0x81, 0xf9, 1,0,0,0, // cmp ecx, 1
0x0F, 0x8C, 0,0,0,0, // JL <skipptr>
};
#if NSEEL_LOOPFUNC_SUPPORT_MAXLEN > 0
#define GLUE_LOOP_CLAMPCNT_SIZE sizeof(GLUE_LOOP_CLAMPCNT)
static const unsigned char GLUE_LOOP_CLAMPCNT[]={
0x81, 0xf9, INT_TO_LECHARS(NSEEL_LOOPFUNC_SUPPORT_MAXLEN), // cmp ecx, NSEEL_LOOPFUNC_SUPPORT_MAXLEN
0x0F, 0x8C, 5,0,0,0, // JL over-the-mov
0xB9, INT_TO_LECHARS(NSEEL_LOOPFUNC_SUPPORT_MAXLEN), // mov ecx, NSEEL_LOOPFUNC_SUPPORT_MAXLEN
};
#else
#define GLUE_LOOP_CLAMPCNT_SIZE 0
#define GLUE_LOOP_CLAMPCNT ""
#endif
#define GLUE_LOOP_BEGIN_SIZE sizeof(GLUE_LOOP_BEGIN)
static const unsigned char GLUE_LOOP_BEGIN[]={
0x56, //push esi
0x51, // push ecx
0x81, 0xEC, 0x08, 0,0,0, // sub esp, 8
};
static const unsigned char GLUE_LOOP_END[]={
0x81, 0xC4, 0x08, 0,0,0, // add esp, 8
0x59, //pop ecx
0x5E, // pop esi
0x49, // dec ecx
0x0f, 0x85, 0,0,0,0, // jnz ...
};
#if NSEEL_LOOPFUNC_SUPPORT_MAXLEN > 0
#define GLUE_WHILE_SETUP_SIZE sizeof(GLUE_WHILE_SETUP)
static const unsigned char GLUE_WHILE_SETUP[]={
0xB9, INT_TO_LECHARS(NSEEL_LOOPFUNC_SUPPORT_MAXLEN), // mov ecx, NSEEL_LOOPFUNC_SUPPORT_MAXLEN
};
static const unsigned char GLUE_WHILE_BEGIN[]={
0x56, //push esi
0x51, // push ecx
0x81, 0xEC, 0x08, 0,0,0, // sub esp, 8
};
static const unsigned char GLUE_WHILE_END[]={
0x81, 0xC4, 0x08, 0,0,0, // add esp, 8
0x59, //pop ecx
0x5E, // pop esi
0x49, // dec ecx
0x0f, 0x84, 0,0,0,0, // jz endpt
};
#else
#define GLUE_WHILE_SETUP_SIZE 0
#define GLUE_WHILE_SETUP ""
#define GLUE_WHILE_END_NOJUMP
static const unsigned char GLUE_WHILE_BEGIN[]={
0x56, //push esi
0x81, 0xEC, 12, 0,0,0, // sub esp, 12
};
static const unsigned char GLUE_WHILE_END[]={
0x81, 0xC4, 12, 0,0,0, // add esp, 12
0x5E, // pop esi
};
#endif
static const unsigned char GLUE_WHILE_CHECK_RV[] = {
0x85, 0xC0, // test eax, eax
0x0F, 0x85, 0,0,0,0 // jnz looppt
};
static const unsigned char GLUE_SET_P1_Z[] = { 0x29, 0xC0 }; // sub eax, eax
static const unsigned char GLUE_SET_P1_NZ[] = { 0xb0, 0x01 }; // mov al, 1
#define GLUE_HAS_FXCH
static const unsigned char GLUE_FXCH[] = {0xd9, 0xc9};
#define GLUE_HAS_FLDZ
static const unsigned char GLUE_FLDZ[] = {0xd9, 0xee};
#define GLUE_HAS_FLD1
static const unsigned char GLUE_FLD1[] = {0xd9, 0xe8};
static EEL_F negativezeropointfive=-0.5f;
static EEL_F onepointfive=1.5f;
#define GLUE_INVSQRT_NEEDREPL &negativezeropointfive, &onepointfive,
#define GLUE_HAS_NATIVE_TRIGSQRTLOG
static void *GLUE_realAddress(void *fn, void *fn_e, int *size)
{
static const unsigned char sig[12] = { 0x89, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90 };
unsigned char *p = (unsigned char *)fn;
#if defined(_DEBUG) && defined(_MSC_VER)
if (*p == 0xE9) // this means jump to the following address (debug stub)
{
p += 5 + *(int *)(p+1);
}
#endif
while (memcmp(p,sig,sizeof(sig))) p++;
p+=sizeof(sig);
fn = p;
while (memcmp(p,sig,sizeof(sig))) p++;
*size = p - (unsigned char *)fn;
return fn;
}
#endif