diff options
| author | Geoffrey Mainland <gmainlan@microsoft.com> | 2013-09-13 12:00:05 -0400 |
|---|---|---|
| committer | Geoffrey Mainland <gmainlan@microsoft.com> | 2013-09-22 22:33:59 -0400 |
| commit | bdcf210adf89cc26620422feb65f29eee9392318 (patch) | |
| tree | 1fb6c1eca5af4dd289f22ea27c9275e96278d03b | |
| parent | 6e6e6f5bfdfc3996603064523af6e2be2c5131fa (diff) | |
| download | haskell-bdcf210adf89cc26620422feb65f29eee9392318.tar.gz | |
Ensure that globalRegMaybe returns accurate information for XMM registers.
| -rw-r--r-- | includes/CodeGen.Platform.hs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/includes/CodeGen.Platform.hs b/includes/CodeGen.Platform.hs index 8007574b10..ca0a905d40 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) |