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 ...@@ -816,7 +816,7 @@ assignTemp' e
-- the nested bindings via the monad. -- the nested bindings via the monad.
getSRTInfo :: SRT -> FCode C_SRT getSRTInfo :: SRT -> FCode C_SRT
getSRTInfo (SRTEntries {}) = panic "getSRTInfo" getSRTInfo (SRTEntries {}) = return NoC_SRT --panic "getSRTInfo"
getSRTInfo (SRT off len bmp) getSRTInfo (SRT off len bmp)
| len > hALF_WORD_SIZE_IN_BITS || bmp == [fromIntegral srt_escape] | len > hALF_WORD_SIZE_IN_BITS || bmp == [fromIntegral srt_escape]
......
...@@ -52,7 +52,9 @@ stg2stg dflags module_name binds ...@@ -52,7 +52,9 @@ stg2stg dflags module_name binds
; (processed_binds, _, cost_centres) ; (processed_binds, _, cost_centres)
<- foldl_mn do_stg_pass (binds', us', ccs) (getStgToDo dflags) <- 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:" ; dumpIfSet_dyn dflags Opt_D_dump_stg "STG syntax:"
(pprStgBindingsWithSRTs srt_binds) (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