[commit: ghc] wip/simd: Ensure that globalRegMaybe returns accurate information for XMM registers. (ba5a39f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/simd
Link       : http://ghc.haskell.org/trac/ghc/changeset/ba5a39f4aae3641c6ca64584580b320a619a92f6/ghc

>---------------------------------------------------------------

commit ba5a39f4aae3641c6ca64584580b320a619a92f6
Author: Geoffrey Mainland <gmainlan at microsoft.com>
Date:   Fri Sep 13 12:00:05 2013 -0400

    Ensure that globalRegMaybe returns accurate information for XMM registers.


>---------------------------------------------------------------

ba5a39f4aae3641c6ca64584580b320a619a92f6
 includes/CodeGen.Platform.hs |   14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/includes/CodeGen.Platform.hs b/includes/CodeGen.Platform.hs
index 8007574..ca0a905 100644
--- a/includes/CodeGen.Platform.hs
+++ b/includes/CodeGen.Platform.hs
@@ -587,13 +587,25 @@ globalRegMaybe (DoubleReg 6)            =
                                           Just (RealRegSingle REG_D6)
 #  endif
 # endif
-#if MAX_REAL_XMM_REG != 0
+# if MAX_REAL_XMM_REG != 0
+#  ifdef REG_XMM1
 globalRegMaybe (XmmReg 1)               = Just (RealRegSingle REG_XMM1)
+#  endif
+#  ifdef REG_XMM2
 globalRegMaybe (XmmReg 2)               = Just (RealRegSingle REG_XMM2)
+#  endif
+#  ifdef REG_XMM3
 globalRegMaybe (XmmReg 3)               = Just (RealRegSingle REG_XMM3)
+#  endif
+#  ifdef REG_XMM4
 globalRegMaybe (XmmReg 4)               = Just (RealRegSingle REG_XMM4)
+#  endif
+#  ifdef REG_XMM5
 globalRegMaybe (XmmReg 5)               = Just (RealRegSingle REG_XMM5)
+#  endif
+#  ifdef REG_XMM6
 globalRegMaybe (XmmReg 6)               = Just (RealRegSingle REG_XMM6)
+#  endif
 # endif
 # ifdef REG_Sp
 globalRegMaybe Sp                       = Just (RealRegSingle REG_Sp)