diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-09-15 08:09:56 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-09-15 08:09:56 +0100 |
| commit | cf02909e1fc10597c3291817ab905d426307405b (patch) | |
| tree | dea7dbee8ca23d57168ccedb1c5e2e92a2ef9b91 /compiler/nativeGen/RegAlloc/Linear/StackMap.hs | |
| parent | 7d83fdea229b940ae198ddc5c179ac449defd2ef (diff) | |
| parent | c3f4c6fa3228102eaada6efde8049724461a3bb0 (diff) | |
| download | haskell-cf02909e1fc10597c3291817ab905d426307405b.tar.gz | |
Merge remote branch 'origin/master'
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Linear/StackMap.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/StackMap.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs index ea05cf0d0f..b1fc3c169e 100644 --- a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs +++ b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs @@ -28,8 +28,8 @@ where import RegAlloc.Linear.FreeRegs +import DynFlags import Outputable -import Platform import UniqFM import Unique @@ -47,8 +47,8 @@ data StackMap -- | An empty stack map, with all slots available. -emptyStackMap :: Platform -> StackMap -emptyStackMap platform = StackMap [0 .. maxSpillSlots platform] emptyUFM +emptyStackMap :: DynFlags -> StackMap +emptyStackMap dflags = StackMap [0 .. maxSpillSlots dflags] emptyUFM -- | If this vreg unique already has a stack assignment then return the slot number, |