Commit 1fdb39b5 authored by Simon Marlow's avatar Simon Marlow
Browse files

Don't call computeSRTs when -fnew-codegen is on

parent 46a772f8
......@@ -816,7 +816,7 @@ assignTemp' e
-- the nested bindings via the monad.
getSRTInfo :: SRT -> FCode C_SRT
getSRTInfo (SRTEntries {}) = panic "getSRTInfo"
getSRTInfo (SRTEntries {}) = return NoC_SRT --panic "getSRTInfo"
getSRTInfo (SRT off len bmp)
| len > hALF_WORD_SIZE_IN_BITS || bmp == [fromIntegral srt_escape]
......
......@@ -52,7 +52,9 @@ stg2stg dflags module_name binds
; (processed_binds, _, cost_centres)
<- foldl_mn do_stg_pass (binds', us', ccs) (getStgToDo dflags)
; let srt_binds = computeSRTs processed_binds
; let srt_binds
| dopt Opt_TryNewCodeGen dflags = zip processed_binds (repeat [])
| otherwise = computeSRTs processed_binds
; dumpIfSet_dyn dflags Opt_D_dump_stg "STG syntax:"
(pprStgBindingsWithSRTs srt_binds)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment