diff options
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/PIC.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs index b9aa8bed3a..5fff8cbdbb 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) |