expand "out of stack slots" panic to suggest using -fregs-graph, see #1993

e3971de1 · Simon Marlow · 5642651b · e3971de1
Commit e3971de1 authored Jan 02, 2008 by Simon Marlow
--- 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