From 7aa15ca8ed7b37efbd970822a3e0a3fe5e8a9c8a Mon Sep 17 00:00:00 2001 From: "Edward Z. Yang" Date: Wed, 27 Apr 2011 17:54:15 +0100 Subject: [PATCH] Fix bug in multi-destination jump patching. Signed-off-by: Edward Z. Yang --- compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs b/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs index 903082f..ef6ae9b 100644 --- a/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs +++ b/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs @@ -190,7 +190,7 @@ joinToTargets_again _ -> let instr' = patchJumpInstr instr (\bid -> if bid == dest then mkBlockId fixup_block_id - else dest) + else bid) -- no change! in joinToTargets' block_live (block : new_blocks) block_id instr' dests -- 1.7.10.4