diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-12-07 23:20:10 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-12-07 23:20:11 -0500 |
| commit | 38edeea990b455fa8bf201bb9190a0719663bf76 (patch) | |
| tree | a30233ee2523ed017f60f201249bdc757b1a7b59 /rts | |
| parent | 665f8b0c778b3a5dac4696f81da0cea88b101ea9 (diff) | |
| download | haskell-38edeea990b455fa8bf201bb9190a0719663bf76.tar.gz | |
Mark SRT_1/SRT_2 as CONSTR_1_0/CONSTR_2_0
Test Plan:
Validated locally, but skipped perf tests as there's a
framework-related error
there.
Reviewers: simonmar, bgamari, erikd
Reviewed By: simonmar
Subscribers: rwbarton, carter
Differential Revision: https://phabricator.haskell.org/D5421
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index c3a83dd059..fdd9f1565e 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -512,10 +512,10 @@ CLOSURE(stg_NO_TREC_closure,stg_NO_TREC); See Note [SRTs] in compiler/cmm/CmmBuildInfoTable.hs ------------------------------------------------------------------------- */ -INFO_TABLE_CONSTR(stg_SRT_1, 1, 0, 0, CONSTR, "SRT_1", "SRT_1") +INFO_TABLE_CONSTR(stg_SRT_1, 1, 0, 0, CONSTR_1_0, "SRT_1", "SRT_1") { foreign "C" barf("SRT_1 object (%p) entered!", R1) never returns; } -INFO_TABLE_CONSTR(stg_SRT_2, 2, 0, 0, CONSTR, "SRT_2", "SRT_2") +INFO_TABLE_CONSTR(stg_SRT_2, 2, 0, 0, CONSTR_2_0, "SRT_2", "SRT_2") { foreign "C" barf("SRT_2 object (%p) entered!", R1) never returns; } INFO_TABLE_CONSTR(stg_SRT_3, 3, 0, 0, CONSTR, "SRT_3", "SRT_3") |