diff options
author | Björn Gustavsson <[email protected]> | 2011-03-23 16:06:40 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2011-08-16 08:58:46 +0200 |
commit | ae7858a2631df405f4460f6aefb1e08077d61a3a (patch) | |
tree | fb5f45feddcb31b131baff76a3f4bbc9254baa90 /lib | |
parent | 5cdd2f9d7c1d1846ee09caae3b8dfdb83ef76405 (diff) | |
download | otp-ae7858a2631df405f4460f6aefb1e08077d61a3a.tar.gz otp-ae7858a2631df405f4460f6aefb1e08077d61a3a.tar.bz2 otp-ae7858a2631df405f4460f6aefb1e08077d61a3a.zip |
dbg_iload: Remove unnecessary handling of old guard tests
sys_pre_expand has already rewritten old guard tests to
new guard tests.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/debugger/src/dbg_iload.erl | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/lib/debugger/src/dbg_iload.erl b/lib/debugger/src/dbg_iload.erl index ab7f40eeea..c94dce1b5e 100644 --- a/lib/debugger/src/dbg_iload.erl +++ b/lib/debugger/src/dbg_iload.erl @@ -234,12 +234,7 @@ and_guard([]) -> []. guard_test({call,Line,{remote,_,{atom,_,erlang},{atom,_,F}},As0}) -> As = gexpr_list(As0), - case map_guard_bif(F, length(As0)) of - {ok,Name} -> - {safe_bif,Line,erlang,Name,As}; - error -> - {safe_bif,Line,erlang,F,As} - end; + {safe_bif,Line,erlang,F,As}; guard_test({op,Line,Op,L0}) -> true = erl_internal:arith_op(Op, 1) orelse %Assertion. erl_internal:bool_op(Op, 1), @@ -263,19 +258,6 @@ guard_test({atom,_,_}=A) -> A; guard_test({nil,_}=N) -> N; guard_test({var,_,_}=V) ->V. % Boolean var -map_guard_bif(integer, 1) -> {ok,is_integer}; -map_guard_bif(float, 1) -> {ok,is_float}; -map_guard_bif(number, 1) -> {ok,is_number}; -map_guard_bif(atom, 1) -> {ok,is_atom}; -map_guard_bif(list, 1) -> {ok,is_list}; -map_guard_bif(tuple, 1) -> {ok,is_tuple}; -map_guard_bif(pid, 1) -> {ok,is_pid}; -map_guard_bif(reference, 1) -> {ok,is_reference}; -map_guard_bif(port, 1) -> {ok,is_port}; -map_guard_bif(binary, 1) -> {ok,is_binary}; -map_guard_bif(function, 1) -> {ok,is_function}; -map_guard_bif(_, _) -> error. - gexpr({var,Line,V}) -> {var,Line,V}; gexpr({integer,Line,I}) -> {value,Line,I}; gexpr({char,Line,I}) -> {value,Line,I}; |