diff options
| author | Kostis Sagonas <[email protected]> | 2011-02-03 15:08:58 +0200 |
|---|---|---|
| committer | Kostis Sagonas <[email protected]> | 2011-02-03 15:08:58 +0200 |
| commit | 64c8d865a359703077a65d102069272315b17843 (patch) | |
| tree | cbd7112dcbed155555efe1370b71a39086848b3f /lib/hipe/icode | |
| parent | 62dad961329a603110ce0e1d3f62554cc5228152 (diff) | |
| download | otp-64c8d865a359703077a65d102069272315b17843.tar.gz otp-64c8d865a359703077a65d102069272315b17843.tar.bz2 otp-64c8d865a359703077a65d102069272315b17843.zip | |
Fix translation of bs_add's fail labels
Diffstat (limited to 'lib/hipe/icode')
| -rw-r--r-- | lib/hipe/icode/hipe_beam_to_icode.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/hipe/icode/hipe_beam_to_icode.erl b/lib/hipe/icode/hipe_beam_to_icode.erl index 920c94d85c..d7eb035551 100644 --- a/lib/hipe/icode/hipe_beam_to_icode.erl +++ b/lib/hipe/icode/hipe_beam_to_icode.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2010. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -918,7 +918,7 @@ trans_fun([{bs_add, {f,Lbl}, [Old,New,Unit], Res}|Instructions], Env) -> Succ = mk_label(new), [hipe_icode:mk_primop([Temp], '*', [NewVar, hipe_icode:mk_const(Unit)], - hipe_icode:label_name(Succ), Lbl), + hipe_icode:label_name(Succ), map_label(Lbl)), Succ] end end, @@ -930,7 +930,7 @@ trans_fun([{bs_add, {f,Lbl}, [Old,New,Unit], Res}|Instructions], Env) -> [FailLbl, hipe_icode:mk_fail([hipe_icode:mk_const(badarg)], error)]}; true -> - {Lbl, []} + {map_label(Lbl), []} end, IsPos = [hipe_icode:mk_if('>=', [Temp, hipe_icode:mk_const(0)], |