diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-10 16:18:54 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-10 16:18:54 +0100 |
| commit | b8bfab8076f1d8fd5ed1d634fee82fd4d2fc0ed8 (patch) | |
| tree | e736c4fd8a77773e081e3987d4c17bb2a9e7c98e /compiler/codeGen/CgStackery.lhs | |
| parent | c548f91feddf149ee4d3358483828f2d4c0ec41b (diff) | |
| parent | 713cf473de8a2ad7d0b8195d78860c25fec41839 (diff) | |
| download | haskell-b8bfab8076f1d8fd5ed1d634fee82fd4d2fc0ed8.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/codeGen/CgStackery.lhs')
| -rw-r--r-- | compiler/codeGen/CgStackery.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/CgStackery.lhs b/compiler/codeGen/CgStackery.lhs index 2628760183..a869795caa 100644 --- a/compiler/codeGen/CgStackery.lhs +++ b/compiler/codeGen/CgStackery.lhs @@ -43,6 +43,7 @@ import OrdList import Outputable import Control.Monad +import Data.List \end{code} %************************************************************************ @@ -333,7 +334,7 @@ Explicitly free some stack space. freeStackSlots :: [VirtualSpOffset] -> Code freeStackSlots extra_free = do { stk_usg <- getStkUsage - ; let all_free = addFreeSlots (freeStk stk_usg) (sortLe (<=) extra_free) + ; let all_free = addFreeSlots (freeStk stk_usg) (sort extra_free) ; let (new_vsp, new_free) = trim (virtSp stk_usg) all_free ; setStkUsage (stk_usg { virtSp = new_vsp, freeStk = new_free }) } |