===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/include/interval.h,v
retrieving revision 1.5
retrieving revision 1.8
diff -u -p -r1.5 -r1.8
--- OpenXM_contrib2/asir2000/include/interval.h	2002/01/08 04:14:38	1.5
+++ OpenXM_contrib2/asir2000/include/interval.h	2004/12/10 07:36:34	1.8
@@ -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.7 2004/03/25 16:32:45 ohara Exp $
 */
 #ifndef	_INTERVAL_H
 #define	_INTERVAL_H
@@ -66,7 +66,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 +74,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");
@@ -113,6 +121,7 @@ static char	*Interval_dummy;
 #define N_GFPN	(N_NEXT_B+9)
 #define N_GFS	(N_NEXT_B+10)
 #define N_GFSN	(N_NEXT_B+11)
+#define N_DA	(N_NEXT_B+12)
 
 /* data structures */
 struct oItv {