===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/include/interval.h,v
retrieving revision 1.5
retrieving revision 1.11
diff -u -p -r1.5 -r1.11
--- OpenXM_contrib2/asir2000/include/interval.h	2002/01/08 04:14:38	1.5
+++ OpenXM_contrib2/asir2000/include/interval.h	2014/01/07 06:22:08	1.11
@@ -1,5 +1,5 @@
 /*
- * $OpenXM: OpenXM_contrib2/asir2000/include/interval.h,v 1.4 2002/01/04 17:01:40 saito Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/include/interval.h,v 1.10 2006/02/05 06:47:03 noro Exp $
 */
 #ifndef	_INTERVAL_H
 #define	_INTERVAL_H
@@ -34,8 +34,10 @@ static char	*Interval_dummy;
 #include	<fpu_control.h>
 #if 1
 #define	LINUX_FPU_RC_MASK				0xf3ff
-#define	LINUX_FPU_SETCW(c)			{_FPU_GETCW(__fpu_control);\
-				_FPU_SETCW(__fpu_control & LINUX_FPU_RC_MASK | c);}
+#define	LINUX_FPU_SETCW(c)			\
+{fpu_control_t __tmp__; _FPU_GETCW(__fpu_control);\
+ __tmp__ = (__fpu_control & LINUX_FPU_RC_MASK | c);\
+ _FPU_SETCW(__tmp__);}
 #define	FPNEAREST	LINUX_FPU_SETCW(_FPU_RC_NEAREST);
 #define	FPPLUSINF	LINUX_FPU_SETCW(_FPU_RC_UP);
 #define	FPMINUSINF	LINUX_FPU_SETCW(_FPU_RC_DOWN);
@@ -66,7 +68,7 @@ static char	*Interval_dummy;
 #endif
 #endif
 
-#if defined(__FreeBSD__)
+#if defined(__FreeBSD__) && defined(__GNUC__)
 #include	<floatingpoint.h>
 #define	FPNEAREST	fpsetround(FP_RN);
 #define	FPPLUSINF	fpsetround(FP_RP);
@@ -74,6 +76,14 @@ static char	*Interval_dummy;
 #define	FPTOZERO	fpsetround(FP_RZ);
 #endif
 
+#if defined(VISUAL)
+#include <float.h>
+#define FPNEAREST _controlfp(_RC_NEAR,_MCW_RC);
+#define FPPLUSINF _controlfp(_RC_UP,_MCW_RC);
+#define FPMINUSINF _controlfp(_RC_DOWN,_MCW_RC);
+#define FPTOZERO _controlfp(_RC_CHOP,_MCW_RC);
+#endif
+
 /* no control function of floating point rounding */
 #ifndef FPNEAREST
 #define	FPNEAREST	fprintf(stderr, "Fpu control FPNEAREST is not supported in this machine yet.\n");
@@ -91,28 +101,6 @@ static char	*Interval_dummy;
 
 #define	MID_PRINTF_G	2
 #define	MID_PRINTF_E	3
-
-#undef  N_C
-#undef  N_M
-#undef  N_LM
-#undef  N_GF2N
-#undef  N_GFPN
-#undef  N_GFS
-#undef  N_GFSN
-#define	N_NEXT_B		(N_B+1)
-#define N_Quad			(N_NEXT_B)
-#define N_IP			(N_NEXT_B+1)
-#define N_IntervalDouble	(N_NEXT_B+2)
-#define N_IntervalQuad		(N_NEXT_B+3)
-#define N_IntervalBigFloat	(N_NEXT_B+4)
-#define N_PRE_C	N_IntervalBigFloat
-#define N_C	(N_NEXT_B+5)
-#define N_M	(N_NEXT_B+6)
-#define N_LM	(N_NEXT_B+7)
-#define N_GF2N	(N_NEXT_B+8)
-#define N_GFPN	(N_NEXT_B+9)
-#define N_GFS	(N_NEXT_B+10)
-#define N_GFSN	(N_NEXT_B+11)
 
 /* data structures */
 struct oItv {