diff options
author | Ian Lynagh <ian@well-typed.com> | 2012-08-21 19:51:58 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2012-08-21 19:51:58 +0100 |
commit | eb9b4e54861689d04b0dd6a2a626cf292a5aac7c (patch) | |
tree | e012e2d1a641b1c61bbe68be081d4c6ae4791cbb /compiler/nativeGen | |
parent | b6b6311b1c8894fe9e157c5215decf4674d48cad (diff) | |
download | haskell-eb9b4e54861689d04b0dd6a2a626cf292a5aac7c.tar.gz |
Remove unused 'targetWordSize'
Diffstat (limited to 'compiler/nativeGen')
-rw-r--r-- | compiler/nativeGen/TargetReg.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/nativeGen/TargetReg.hs b/compiler/nativeGen/TargetReg.hs index f0d382d0d6..71e02a4c15 100644 --- a/compiler/nativeGen/TargetReg.hs +++ b/compiler/nativeGen/TargetReg.hs @@ -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 |