diff options
| author | simonm <unknown> | 1999-03-22 13:01:38 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-03-22 13:01:38 +0000 |
| commit | c2520f241f926f361a4d9ee73cb20507af07bd1c (patch) | |
| tree | 7059736d2dc7f0fbf1a5b40d0b410c3560e0f212 | |
| parent | 72d922478c6c3696bac61c163e5ef5ede07fe0ab (diff) | |
| download | haskell-c2520f241f926f361a4d9ee73cb20507af07bd1c.tar.gz | |
[project @ 1999-03-22 13:01:38 by simonm]
decodeFloat and decodeDouble were accidentally allocating too much
due to a StgWord/byte confusion.
| -rw-r--r-- | ghc/rts/PrimOps.hc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc index 4ec104e381..f10674bf6e 100644 --- a/ghc/rts/PrimOps.hc +++ b/ghc/rts/PrimOps.hc @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.hc,v 1.24 1999/03/22 09:24:45 simonm Exp $ + * $Id: PrimOps.hc,v 1.25 1999/03/22 13:01:38 simonm Exp $ * * (c) The GHC Team, 1998-1999 * @@ -682,7 +682,7 @@ FN_(decodeFloatzh_fast) /* arguments: F1 = Float# */ arg = F1; - HP_CHK_GEN(sizeof(StgArrWords)+1, NO_PTRS, decodeFloatzh_fast,); + HP_CHK_GEN(sizeofW(StgArrWords)+1, NO_PTRS, decodeFloatzh_fast,); TICK_ALLOC_PRIM(sizeofW(StgArrWords),1,0); CCS_ALLOC(CCCS,sizeofW(StgArrWords)+1); /* ccs prof */ @@ -702,8 +702,8 @@ FN_(decodeFloatzh_fast) } #endif /* !FLOATS_AS_DOUBLES */ -#define DOUBLE_MANTISSA_SIZE (sizeof(StgDouble)/sizeof(W_)) -#define ARR_SIZE (sizeof(StgArrWords) + DOUBLE_MANTISSA_SIZE) +#define DOUBLE_MANTISSA_SIZE (sizeofW(StgDouble)) +#define ARR_SIZE (sizeofW(StgArrWords) + DOUBLE_MANTISSA_SIZE) FN_(decodeDoublezh_fast) { MP_INT mantissa; @@ -716,7 +716,7 @@ FN_(decodeDoublezh_fast) arg = D1; HP_CHK_GEN(ARR_SIZE, NO_PTRS, decodeDoublezh_fast,); - TICK_ALLOC_PRIM(sizeof(StgArrWords),DOUBLE_MANTISSA_SIZE,0); + TICK_ALLOC_PRIM(sizeofW(StgArrWords),DOUBLE_MANTISSA_SIZE,0); CCS_ALLOC(CCCS,ARR_SIZE); /* ccs prof */ /* Be prepared to tell Lennart-coded __decodeDouble */ |