From d10fd4596270d7f8503dc46a0a7c229ad08795d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Fri, 29 Jun 2018 14:14:40 +0200
Subject: Eliminate a crash in the beam_jump pass

https://bugs.erlang.org/browse/ERL-660
---
 lib/compiler/src/beam_utils.erl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/compiler/src')

diff --git a/lib/compiler/src/beam_utils.erl b/lib/compiler/src/beam_utils.erl
index 5510624b2d..30b6dcac8c 100644
--- a/lib/compiler/src/beam_utils.erl
+++ b/lib/compiler/src/beam_utils.erl
@@ -355,6 +355,9 @@ split_even(Rs) -> split_even(Rs, [], []).
 %%                    exit BIF will raise an exception
 %%    used - Reg is used
 
+check_liveness({fr,_}, _, St) ->
+    %% Conservatively always consider the floating point register used.
+    {used,St};
 check_liveness(R, [{block,Blk}|Is], St0) ->
     case check_liveness_block(R, Blk, St0) of
 	{transparent,St1} ->
-- 
cgit v1.2.3