Add bodyToBlockMap and bodyOfBlockMap.
Add bodyToBlockMap and bodyOfBlockMap.

This is shady, but a lot of GHC code in compiler/cmm expects
the blocks in a closed graph to be in a map.

hvr/hoopl,hvr/hoopl,ezyang/hoopl