diff options
author | Ben Gamari <ben@smart-cactus.org> | 2016-01-03 01:22:31 (GMT) |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-03 01:22:31 (GMT) |
commit | ed23b494a51c6544da2061377e8e0b07671bd890 (patch) | |
tree | 6de75f00daa9d7c56a49230e66704a4bb7e92d92 | |
parent | fd6e9a1565416a54234115614f4e476cfa68c7b7 (diff) | |
download | ghc-ed23b494a51c6544da2061377e8e0b07671bd890.zip ghc-ed23b494a51c6544da2061377e8e0b07671bd890.tar.gz ghc-ed23b494a51c6544da2061377e8e0b07671bd890.tar.bz2 |
iFix "Allow anywhere"
-rw-r--r-- | compiler/nativeGen/Dwarf.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/Dwarf.hs b/compiler/nativeGen/Dwarf.hs index e946a14..beb44b1 100644 --- a/compiler/nativeGen/Dwarf.hs +++ b/compiler/nativeGen/Dwarf.hs @@ -229,7 +229,7 @@ procToFrame initUws blk flatten b@DebugBlock{ dblPosition=pos, dblUnwind=uws, dblBlocks=blocks } | Just p <- pos = (p, (b, uws')):nested | otherwise = nested -- block was optimized out - where uws' = map (\(UnwindDecl lbl uw) -> UnwindDecl lbl (initUws `Map.union` uw)) uws + where uws' = map (\(UnwindDecl lbl uw) -> UnwindDecl lbl (uw `Map.union` initUws)) uws nested = concatMap flatten blocks -- | If the current procedure has an info table, then we also say that |