Fix pprCLabel on platforms without native codegen.
authorShea Levy <shea@shealevy.com>
Wed, 14 Dec 2016 21:46:27 +0000 (16:46 -0500)
committerBen Gamari <ben@smart-cactus.org>
Thu, 15 Dec 2016 15:42:25 +0000 (10:42 -0500)
D1290 added a panic in a code path that can be reached when
!cGhcWithNativeCodeGen.  This reverts just that part of that patch.

Reviewers: austin, simonmar, bgamari, xnyhps

Reviewed By: simonmar

Subscribers: xnyhps, thomie

Differential Revision: https://phabricator.haskell.org/D2831

compiler/cmm/CLabel.hs

index 7317ea4..3fd081c 100644 (file)
@@ -1113,8 +1113,8 @@ pprAsmCLbl _ lbl
    = pprCLbl lbl
 
 pprCLbl :: CLabel -> SDoc
-pprCLbl (StringLitLabel _)
-  = panic "pprCLbl StringLitLabel"
+pprCLbl (StringLitLabel u)
+  = pprUnique u <> text "_str"
 
 pprCLbl (CaseLabel u CaseReturnPt)
   = hcat [pprUnique u, text "_ret"]