[commit: ghc] master: Mark SRT_1/SRT_2 as CONSTR_1_0/CONSTR_2_0 (38edeea)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/38edeea990b455fa8bf201bb9190a0719663bf76/ghc

>---------------------------------------------------------------

commit 38edeea990b455fa8bf201bb9190a0719663bf76
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Fri Dec 7 23:20:10 2018 -0500

    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


>---------------------------------------------------------------

38edeea990b455fa8bf201bb9190a0719663bf76
 rts/StgMiscClosures.cmm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm
index c3a83dd..fdd9f15 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")