diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-08-31 16:05:26 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-08-31 16:09:25 +0200 |
| commit | 737f36823d03a6c9d92f56e3e2433a3961780e13 (patch) | |
| tree | 251c4655db37e898ac10a31ac37735e0cb1bcd9a /compiler/nativeGen/X86 | |
| parent | a8a969ae7a05e408b29961d0a2ea621a16d73d3e (diff) | |
| download | haskell-737f36823d03a6c9d92f56e3e2433a3961780e13.tar.gz | |
`M-x delete-trailing-whitespace` & `M-x untabify`...
...some files more or less recently touched by me
[ci skip]
Diffstat (limited to 'compiler/nativeGen/X86')
| -rw-r--r-- | compiler/nativeGen/X86/Instr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/X86/Instr.hs b/compiler/nativeGen/X86/Instr.hs index a43d42ec2a..7d382455d9 100644 --- a/compiler/nativeGen/X86/Instr.hs +++ b/compiler/nativeGen/X86/Instr.hs @@ -955,10 +955,10 @@ allocMoreStack platform slots proc@(CmmProc info lbl live (ListGraph code)) = do alloc = mkStackAllocInstr platform delta dealloc = mkStackDeallocInstr platform delta - + new_blockmap :: BlockEnv BlockId new_blockmap = mapFromList (zip entries (map mkBlockId uniqs)) - + insert_stack_insns (BasicBlock id insns) | Just new_blockid <- mapLookup id new_blockmap = [ BasicBlock id [alloc, JXX ALWAYS new_blockid] |