diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-02-15 06:19:40 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-02-15 06:19:40 +0000 |
| commit | 17839aa386be663260622e5b86980e6fd9bb89a4 (patch) | |
| tree | 3c0d6207bd98f44aa9e9f6efc2ad4afbf038d510 /compiler/nativeGen | |
| parent | b04a210e26ca57242fd052f2aa91011a80b76299 (diff) | |
| download | haskell-17839aa386be663260622e5b86980e6fd9bb89a4.tar.gz | |
SPARC NCG: Don't release top half of f6 and f8
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs index 5514056318..2b624c76f3 100644 --- a/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs +++ b/compiler/nativeGen/RegAlloc/Linear/SPARC/FreeRegs.hs @@ -128,12 +128,14 @@ releaseReg r regs@(FreeRegs g f d) -- don't release the high part of double regs -- this prevents them from being allocated as single precison regs. - | r == 43 = regs - | r == 45 = regs - | r == 47 = regs - | r == 49 = regs - | r == 51 = regs - | r == 53 = regs + | r == 39 = regs + | r == 41 = regs + | r == 43 = regs + | r == 45 = regs + | r == 47 = regs + | r == 49 = regs + | r == 51 = regs + | r == 53 = regs -- a general purpose reg | r <= 31 |