X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=3ab10a431c196de9731ac5fc81a029fcf6652827;hp=933503e4915742d14184463212503051a61a4b62;hb=0cb74388d80c12f0804db61744a041be7fcfa10b;hpb=4ac17e1a625698df98fdc807118c0bb81aefdeb1

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 933503e..3ab10a4 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -1026,6 +1026,11 @@ hscParseThing parser dflags str
 compileExpr :: HscEnv -> SrcSpan -> CoreExpr -> IO HValue
 
 compileExpr hsc_env srcspan ds_expr
+  | rtsIsProfiled
+  = panic "You can't call compileExpr in a profiled compiler"
+    	  -- Otherwise you get a seg-fault when you run it
+
+  | otherwise
   = do	{ let { dflags  = hsc_dflags hsc_env ;
 		lint_on = dopt Opt_DoCoreLinting dflags }