Tag ForeignCalls with the package they correspond to

[ghc-hetmet.git] / compiler / nativeGen / X86 / RegInfo.hs

diff --git a/compiler/nativeGen/X86/RegInfo.hs b/compiler/nativeGen/X86/RegInfo.hs
index f47859e..ed420a4 100644 (file)
--- a/compiler/nativeGen/X86/RegInfo.hs
+++ b/compiler/nativeGen/X86/RegInfo.hs
@@ -9,7 +9,6 @@ where
 #include "nativeGen/NCG.h"
 #include "HsVersions.h"
 
-import X86.Regs
 import Size
 import Reg
 
@@ -18,6 +17,7 @@ import Unique
 
 #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
 import UniqFM
+import X86.Regs
 #endif
 
 
@@ -77,7 +77,7 @@ regColors
        , (r14, "#004040")
        , (r15, "#002080") ]
 
-       ++ zip (map RealReg [16..31]) (repeat "red")
+       ++ zip (map regSingle [16..31]) (repeat "red")
 #else
 regDotColor :: Reg -> SDoc
 regDotColor    = panic "not defined"