[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
ggreif at gmail.com
Fri Apr 12 00:45:19 CEST 2013
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)
More information about the ghc-commits
mailing list