diff options
| author | Kostis Sagonas <[email protected]> | 2013-02-13 09:07:48 +0100 |
|---|---|---|
| committer | Kostis Sagonas <[email protected]> | 2013-02-13 09:07:48 +0100 |
| commit | 3de93a0ec93bab8c7bae8f1e34d61ae260a21583 (patch) | |
| tree | 4f5809715c36b532098dcd082bba36c446d5e37d /lib/hipe/cerl | |
| parent | 837d81ae4d1e032e91bbc8f8a54158f5ec61c707 (diff) | |
| download | otp-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.erl | 2 |
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); |