forked from KolibriOS/kolibrios
85 lines
1.2 KiB
C++
85 lines
1.2 KiB
C++
|
#include <math.h>
|
||
|
|
#include "kosSyst.h"
|
||
|
|
extern "C" int _fltused = 0;
|
||
|
|
double __cdecl acos(double x)
|
||
|
|
{
|
||
|
|
__asm {
|
||
|
|
fld qword ptr [esp+4]
|
||
|
|
fld1
|
||
|
|
fadd st, st(1)
|
||
|
|
fld1
|
||
|
|
fsub st, st(2)
|
||
|
|
fmulp st(1), st
|
||
|
|
fsqrt
|
||
|
|
fxch st(1)
|
||
|
|
fpatan
|
||
|
|
}
|
||
|
|
}
|
||
|
|
double __cdecl asin(double x)
|
||
|
|
{
|
||
|
|
__asm {
|
||
|
|
fld qword ptr [esp+4]
|
||
|
|
fld1
|
||
|
|
fadd st, st(1)
|
||
|
|
fld1
|
||
|
|
fsub st, st(2)
|
||
|
|
fmulp st(1), st
|
||
|
|
fsqrt
|
||
|
|
fpatan
|
||
|
|
ret
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#if _MSC_VER <= 1200
|
||
|
|
extern "C" double _ftol(double x)
|
||
|
|
{
|
||
|
|
__asm {
|
||
|
|
fld qword ptr [esp+4]
|
||
|
|
push 1F3Fh
|
||
|
|
fstcw word ptr [esp+2]
|
||
|
|
fldcw word ptr [esp]
|
||
|
|
frndint
|
||
|
|
fldcw word ptr [esp+2]
|
||
|
|
add esp, 4
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
#pragma function(ceil)
|
||
|
|
double __cdecl ceil(double x)
|
||
|
|
{
|
||
|
|
__asm {
|
||
|
|
fld qword ptr [esp+4]
|
||
|
|
push 1B3Fh
|
||
|
|
fstcw word ptr [esp+2]
|
||
|
|
fldcw word ptr [esp]
|
||
|
|
frndint
|
||
|
|
fldcw word ptr [esp+2]
|
||
|
|
add esp, 4
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
double __cdecl floor(double x)
|
||
|
|
{
|
||
|
|
__asm {
|
||
|
|
fld qword ptr [esp+4]
|
||
|
|
push 173Fh
|
||
|
|
fstcw word ptr [esp+2]
|
||
|
|
fldcw word ptr [esp]
|
||
|
|
frndint
|
||
|
|
fldcw word ptr [esp+2]
|
||
|
|
add esp, 4
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
double __cdecl round(double x)
|
||
|
|
{
|
||
|
|
__asm {
|
||
|
|
fld qword ptr [esp+4]
|
||
|
|
push 133Fh
|
||
|
|
fstcw word ptr [esp+2]
|
||
|
|
fldcw word ptr [esp]
|
||
|
|
frndint
|
||
|
|
fldcw word ptr [esp+2]
|
||
|
|
add esp, 4
|
||
|
|
}
|
||
|
|
}
|