From 35f6804946b22ef9a813c27780d4760c157a3c3d Mon Sep 17 00:00:00 2001
From: Anthony Ramine <n.oxyde@gmail.com>
Date: Mon, 3 Mar 2014 14:12:20 +0100
Subject: Properly collect labels in put_map instructions in beam_jump

Reported-by: Ulf Norell
---
 lib/compiler/src/beam_jump.erl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/compiler/src')

diff --git a/lib/compiler/src/beam_jump.erl b/lib/compiler/src/beam_jump.erl
index 0fc8d45c80..00b38637c1 100644
--- a/lib/compiler/src/beam_jump.erl
+++ b/lib/compiler/src/beam_jump.erl
@@ -446,6 +446,7 @@ is_label_used_in_2({set,_,_,Info}, Lbl) ->
     case Info of
 	{bif,_,{f,F}} -> F =:= Lbl;
 	{alloc,_,{gc_bif,_,{f,F}}} -> F =:= Lbl;
+        {alloc,_,{put_map,_,{f,F}}} -> F =:= Lbl;
 	{'catch',{f,F}} -> F =:= Lbl;
 	{alloc,_,_} -> false;
 	{put_tuple,_} -> false;
-- 
cgit v1.2.3