Remove unused 'targetWordSize'
authorIan Lynagh <ian@well-typed.com>
Tue, 21 Aug 2012 18:51:58 +0000 (19:51 +0100)
committerIan Lynagh <ian@well-typed.com>
Tue, 21 Aug 2012 18:51:58 +0000 (19:51 +0100)
compiler/nativeGen/TargetReg.hs

index f0d382d..71e02a4 100644 (file)
@@ -21,7 +21,6 @@ module TargetReg (
        targetRealRegSqueeze,
        targetClassOfRealReg,
        targetMkVirtualReg,
-       targetWordSize,
        targetRegDotColor,
        targetClassOfReg
 )
@@ -34,7 +33,6 @@ import Reg
 import RegClass
 import Size
 
-import CmmType (wordWidth)
 import Outputable
 import Unique
 import FastTypes
@@ -80,10 +78,6 @@ targetClassOfRealReg platform
       ArchARM _ _ _ -> panic "targetClassOfRealReg ArchARM"
       ArchUnknown   -> panic "targetClassOfRealReg ArchUnknown"
 
--- TODO: This should look at targetPlatform too
-targetWordSize :: Size
-targetWordSize = intSize wordWidth
-
 targetMkVirtualReg :: Platform -> Unique -> Size -> VirtualReg
 targetMkVirtualReg platform
     = case platformArch platform of