diff options
| author | sewardj <unknown> | 2000-01-24 18:22:08 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-24 18:22:08 +0000 |
| commit | 9ac31f7c4db928dd4ef4ac9719074f64ee02a0d0 (patch) | |
| tree | 31ca481ac392c4c9b2bf37292992a9281ce263cb /ghc/compiler/nativeGen/StixInteger.lhs | |
| parent | c81c46d2cdde4d3bb13e1f4d765e43b144ec6716 (diff) | |
| download | haskell-9ac31f7c4db928dd4ef4ac9719074f64ee02a0d0.tar.gz | |
[project @ 2000-01-24 18:22:07 by sewardj]
ARR_HDR_SIZE --> ARR_WORDS_HDR_SIZE, and derived quantities in
Constants.h, Constants.lhs et al are similarly renamed.
new constant ARR_PTRS_HDR_SIZE, with corresponding derivatives.
Diffstat (limited to 'ghc/compiler/nativeGen/StixInteger.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/StixInteger.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/nativeGen/StixInteger.lhs b/ghc/compiler/nativeGen/StixInteger.lhs index 6b9ad9c113..044548c8c4 100644 --- a/ghc/compiler/nativeGen/StixInteger.lhs +++ b/ghc/compiler/nativeGen/StixInteger.lhs @@ -22,7 +22,7 @@ import CallConv ( cCallConv ) import OrdList ( OrdList ) import PrimOp ( PrimOp(..) ) import PrimRep ( PrimRep(..) ) -import SMRep ( arrHdrSize ) +import SMRep ( arrWordsHdrSize ) import Stix ( sStLitLbl, StixTree(..), StixTreeList ) import UniqSupply ( returnUs, thenUs, UniqSM ) \end{code} @@ -139,7 +139,7 @@ toStruct str (alloc,size,arr) f1 = StAssign IntRep (mpAlloc str) alloc f2 = StAssign IntRep (mpSize str) size f3 = StAssign PtrRep (mpData str) - (StIndex PtrRep arr (StInt (toInteger arrHdrSize))) + (StIndex PtrRep arr (StInt (toInteger arrWordsHdrSize))) in (f1, f2, f3) |