diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-01-02 15:07:37 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-01-02 15:07:37 +0000 |
| commit | e3971de1fe67e414060047c09c4d5c64c7083981 (patch) | |
| tree | 4628c484a76473f96da0ceb1eef76e7d91319256 /compiler/nativeGen/RegAllocLinear.hs | |
| parent | 5642651b4ac4da3c9c5981ffcde9baf09217a296 (diff) | |
| download | haskell-e3971de1fe67e414060047c09c4d5c64c7083981.tar.gz | |
expand "out of stack slots" panic to suggest using -fregs-graph, see #1993
Diffstat (limited to 'compiler/nativeGen/RegAllocLinear.hs')
| -rw-r--r-- | compiler/nativeGen/RegAllocLinear.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs index 888ef16c70..e6491b77ee 100644 --- a/compiler/nativeGen/RegAllocLinear.hs +++ b/compiler/nativeGen/RegAllocLinear.hs @@ -222,7 +222,8 @@ emptyStackMap = StackMap [0..maxSpillSlots] emptyUFM getStackSlotFor :: StackMap -> Unique -> (StackMap,Int) getStackSlotFor (StackMap [] _) _ - = panic "RegAllocLinear.getStackSlotFor: out of stack slots" + = panic "RegAllocLinear.getStackSlotFor: out of stack slots, try -fregs-graph" + -- This happens with darcs' SHA1.hs, see #1993 getStackSlotFor fs@(StackMap (freeSlot:stack') reserved) reg = case lookupUFM reserved reg of |