From 510aac2a8a8e2618e4ff2069a9df398c05b130fb Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 30 Apr 2008 13:13:49 +0000 Subject: [PATCH] Use panic rather than error in RegLiveness --- compiler/nativeGen/RegLiveness.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/nativeGen/RegLiveness.hs b/compiler/nativeGen/RegLiveness.hs index d5336e4..50af2eb 100644 --- a/compiler/nativeGen/RegLiveness.hs +++ b/compiler/nativeGen/RegLiveness.hs @@ -204,7 +204,7 @@ slurpConflicts live = (consBag rsLiveEntry conflicts, moves) | otherwise - = error "RegLiveness.slurpBlock: bad block" + = panic "RegLiveness.slurpBlock: bad block" slurpLIs rsLive (conflicts, moves) [] = (consBag rsLive conflicts, moves) @@ -557,7 +557,7 @@ livenessSCCs blockmap done concatMap tail $ groupBy (\(a1, _) (a2, _) -> eq a1 a2) $ iterate (\(a, _) -> f a b) $ - (a, error "RegLiveness.livenessSCCs") + (a, panic "RegLiveness.livenessSCCs") linearLiveness :: BlockMap RegSet -> [NatBasicBlock] -- 1.7.10.4