From: Simon Marlow Date: Tue, 5 Apr 2011 14:18:47 +0000 (+0100) Subject: allocateRegsAndSpill: disable a panic for the time being (see comment) X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=40589658a18f116acea1664b1e75eb74385a2e87;p=ghc-hetmet.git allocateRegsAndSpill: disable a panic for the time being (see comment) --- 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