X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;fp=compiler%2Fcmm%2FPprC.hs;h=3db1be51ebb5519524e9d5e3bda9e9d17e8e7d9d;hp=374058f4be869c49435e481bc7b0f1813e421196;hb=93d047a1096571b75d9911536aecaca547a6f947;hpb=dc6a72b94f1c2de24cf51a2ca8f44ada6db17ab9

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index 374058f..3db1be5 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -143,8 +143,9 @@ pprTop top@(CmmData _section (CmmDataLabel lbl : lits)) =
 -- Floating info table for safe a foreign call.
 pprTop top@(CmmData _section d@(_ : _))
   | CmmDataLabel lbl : lits <- reverse d = 
-  pprDataExterns lits $$
-  pprWordArray lbl lits  
+  let lits' = reverse lits
+  in pprDataExterns lits' $$
+     pprWordArray lbl lits'
 
 -- these shouldn't appear?
 pprTop (CmmData _ _) = panic "PprC.pprTop: can't handle this data"