aboutsummaryrefslogtreecommitdiffstats
path: root/lib/hipe/cerl
diff options
context:
space:
mode:
authorKostis Sagonas <[email protected]>2013-02-13 09:07:48 +0100
committerKostis Sagonas <[email protected]>2013-02-13 09:07:48 +0100
commit3de93a0ec93bab8c7bae8f1e34d61ae260a21583 (patch)
tree4f5809715c36b532098dcd082bba36c446d5e37d /lib/hipe/cerl
parent837d81ae4d1e032e91bbc8f8a54158f5ec61c707 (diff)
downloadotp-3de93a0ec93bab8c7bae8f1e34d61ae260a21583.tar.gz
otp-3de93a0ec93bab8c7bae8f1e34d61ae260a21583.tar.bz2
otp-3de93a0ec93bab8c7bae8f1e34d61ae260a21583.zip
Change the return value of hipe_bifs:remove_refs_from/1
In order to avoid an ummatched return warning in erts and make the code more sane, the return value of the bif was changed from [] to 'ok'. (Probably more hipe_bifs need such changes but they will have to wait.) While at it, the code of various functions in hipe_unified_loader was shortened by using lists:foreach/1 instead of explicit recursion.
Diffstat (limited to 'lib/hipe/cerl')
-rw-r--r--lib/hipe/cerl/erl_bif_types.erl2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/hipe/cerl/erl_bif_types.erl b/lib/hipe/cerl/erl_bif_types.erl
index d93ad10bd4..1e298a8d06 100644
--- a/lib/hipe/cerl/erl_bif_types.erl
+++ b/lib/hipe/cerl/erl_bif_types.erl
@@ -1074,7 +1074,7 @@ type(hipe_bifs, ref_set, 2, Xs) ->
strict(arg_types(hipe_bifs, ref_set, 2), Xs, fun (_) -> t_nil() end);
type(hipe_bifs, remove_refs_from, 1, Xs) ->
strict(arg_types(hipe_bifs, remove_refs_from, 1), Xs,
- fun (_) -> t_nil() end);
+ fun (_) -> t_atom('ok') end);
type(hipe_bifs, set_funinfo_native_address, 3, Xs) ->
strict(arg_types(hipe_bifs, set_funinfo_native_address, 3), Xs,
fun (_) -> t_nil() end);