Floating infotables were reversed in C back end

[ghc-hetmet.git] / compiler / cmm / CmmBuildInfoTables.hs

diff --git a/compiler/cmm/CmmBuildInfoTables.hs b/compiler/cmm/CmmBuildInfoTables.hs
index 9a72166..f24aceb 100644 (file)
--- a/compiler/cmm/CmmBuildInfoTables.hs
+++ b/compiler/cmm/CmmBuildInfoTables.hs
@@ -494,8 +494,9 @@ lowerSafeForeignCalls procpoints rst
          then lowerSafeCallBlock state' b
          else return (state' { s_blocks = insertBlock b blocks })
   State blocks' g_procpoints safeCalls <- fold_blocks block init g
-  return $ (ProcInfoTable (CmmProc info l args (LGraph entry off blocks')) g_procpoints
-               : safeCalls) : rst
+  return $ safeCalls
+           : [ProcInfoTable (CmmProc info l args (LGraph entry off blocks')) g_procpoints]
+           : rst
 
 -- Check for foreign calls -- if none, then we can avoid copying the block.
 hasSafeForeignCall :: CmmBlock -> Bool