diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-06-02 14:02:33 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-06-02 14:02:33 +0000 |
| commit | dd56e9ab4544e83d27532a8d9058140bfe81825c (patch) | |
| tree | 5c5ba3eb63a02d7de3c8c514e883f7dd36e98332 /compiler | |
| parent | cfe2fd2a36f43c1f998bb5e7c0cec15480ed3f96 (diff) | |
| download | haskell-dd56e9ab4544e83d27532a8d9058140bfe81825c.tar.gz | |
Remove old GUM/GranSim code
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/codeGen/SMRep.lhs | 6 | ||||
| -rw-r--r-- | compiler/main/Constants.lhs | 3 |
2 files changed, 1 insertions, 8 deletions
diff --git a/compiler/codeGen/SMRep.lhs b/compiler/codeGen/SMRep.lhs index 75329c19cd..32d9583800 100644 --- a/compiler/codeGen/SMRep.lhs +++ b/compiler/codeGen/SMRep.lhs @@ -258,16 +258,12 @@ Size of a closure header. \begin{code} fixedHdrSize :: WordOff -fixedHdrSize = sTD_HDR_SIZE + profHdrSize + granHdrSize +fixedHdrSize = sTD_HDR_SIZE + profHdrSize profHdrSize :: WordOff profHdrSize | opt_SccProfilingOn = pROF_HDR_SIZE | otherwise = 0 -granHdrSize :: WordOff -granHdrSize | opt_GranMacros = gRAN_HDR_SIZE - | otherwise = 0 - arrWordsHdrSize :: ByteOff arrWordsHdrSize = fixedHdrSize*wORD_SIZE + sIZEOF_StgArrWords_NoHdr diff --git a/compiler/main/Constants.lhs b/compiler/main/Constants.lhs index 51971728a0..b809f5280b 100644 --- a/compiler/main/Constants.lhs +++ b/compiler/main/Constants.lhs @@ -107,9 +107,6 @@ sTD_HDR_SIZE = STD_HDR_SIZE pROF_HDR_SIZE :: Int pROF_HDR_SIZE = PROF_HDR_SIZE - -gRAN_HDR_SIZE :: Int -gRAN_HDR_SIZE = GRAN_HDR_SIZE \end{code} Size of a double in StgWords. |