60 lines
4 KiB
C
60 lines
4 KiB
C
|
|
||
|
|
#ifndef FLOATS_INCLUDED
|
||
|
|
#define FLOATS_INCLUDED
|
||
|
|
|
||
|
|
#include "bastypes.h"
|
||
|
|
|
||
|
|
#if HWR_SYSTEM == HWR_WINDOWS || HWR_SYSTEM == HWR_DOS || HWR_SYSTEM == HWR_ANSI || HWR_SYSTEM == HWR_EPOC32 /* substitute floating */
|
||
|
|
/* point operations */
|
||
|
|
#define HWRfl_add(a,b,c) ((*(c))=((a)+(b))) /* */
|
||
|
|
#define HWRfl_sub(a,b,c) ((*(c))=((a)-(b))) /* */
|
||
|
|
#define HWRfl_mul(a,b,c) ((*(c))=((a)*(b))) /* */
|
||
|
|
#define HWRfl_div(a,b,c) ((*(c))=((a)/(b))) /* */
|
||
|
|
#define HWRfl_assign(a,b) ((*(a))=(b)) /* */
|
||
|
|
#define HWRfl_gt(a,b) ((a)>(b)) /* */
|
||
|
|
#define HWRfl_ge(a,b) ((a)>=(b)) /* */
|
||
|
|
#define HWRfl_lt(a,b) ((a)<(b)) /* */
|
||
|
|
#define HWRfl_le(a,b) ((a)<=(b)) /* */
|
||
|
|
#define HWRfl_eq(a,b) ((a)==(b)) /* */
|
||
|
|
#define HWRfl_ne(a,b) ((a)!=(b)) /* */
|
||
|
|
#define HWRitof(a,b) ((*(b))=((_DOUBLE)(a)))/* */
|
||
|
|
#define HWRltof(a,b) ((*(b))=((_DOUBLE)(a)))/* */
|
||
|
|
#define HWRftoi(a) ((_SHORT)(a)) /* */
|
||
|
|
#define HWRftol(a) ((_LONG)(a)) /* */
|
||
|
|
/* */
|
||
|
|
#else /* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRfl_add(_DOUBLE add1,_DOUBLE add2,p_DOUBLE res);/* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRfl_sub(_DOUBLE sub1,_DOUBLE sub2,p_DOUBLE res);/* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRfl_mul(_DOUBLE mul1,_DOUBLE mul2,p_DOUBLE res);/* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRfl_div(_DOUBLE div1,_DOUBLE div2,p_DOUBLE res);/* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRfl_assign(p_DOUBLE res,_DOUBLE ass); /* */
|
||
|
|
/* */
|
||
|
|
_BOOL HWRfl_gt(_DOUBLE op1,_DOUBLE op2); /* */
|
||
|
|
/* */
|
||
|
|
_BOOL HWRfl_ge(_DOUBLE op1,_DOUBLE op2); /* */
|
||
|
|
/* */
|
||
|
|
_BOOL HWRfl_lt(_DOUBLE op1,_DOUBLE op2); /* */
|
||
|
|
/* */
|
||
|
|
_BOOL HWRfl_le(_DOUBLE op1,_DOUBLE op2); /* */
|
||
|
|
/* */
|
||
|
|
_BOOL HWRfl_eq(_DOUBLE op1,_DOUBLE op2); /* */
|
||
|
|
/* */
|
||
|
|
_BOOL HWRfl_ne(_DOUBLE op1,_DOUBLE op2); /* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRitof(_SHORT op1,p_DOUBLE res); /* */
|
||
|
|
/* */
|
||
|
|
_VOID HWRltof(_LONG op1,p_DOUBLE res); /* */
|
||
|
|
/* */
|
||
|
|
_SHORT HWRftoi(_DOUBLE op1); /* */
|
||
|
|
/* */
|
||
|
|
_LONG HWRftol(_DOUBLE op1); /* */
|
||
|
|
/* */
|
||
|
|
#endif /* floating point operations */
|
||
|
|
|
||
|
|
#endif /* FLOATS_INCLUDED */
|