| version 1.4, 2009/03/27 14:42:29 |
version 1.7, 2016/06/29 08:16:11 |
|
|
| /* |
/* |
| * $OpenXM: OpenXM_contrib2/asir2000/engine/d-itv.c,v 1.3 2003/02/14 22:29:08 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/d-itv.c,v 1.6 2015/08/14 13:51:54 fujimoto Exp $ |
| */ |
*/ |
| #if defined(INTERVAL) |
#if defined(INTERVAL) |
| #include <float.h> |
#include <float.h> |
| Line 94 double NatToRealUp(N a, int *expo) |
|
| Line 94 double NatToRealUp(N a, int *expo) |
|
| #ifdef vax |
#ifdef vax |
| t = m[0]; m[0] = m[1]; m[1] = t; itod(m); |
t = m[0]; m[0] = m[1]; m[1] = t; itod(m); |
| #endif |
#endif |
| #if defined(MIPSEL) || defined(TOWNS) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) |
#if defined(MIPSEL) || defined(TOWNS) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(ANDROID) |
| t = m[0]; m[0] = m[1]; m[1] = t; |
t = m[0]; m[0] = m[1]; m[1] = t; |
| #endif |
#endif |
| return *((double *)m); |
return *((double *)m); |
| Line 124 static double Q2doubleDown(Q a) |
|
| Line 124 static double Q2doubleDown(Q a) |
|
| #ifdef vax |
#ifdef vax |
| s = p[0]; p[0] = p[1]; p[1] = s; itod(p); |
s = p[0]; p[0] = p[1]; p[1] = s; itod(p); |
| #endif |
#endif |
| #if defined(MIPSEL) || defined(TOWNS) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) |
#if defined(MIPSEL) || defined(TOWNS) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) | defined(ANDROID) |
| s = p[0]; p[0] = p[1]; p[1] = s; |
s = p[0]; p[0] = p[1]; p[1] = s; |
| #endif |
#endif |
| FPMINUSINF |
FPMINUSINF |
| Line 161 static double Q2doubleUp(Q a) |
|
| Line 161 static double Q2doubleUp(Q a) |
|
| #ifdef vax |
#ifdef vax |
| s = p[0]; p[0] = p[1]; p[1] = s; itod(p); |
s = p[0]; p[0] = p[1]; p[1] = s; itod(p); |
| #endif |
#endif |
| #if defined(MIPSEL) || defined(TOWNS) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) |
#if defined(MIPSEL) || defined(TOWNS) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(ANDROID) |
| s = p[0]; p[0] = p[1]; p[1] = s; |
s = p[0]; p[0] = p[1]; p[1] = s; |
| #endif |
#endif |
| #if 0 |
#if 0 |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to d-itv.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine