diff fuhtark_test/include/xmath.h @ 1500:91c8c3b7cbf0

add: futhark tests for generating vulkan api
author sam <sam@basx.dev>
date Wed, 26 Nov 2025 21:36:48 +0700
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fuhtark_test/include/xmath.h	Wed Nov 26 21:36:48 2025 +0700
@@ -0,0 +1,108 @@
+/**
+ * This file has no copyright assigned and is placed in the Public Domain.
+ * This file is part of the w64 mingw-runtime package.
+ * No warranty is given; refer to the file DISCLAIMER within this package.
+ */
+#ifndef _XMATH
+#define _XMATH
+#include <errno.h>
+#include <math.h>
+#include <stddef.h>
+#include <ymath.h>
+
+_C_STD_BEGIN
+
+#define _DBIAS 0x3fe
+#define _DOFF 4
+#define _FBIAS 0x7e
+#define _FOFF 7
+#define _FRND 1
+
+#define _D0 3
+#define _D1 2
+#define _D2 1
+#define _D3 0
+#define _DLONG 0
+#define _LBIAS 0x3fe
+#define _LOFF 4
+
+#define _DFRAC ((unsigned short)((1 << _DOFF) - 1))
+#define _DMASK ((unsigned short)(0x7fff & ~_DFRAC))
+#define _DMAX ((unsigned short)((1 << (15 - _DOFF)) - 1))
+#define _DSIGN ((unsigned short)0x8000)
+#define DSIGN(x) (((unsigned short *)&(x))[_D0] & _DSIGN)
+#define HUGE_EXP (int)(_DMAX *900L / 1000)
+#define HUGE_RAD 2.73e9
+#define SAFE_EXP ((unsigned short)(_DMAX >> 1))
+
+#define _FFRAC ((unsigned short)((1 << _FOFF) - 1))
+#define _FMASK ((unsigned short)(0x7fff & ~_FFRAC))
+#define _FMAX ((unsigned short)((1 << (15 - _FOFF)) - 1))
+#define _FSIGN ((unsigned short)0x8000)
+#define FSIGN(x) (((unsigned short *)&(x))[_F0] & _FSIGN)
+#define FHUGE_EXP (int)(_FMAX *900L / 1000)
+#define FHUGE_RAD 31.8
+#define FSAFE_EXP ((unsigned short)(_FMAX >> 1))
+
+#define _F0 1
+#define _F1 0
+
+#define _LFRAC ((unsigned short)(-1))
+#define _LMASK ((unsigned short)0x7fff)
+#define _LMAX ((unsigned short)0x7fff)
+#define _LSIGN ((unsigned short)0x8000)
+#define LSIGN(x) (((unsigned short *)&(x))[_L0] & _LSIGN)
+#define LHUGE_EXP (int)(_LMAX *900L / 1000)
+#define LHUGE_RAD 2.73e9
+#define LSAFE_EXP ((unsigned short)(_LMAX >> 1))
+
+#define _L0 3
+#define _L1 2
+#define _L2 1
+#define _L3 0
+#define _L4 xxx
+
+#define FINITE _FINITE
+#define INF _INFCODE
+#define NAN _NANCODE
+
+#define FL_ERR 0
+#define FL_DEC 1
+#define FL_HEX 2
+#define FL_INF 3
+#define FL_NAN 4
+#define FL_NEG 8
+
+_C_LIB_DECL
+
+_CRTIMP int __cdecl _Stopfx(const char **,char **);
+_CRTIMP int __cdecl _Stoflt(const char *,const char *,char **,long[],int);
+_CRTIMP int __cdecl _Stoxflt(const char *,const char *,char **,long[],int);
+_CRTIMP int __cdecl _WStopfx(const wchar_t **,wchar_t **);
+_CRTIMP int __cdecl _WStoflt(const wchar_t *,const wchar_t *,wchar_t **,long[],int);
+_CRTIMP int __cdecl _WStoxflt(const wchar_t *,const wchar_t *,wchar_t **,long[],int);
+_CRTIMP short __cdecl _Dnorm(unsigned short *);
+_CRTIMP short __cdecl _Dscale(double *,long);
+_CRTIMP short __cdecl _Dunscale(short *,double *);
+_CRTIMP double __cdecl _Poly(double,const double *,int);
+
+extern _CRTIMP _Dconst _Eps,_Rteps;
+extern _CRTIMP double _Xbig;
+
+_CRTIMP short __cdecl _FDnorm(unsigned short *);
+_CRTIMP short __cdecl _FDscale(float *,long);
+_CRTIMP short __cdecl _FDunscale(short *,float *);
+
+extern _CRTIMP _Dconst _FEps,_FRteps;
+extern _CRTIMP float _FXbig;
+
+_CRTIMP short __cdecl _LDnorm(unsigned short *);
+_CRTIMP short __cdecl _LDscale(long double *,long);
+_CRTIMP short __cdecl _LDunscale(short *,long double *);
+_CRTIMP long double __cdecl _LPoly(long double,const long double *,int);
+
+extern _CRTIMP _Dconst _LEps,_LRteps;
+extern _CRTIMP long double _LXbig;
+_END_C_LIB_DECL
+_C_STD_END
+#endif