mirror of https://github.com/ZDoom/gzdoom-gles.git
352 lines
7.2 KiB
C
352 lines
7.2 KiB
C
// "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman
|
|
// Ken Silverman's official web site: "http://www.advsys.net/ken"
|
|
// See the included license file "BUILDLIC.TXT" for license info.
|
|
//
|
|
// This file is based on pragmas.h from Ken Silverman's original Build
|
|
// source code release but is meant for use with Visual C++ instead of
|
|
// Watcom C.
|
|
//
|
|
// Some of the inline assembly has been turned into C code, because VC++
|
|
// is smart enough to produce code at least as good as Ken's inlines.
|
|
// The more used functions are still inline assembly, because they do
|
|
// things that can't really be done in C. (I consider this a bad thing,
|
|
// because VC++ has considerably poorer support for inline assembly than
|
|
// Watcom, so it's better to rely on its C optimizer to produce fast code.)
|
|
//
|
|
|
|
|
|
#include <string.h>
|
|
#include <stddef.h>
|
|
|
|
#pragma warning (disable: 4035)
|
|
|
|
__forceinline SDWORD Scale (SDWORD a, SDWORD b, SDWORD c)
|
|
{
|
|
__asm mov eax,a
|
|
__asm imul b
|
|
__asm idiv c
|
|
}
|
|
|
|
__forceinline SDWORD MulScale (SDWORD a, SDWORD b, SDWORD c)
|
|
{
|
|
__asm mov eax,a
|
|
__asm mov ecx,c
|
|
__asm imul b
|
|
__asm shrd eax,edx,cl
|
|
}
|
|
|
|
#define MAKECONSTMulScale(s) \
|
|
__forceinline SDWORD MulScale##s (SDWORD a, SDWORD b) \
|
|
{ \
|
|
__asm mov eax,a \
|
|
__asm imul b \
|
|
__asm shrd eax,edx,s \
|
|
}
|
|
MAKECONSTMulScale(1)
|
|
MAKECONSTMulScale(2)
|
|
MAKECONSTMulScale(3)
|
|
MAKECONSTMulScale(4)
|
|
MAKECONSTMulScale(5)
|
|
MAKECONSTMulScale(6)
|
|
MAKECONSTMulScale(7)
|
|
MAKECONSTMulScale(8)
|
|
MAKECONSTMulScale(9)
|
|
MAKECONSTMulScale(10)
|
|
MAKECONSTMulScale(11)
|
|
MAKECONSTMulScale(12)
|
|
MAKECONSTMulScale(13)
|
|
MAKECONSTMulScale(14)
|
|
MAKECONSTMulScale(15)
|
|
MAKECONSTMulScale(16)
|
|
MAKECONSTMulScale(17)
|
|
MAKECONSTMulScale(18)
|
|
MAKECONSTMulScale(19)
|
|
MAKECONSTMulScale(20)
|
|
MAKECONSTMulScale(21)
|
|
MAKECONSTMulScale(22)
|
|
MAKECONSTMulScale(23)
|
|
MAKECONSTMulScale(24)
|
|
MAKECONSTMulScale(25)
|
|
MAKECONSTMulScale(26)
|
|
MAKECONSTMulScale(27)
|
|
MAKECONSTMulScale(28)
|
|
MAKECONSTMulScale(29)
|
|
MAKECONSTMulScale(30)
|
|
MAKECONSTMulScale(31)
|
|
#undef MAKECONSTMulScale
|
|
|
|
__forceinline SDWORD MulScale32 (SDWORD a, SDWORD b)
|
|
{
|
|
__asm mov eax,a
|
|
__asm imul b
|
|
__asm mov eax,edx
|
|
}
|
|
|
|
__forceinline DWORD UMulScale16(DWORD a, DWORD b)
|
|
{
|
|
__asm mov eax,a
|
|
__asm mul b
|
|
__asm shrd eax,edx,16
|
|
}
|
|
|
|
__forceinline SDWORD DMulScale (SDWORD a, SDWORD b, SDWORD c, SDWORD d, SDWORD s)
|
|
{
|
|
__asm mov eax,a
|
|
__asm imul b
|
|
__asm mov ebx,eax
|
|
__asm mov eax,c
|
|
__asm mov esi,edx
|
|
__asm mov ecx,s
|
|
__asm imul d
|
|
__asm add eax,ebx
|
|
__asm adc edx,esi
|
|
__asm shrd eax,edx,cl
|
|
}
|
|
|
|
#define MAKECONSTDMulScale(s) \
|
|
__forceinline SDWORD DMulScale##s (SDWORD a, SDWORD b, SDWORD c, SDWORD d) \
|
|
{ \
|
|
__asm mov eax,a \
|
|
__asm imul b \
|
|
__asm mov ebx,eax \
|
|
__asm mov eax,c \
|
|
__asm mov esi,edx \
|
|
__asm imul d \
|
|
__asm add eax,ebx \
|
|
__asm adc edx,esi \
|
|
__asm shrd eax,edx,s \
|
|
}
|
|
|
|
MAKECONSTDMulScale(1)
|
|
MAKECONSTDMulScale(2)
|
|
MAKECONSTDMulScale(3)
|
|
MAKECONSTDMulScale(4)
|
|
MAKECONSTDMulScale(5)
|
|
MAKECONSTDMulScale(6)
|
|
MAKECONSTDMulScale(7)
|
|
MAKECONSTDMulScale(8)
|
|
MAKECONSTDMulScale(9)
|
|
MAKECONSTDMulScale(10)
|
|
MAKECONSTDMulScale(11)
|
|
MAKECONSTDMulScale(12)
|
|
MAKECONSTDMulScale(13)
|
|
MAKECONSTDMulScale(14)
|
|
MAKECONSTDMulScale(15)
|
|
MAKECONSTDMulScale(16)
|
|
MAKECONSTDMulScale(17)
|
|
MAKECONSTDMulScale(18)
|
|
MAKECONSTDMulScale(19)
|
|
MAKECONSTDMulScale(20)
|
|
MAKECONSTDMulScale(21)
|
|
MAKECONSTDMulScale(22)
|
|
MAKECONSTDMulScale(23)
|
|
MAKECONSTDMulScale(24)
|
|
MAKECONSTDMulScale(25)
|
|
MAKECONSTDMulScale(26)
|
|
MAKECONSTDMulScale(27)
|
|
MAKECONSTDMulScale(28)
|
|
MAKECONSTDMulScale(29)
|
|
MAKECONSTDMulScale(30)
|
|
MAKECONSTDMulScale(31)
|
|
#undef MAKCONSTDMulScale
|
|
|
|
__forceinline SDWORD DMulScale32 (SDWORD a, SDWORD b, SDWORD c, SDWORD d)
|
|
{
|
|
__asm mov eax,a
|
|
__asm imul b
|
|
__asm mov ebx,eax
|
|
__asm mov eax,c
|
|
__asm mov esi,edx
|
|
__asm imul d
|
|
__asm add eax,ebx
|
|
__asm adc edx,esi
|
|
__asm mov eax,edx
|
|
}
|
|
|
|
#define MAKECONSTTMulScale(s) \
|
|
__forceinline SDWORD TMulScale##s (SDWORD a, SDWORD b, SDWORD c, SDWORD d, SDWORD e, SDWORD f) \
|
|
{ \
|
|
__asm mov eax,a \
|
|
__asm imul b \
|
|
__asm mov ebx,eax \
|
|
__asm mov eax,d \
|
|
__asm mov ecx,edx \
|
|
__asm imul c \
|
|
__asm add ebx,eax \
|
|
__asm mov eax,e \
|
|
__asm adc ecx,edx \
|
|
__asm imul f \
|
|
__asm add eax,ebx \
|
|
__asm adc edx,ecx \
|
|
__asm shrd eax,edx,s \
|
|
}
|
|
|
|
MAKECONSTTMulScale(1)
|
|
MAKECONSTTMulScale(2)
|
|
MAKECONSTTMulScale(3)
|
|
MAKECONSTTMulScale(4)
|
|
MAKECONSTTMulScale(5)
|
|
MAKECONSTTMulScale(6)
|
|
MAKECONSTTMulScale(7)
|
|
MAKECONSTTMulScale(8)
|
|
MAKECONSTTMulScale(9)
|
|
MAKECONSTTMulScale(10)
|
|
MAKECONSTTMulScale(11)
|
|
MAKECONSTTMulScale(12)
|
|
MAKECONSTTMulScale(13)
|
|
MAKECONSTTMulScale(14)
|
|
MAKECONSTTMulScale(15)
|
|
MAKECONSTTMulScale(16)
|
|
MAKECONSTTMulScale(17)
|
|
MAKECONSTTMulScale(18)
|
|
MAKECONSTTMulScale(19)
|
|
MAKECONSTTMulScale(20)
|
|
MAKECONSTTMulScale(21)
|
|
MAKECONSTTMulScale(22)
|
|
MAKECONSTTMulScale(23)
|
|
MAKECONSTTMulScale(24)
|
|
MAKECONSTTMulScale(25)
|
|
MAKECONSTTMulScale(26)
|
|
MAKECONSTTMulScale(27)
|
|
MAKECONSTTMulScale(28)
|
|
MAKECONSTTMulScale(29)
|
|
MAKECONSTTMulScale(30)
|
|
MAKECONSTTMulScale(31)
|
|
#undef MAKECONSTTMulScale
|
|
|
|
__forceinline SDWORD TMulScale32 (SDWORD a, SDWORD b, SDWORD c, SDWORD d, SDWORD e, SDWORD f)
|
|
{
|
|
__asm mov eax,a
|
|
__asm imul b
|
|
__asm mov ebx,eax
|
|
__asm mov eax,c
|
|
__asm mov ecx,edx
|
|
__asm imul d
|
|
__asm add ebx,eax
|
|
__asm mov eax,e
|
|
__asm adc ecx,edx
|
|
__asm imul f
|
|
__asm add eax,ebx
|
|
__asm adc edx,ecx
|
|
__asm mov eax,edx
|
|
}
|
|
|
|
__forceinline SDWORD BoundMulScale (SDWORD a, SDWORD b, SDWORD c)
|
|
{
|
|
__asm mov eax,a
|
|
__asm imul b
|
|
__asm mov ebx,edx
|
|
__asm mov ecx,c
|
|
__asm shrd eax,edx,cl
|
|
__asm sar edx,cl
|
|
__asm xor edx,eax
|
|
__asm js checkit
|
|
__asm xor edx,eax
|
|
__asm jz skipboundit
|
|
__asm cmp edx,0xffffffff
|
|
__asm je skipboundit
|
|
checkit:
|
|
__asm mov eax,ebx
|
|
__asm sar eax,31
|
|
__asm xor eax,0x7fffffff
|
|
skipboundit:
|
|
;
|
|
}
|
|
|
|
__forceinline SDWORD DivScale (SDWORD a, SDWORD b, SDWORD c)
|
|
{
|
|
__asm mov eax,a
|
|
__asm mov ecx,c
|
|
__asm shl eax,cl
|
|
__asm mov edx,a
|
|
__asm neg cl
|
|
__asm sar edx,cl
|
|
__asm idiv b
|
|
}
|
|
|
|
__forceinline SDWORD DivScale1 (SDWORD a, SDWORD b)
|
|
{
|
|
__asm mov eax,a
|
|
__asm add eax,eax
|
|
__asm sbb edx,edx
|
|
__asm idiv b
|
|
}
|
|
|
|
#define MAKECONSTDivScale(s) \
|
|
__forceinline SDWORD DivScale##s (SDWORD a, SDWORD b) \
|
|
{ \
|
|
__asm mov edx,a \
|
|
__asm sar edx,32-s \
|
|
__asm mov eax,a \
|
|
__asm shl eax,s \
|
|
__asm idiv b \
|
|
}
|
|
|
|
MAKECONSTDivScale(2)
|
|
MAKECONSTDivScale(3)
|
|
MAKECONSTDivScale(4)
|
|
MAKECONSTDivScale(5)
|
|
MAKECONSTDivScale(6)
|
|
MAKECONSTDivScale(7)
|
|
MAKECONSTDivScale(8)
|
|
MAKECONSTDivScale(9)
|
|
MAKECONSTDivScale(10)
|
|
MAKECONSTDivScale(11)
|
|
MAKECONSTDivScale(12)
|
|
MAKECONSTDivScale(13)
|
|
MAKECONSTDivScale(14)
|
|
MAKECONSTDivScale(15)
|
|
MAKECONSTDivScale(16)
|
|
MAKECONSTDivScale(17)
|
|
MAKECONSTDivScale(18)
|
|
MAKECONSTDivScale(19)
|
|
MAKECONSTDivScale(20)
|
|
MAKECONSTDivScale(21)
|
|
MAKECONSTDivScale(22)
|
|
MAKECONSTDivScale(23)
|
|
MAKECONSTDivScale(24)
|
|
MAKECONSTDivScale(25)
|
|
MAKECONSTDivScale(26)
|
|
MAKECONSTDivScale(27)
|
|
MAKECONSTDivScale(28)
|
|
MAKECONSTDivScale(29)
|
|
MAKECONSTDivScale(30)
|
|
MAKECONSTDivScale(31)
|
|
#undef MAKECONSTDivScale
|
|
|
|
__forceinline SDWORD DivScale32 (SDWORD a, SDWORD b)
|
|
{
|
|
__asm mov edx,a
|
|
__asm xor eax,eax
|
|
__asm idiv b
|
|
}
|
|
|
|
__forceinline void clearbuf (void *buff, unsigned int count, SDWORD clear)
|
|
{
|
|
SDWORD *b2 = (SDWORD *)buff;
|
|
for (unsigned int i = 0; i != count; ++i)
|
|
{
|
|
b2[i] = clear;
|
|
}
|
|
}
|
|
|
|
__forceinline void clearbufshort (void *buff, unsigned int count, WORD clear)
|
|
{
|
|
SWORD *b2 = (SWORD *)buff;
|
|
for (unsigned int i = 0; i != count; ++i)
|
|
{
|
|
b2[i] = clear;
|
|
}
|
|
}
|
|
|
|
__forceinline SDWORD ksgn (SDWORD a)
|
|
{
|
|
__asm mov edx,a
|
|
__asm add edx,edx
|
|
__asm sbb eax,eax
|
|
__asm cmp eax,edx
|
|
__asm adc eax,0
|
|
}
|
|
|
|
#pragma warning (default: 4035)
|