X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FSMRep.lhs;h=c807703b132a404273aaf450134c03cacbf9b51d;hb=28a464a75e14cece5db40f2765a29348273ff2d2;hp=b0b1b140f7802445d0f1b6f81e9c946cb00147e3;hpb=effd3425cfd597b1f0e71f7486ae2cffcbf081a7;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/SMRep.lhs b/ghc/compiler/codeGen/SMRep.lhs
index b0b1b14..c807703 100644
--- a/ghc/compiler/codeGen/SMRep.lhs
+++ b/ghc/compiler/codeGen/SMRep.lhs
@@ -43,7 +43,7 @@ import Type		( Type, typePrimRep, PrimRep(..) )
 import TyCon		( TyCon, tyConPrimRep )
 import MachOp--		( MachRep(..), MachHint(..), wordRep )
 import StaticFlags	( opt_SccProfilingOn, opt_GranMacros,
-			  opt_Unregisterised, opt_SMP )
+			  opt_Unregisterised )
 import Constants
 import Outputable
 
@@ -289,8 +289,7 @@ arrPtrsHdrSize    = fixedHdrSize*wORD_SIZE + sIZEOF_StgMutArrPtrs_NoHdr
 -- Thunks have an extra header word on SMP, so the update doesn't 
 -- splat the payload.
 thunkHdrSize :: WordOff
-thunkHdrSize | opt_SMP 	 = fixedHdrSize + smp_hdr
-	     | otherwise = fixedHdrSize
+thunkHdrSize = fixedHdrSize + smp_hdr
 	where smp_hdr = sIZEOF_StgSMPThunkHeader `quot` wORD_SIZE
 \end{code}