\begin{code}
module SRT where
-import Id ( Id, setIdCafInfo, idCafInfo, externallyVisibleId,
- )
-import CoreUtils( idAppIsBottom )
-import IdInfo ( CafInfo(..) )
+import Id ( Id, setIdCafInfo, idCafInfo, externallyVisibleId )
+import CoreUtils ( idAppIsBottom )
+import IdInfo ( CafInfo(..) )
import StgSyn
import UniqFM
import UniqSet
+
+#ifdef DEBUG
+import Outputable
+import Panic
+#endif
\end{code}
\begin{code}
srtExpr rho cont off (StgSCC cc expr) =
srtExpr rho cont off expr =: \(expr, g, srt, off) ->
(StgSCC cc expr, g, srt, off)
+
+#ifdef DEBUG
+srtExpr rho cont off expr = pprPanic "srtExpr" (ppr expr)
+#else
+srtExpr rho cont off expr = panic "srtExpr"
+#endif
\end{code}
-----------------------------------------------------------------------------