[commit: ghc] master: Make explicit that there can be only one entry point per cmm procedure on Darwin/PPC, because of splitting. (6afa777)

[Gabor Greif]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/6afa7779b9614aea7130238b31f4864616f9205e

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

commit 6afa7779b9614aea7130238b31f4864616f9205e
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Apr 8 01:38:49 2013 +0200

    Make explicit that there can be only one entry point
    per cmm procedure on Darwin/PPC, because of splitting.
    
    x86 should be treated the same way, I'll come back to that later.

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

 compiler/nativeGen/PIC.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs
index b9aa8be..5fff8cb 100644
--- a/compiler/nativeGen/PIC.hs
+++ b/compiler/nativeGen/PIC.hs
@@ -729,10 +729,10 @@ initializePicBase_ppc ArchPPC os picReg
 
 
 initializePicBase_ppc ArchPPC OSDarwin picReg
-        (CmmProc info lab live (ListGraph blocks) : statics)
-        = return (CmmProc info lab live (ListGraph (b':tail blocks)) : statics)
+        (CmmProc info lab live (ListGraph (entry:blocks)) : statics) -- just one entry because of splitting
+        = return (CmmProc info lab live (ListGraph (b':blocks)) : statics)
 
-        where   BasicBlock bID insns = head blocks
+        where   BasicBlock bID insns = entry
                 b' = BasicBlock bID (PPC.FETCHPC picReg : insns)