117 lines
5.8 KiB
Plaintext
117 lines
5.8 KiB
Plaintext
|
|
#var FIVE D((5.0))
|
|
#var FOUR D((4.0))
|
|
#var HALF D((0.5))
|
|
#var HALF_PI D((1.570796326794897))
|
|
#var MINUS_ONE D((-1.0))
|
|
#var NAN D((*(float*)&(bcd){0x7FFF,0xAA00000000000000}))
|
|
#var NEGATIVE_INF D((*(float*)&(bcd){0xFFFF,0xAA00BB0000000000}))
|
|
#var NEGATIVE_ZERO D((*(float*)&(bcd){0x8000,0}))
|
|
#var ONE D((1.0))
|
|
#var PI D((3.141592653589793))
|
|
#var POSITIVE_INF D((*(float*)&(bcd){0x7FFF,0xAA00BB0000000000}))
|
|
#var POSITIVE_ZERO D((*(float*)&(bcd){0,0}))
|
|
#var TEN D((10.0))
|
|
#var THREE D((3.0))
|
|
#var TWO D((2.0))
|
|
#var UNSIGNED_INF D((*(float*)&(bcd){0x7FFF,0xAA00CC0000000000}))
|
|
#var UNSIGNED_ZERO D((0.0))
|
|
#var ZERO D((0.0))
|
|
#var bcd typedef struct{unsigned short exponent;unsigned long long mantissa;}bcd;
|
|
#var FALSE D(0)
|
|
#var TRUE D(1)
|
|
|
|
#var ti_float typedef float ti_float;
|
|
#var abs(x) D(({typeof(x) __x = (x); __x >= 0 ? __x : -__x;}))
|
|
#var acos(x) D(_tios_float_1(F5,x,float))
|
|
#var acosh(x) D(_tios_float_1(288,x,float))
|
|
#var asin(x) D(_tios_float_1(F6,x,float))
|
|
#var asinh(x) D(_tios_float_1(287,x,float))
|
|
#var atan2(x,y) D(_tios_float_2(F8,x,y,float,float))
|
|
#var atan(x) D(_tios_float_1(F7,x,float))
|
|
#var atanh(x) D(_tios_float_1(289,x,float))
|
|
#var bcd_to_float(a) D(({bcd __a=(a);*(float*)&__a;}))
|
|
#var bcd_var(a) D((*(bcd*)&(a)))
|
|
#var bcdadd(x,y) D(({bcd __x=(x),__y=(y);float __z=fadd(*(float*)&__x,*(float*)&__y);*(bcd*)&__z;}))
|
|
#var bcdbcd(x) D(({float __x=flt(x);*(bcd*)&__x;}))
|
|
#var bcdcmp(x,y) D(({bcd __x=(x),__y=(y);fcmp(*(float*)&__x,*(float*)&__y);}))
|
|
#var bcddiv(x,y) D(({bcd __x=(x),__y=(y);float __z=fdiv(*(float*)&__x,*(float*)&__y);*(bcd*)&__z;}))
|
|
#var bcdlong(x) D(({bcd __x=(x);trunc(*(float*)&__x);}))
|
|
#var bcdmul(x,y) D(({bcd __x=(x),__y=(y);float __z=fmul(*(float*)&__x,*(float*)&__y);*(bcd*)&__z;}))
|
|
#var bcdneg(x) D(({bcd __x=(x);float __y=fneg(*(float*)&__x);*(bcd*)&__y;}))
|
|
#var bcdsub(x,y) D(({bcd __x=(x),__y=(y);float __z=fsub(*(float*)&__x,*(float*)&__y);*(bcd*)&__z;}))
|
|
#var cacos D(_rom_call(void,(float,float,float*,float*),13A))
|
|
#var cacosh D(_rom_call(void,(float,float,float*,float*),13D))
|
|
#var casin D(_rom_call(void,(float,float,float*,float*),13B))
|
|
#var casinh D(_rom_call(void,(float,float,float*,float*),13E))
|
|
#var catan D(_rom_call(void,(float,float,float*,float*),13C))
|
|
#var catanh D(_rom_call(void,(float,float,float*,float*),13F))
|
|
#var ccos D(_rom_call(void,(float,float,float*,float*),140))
|
|
#var ccosh D(_rom_call(void,(float,float,float*,float*),143))
|
|
#var ceil(x) D(_tios_float_1(105,x,float))
|
|
#var cexp D(_rom_call(void,(float,float,float*,float*),149))
|
|
#var cln D(_rom_call(void,(float,float,float*,float*),147))
|
|
#var clog10 D(_rom_call(void,(float,float,float*,float*),148))
|
|
#var cos(x) D(_tios_float_1(F9,x,float))
|
|
#var cosh(x) D(_tios_float_1(FC,x,float))
|
|
#var csin D(_rom_call(void,(float,float,float*,float*),141))
|
|
#var csinh D(_rom_call(void,(float,float,float*,float*),144))
|
|
#var csqrt D(_rom_call(void,(float,float,float*,float*),146))
|
|
#var ctan D(_rom_call(void,(float,float,float*,float*),142))
|
|
#var ctanh D(_rom_call(void,(float,float,float*,float*),145))
|
|
#var exp(x) D(_tios_float_1(FF,x,float))
|
|
#var fabs(x) D(_tios_float_1(106,x,float))
|
|
#var fadd(x,y) D(_tios_float_2(B6,x,y,float,float))
|
|
#var fcmp D(_rom_call(long,(float,float),BB))
|
|
#var fdiv(x,y) D(_tios_float_2(B9,x,y,float,float))
|
|
#var FEXP(x,y) D((*(float*)&(bcd){0x4000+y,0x##x##LL<<4*(17-sizeof(#x))}))
|
|
#var FEXP_NEG(x,y) D((*(float*)&(bcd){0xC000+y,0x##x##LL<<4*(17-sizeof(#x))}))
|
|
#var float_to_bcd(a) D(({float __a=(a);*(bcd*)&__a;}))
|
|
#var floor(x) D(_tios_float_1(107,x,float))
|
|
#var flt(x) D(_tios_float_1(BD,x,long))
|
|
#var FLT(x,y...) D(((sizeof(#y)==1)?x##.0:x##.##y))
|
|
#var FLT_NEG(x,y...) D(((sizeof(#y)==1)?-x##.0:-x##.##y))
|
|
#var fmod(x,y) D(_tios_float_2(108,x,y,float,float))
|
|
#var fmul(x,y) D(_tios_float_2(B8,x,y,float,float))
|
|
#var fneg(x) D(_tios_float_1(BA,x,float))
|
|
#var fpisanint D(_rom_call(short,(unsigned long long*,short),172))
|
|
#var fpisodd D(_rom_call(short,(unsigned long long*,short),173))
|
|
#var fsub(x,y) D(_tios_float_2(B7,x,y,float,float))
|
|
#var hypot(x,y) D(({float __x=(x),__y=(y);sqrt(fadd(fmul((__x),(__x)),fmul((__y),(__y))));}))
|
|
#var init_float() D(((void)0))
|
|
#var itrig D(_rom_call(void,(short,short,float*,float*),28A))
|
|
#var ldexp10(x,e) D(({float __f=x;((bcd*)&__f)->exponent+=e;__f;}))
|
|
#var log(x) D(_tios_float_1(100,x,float))
|
|
#var log10(x) D(_tios_float_1(101,x,float))
|
|
#var modf(x,y) D(_tios_float_2(102,x,y,float,float*))
|
|
#var pow(x,y) D(_tios_float_2(103,x,y,float,float))
|
|
#var round12(x) D(_tios_float_1(174,x,float))
|
|
#var round12_err(x,y) D(_tios_float_2(227,x,y,float,short))
|
|
#var round14(x) D(_tios_float_1(175,x,float))
|
|
#var sin(x) D(_tios_float_1(FA,x,float))
|
|
#var sincos D(_rom_call(void,(float,short,float*,float*),286))
|
|
#var sinh(x) D(_tios_float_1(FD,x,float))
|
|
#var sqrt(x) D(_tios_float_1(104,x,float))
|
|
#var tan(x) D(_tios_float_1(FB,x,float))
|
|
#var tanh(x) D(_tios_float_1(FE,x,float))
|
|
#var trig D(_rom_call(void,(short,short,const float*,float*,float*,float*),28B))
|
|
#var trunc D(_rom_call(long,(float),BC))
|
|
#var atof float atof(const char*)__ATTR_LIB_ASM__;
|
|
#var float_class D(_rom_call(short,(float),2FA))
|
|
#var frexp10(x,y) D(_tios_float_2(2FB,x,y,float,__pshort))
|
|
#var is_float_infinity D(_rom_call(short,(float),2FF))
|
|
#var is_float_negative_zero D(_rom_call(short,(float),300))
|
|
#var is_float_positive_zero D(_rom_call(short,(float),301))
|
|
#var is_float_signed_infinity D(_rom_call(short,(float),302))
|
|
#var is_float_transfinite D(_rom_call(short,(float),303))
|
|
#var is_float_unsigned_inf_or_nan D(_rom_call(short,(float),304))
|
|
#var is_float_unsigned_zero D(_rom_call(short,(float),305))
|
|
#var is_inf D(_rom_call(short,(float),2FF))
|
|
#var is_nan D(_rom_call(short,(float),306))
|
|
#var is_nzero D(_rom_call(short,(float),300))
|
|
#var is_pzero D(_rom_call(short,(float),301))
|
|
#var is_sinf D(_rom_call(short,(float),302))
|
|
#var is_transfinite D(_rom_call(short,(float),303))
|
|
#var is_uinf_or_nan D(_rom_call(short,(float),304))
|
|
#var is_uzero D(_rom_call(short,(float),305))
|