From 40589658a18f116acea1664b1e75eb74385a2e87 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 5 Apr 2011 15:18:47 +0100 Subject: [PATCH] allocateRegsAndSpill: disable a panic for the time being (see comment) --- compiler/nativeGen/RegAlloc/Linear/Main.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index c181f0e..473b549 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -621,7 +621,14 @@ allocateRegsAndSpill reading keep spills alloc (r:rs) -- Not already in a register, so we need to find a free one... Just (InMem slot) | reading -> doSpill (ReadMem slot) | otherwise -> doSpill WriteMem - Nothing | reading -> panic "allocateRegsAndSpill: Cannot read from uninitialized register" + Nothing | reading -> + -- pprPanic "allocateRegsAndSpill: Cannot read from uninitialized register" (ppr r) + -- ToDo: This case should be a panic, but we + -- sometimes see an unreachable basic block which + -- triggers this because the register allocator + -- will start with an empty assignment. + doSpill WriteNew + | otherwise -> doSpill WriteNew -- 1.7.10.4