diff options
Diffstat (limited to 'compiler/codeGen/StgCmmLayout.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 0e9cebfea4..5bcb67f82b 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -542,7 +542,7 @@ emitClosureAndInfoTable :: emitClosureAndInfoTable info_tbl conv args body = do { blks <- getCode body ; let entry_lbl = toEntryLbl (cit_lbl info_tbl) - ; emitProcWithConvention conv info_tbl entry_lbl args blks + ; emitProcWithConvention conv (Just info_tbl) entry_lbl args blks } ----------------------------------------------------------------------------- |