| version 1.6, 2000/12/05 01:24:52 |
version 1.7, 2001/10/09 01:36:13 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/engine/real.c,v 1.5 2000/11/15 02:16:30 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/real.c,v 1.6 2000/12/05 01:24:52 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "base.h" |
#include "base.h" |
|
|
| double RatnToReal(a) |
double RatnToReal(a) |
| Q a; |
Q a; |
| { |
{ |
| double nm,dn,t,man; |
double nm,dn,man; |
| int enm,edn,e; |
int enm,edn,e; |
| unsigned int *p,s; |
|
| |
|
| nm = NatToReal(NM(a),&enm); |
nm = NatToReal(NM(a),&enm); |
| if ( INT(a) ) |
if ( INT(a) ) |
| if ( enm >= 1 ) |
if ( enm >= 1 ) { |
| error("RatnToReal : Overflow"); |
error("RatnToReal : Overflow"); |
| else |
/* NOTREACHED */ |
| |
return 0; |
| |
} else |
| return SGN(a)>0 ? nm : -nm; |
return SGN(a)>0 ? nm : -nm; |
| else { |
else { |
| dn = NatToReal(DN(a),&edn); |
dn = NatToReal(DN(a),&edn); |
| man = nm/dn; |
man = nm/dn; |
| if ( SGN(a) < 0 ) |
if ( SGN(a) < 0 ) |
| man = -man; |
man = -man; |
| if ( ((e = enm - edn) >= 1024) || (e <= -1023) ) |
if ( ((e = enm - edn) >= 1024) || (e <= -1023) ) { |
| error("RatnToReal : Overflow"); /* XXX */ |
error("RatnToReal : Overflow"); /* XXX */ |
| else if ( !e ) |
/* NOTREACHED */ |
| |
return 0; |
| |
} else if ( !e ) |
| return man; |
return man; |
| else |
else |
| return man*pow(2,e); |
return man*pow(2,e); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to real.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine