projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-02-22 10:51:18 by simonm]
[ghc-hetmet.git]
/
ghc
/
rts
/
StgPrimFloat.c
diff --git
a/ghc/rts/StgPrimFloat.c
b/ghc/rts/StgPrimFloat.c
index
2a73977
..
dad2350
100644
(file)
--- a/
ghc/rts/StgPrimFloat.c
+++ b/
ghc/rts/StgPrimFloat.c
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: StgPrimFloat.c,v 1.4 1999/02/18 12:26:12 simonm Exp $
+ * $Id: StgPrimFloat.c,v 1.5 1999/02/22 10:51:18 simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-51,13
+51,8
@@
__encodeDouble (I_ size, StgByteArray ba, I_ e) /* result = s * 2^e */
I_ i;
/* Convert MP_INT to a double; knows a lot about internal rep! */
I_ i;
/* Convert MP_INT to a double; knows a lot about internal rep! */
- i = __abs(size)-1;
- if (i < 0) {
- r = 0.0;
- } else {
- for (r = arr[i], i--; i >= 0; i--)
- r = r * GMP_BASE + arr[i];
- }
+ for(r = 0.0, i = __abs(size)-1; i >= 0; i--)
+ r = (r * GMP_BASE) + arr[i];
/* Now raise to the exponent */
if ( r != 0.0 ) /* Lennart suggests this avoids a bug in MIPS's ldexp */
/* Now raise to the exponent */
if ( r != 0.0 ) /* Lennart suggests this avoids a bug in MIPS's ldexp */
@@
-98,7
+93,7
@@
__encodeFloat (I_ size, StgByteArray ba, I_ e) /* result = s * 2^e */
I_ i;
/* Convert MP_INT to a float; knows a lot about internal rep! */
I_ i;
/* Convert MP_INT to a float; knows a lot about internal rep! */
- for(r = 0.0, i = __abs(size); i >= 0; i--)
+ for(r = 0.0, i = __abs(size)-1; i >= 0; i--)
r = (r * GMP_BASE) + arr[i];
/* Now raise to the exponent */
r = (r * GMP_BASE) + arr[i];
/* Now raise to the exponent */