aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/src
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2010-04-29 06:35:51 +0200
committerRaimo Niskanen <[email protected]>2010-05-20 12:20:50 +0200
commitf49f2916ab5d609b44c4233bced10dcc6804cd8a (patch)
tree2ff2c022fe66aae41388876934eead553eb786f6 /lib/compiler/src
parent329f737c03db51918361e127560a6f700e99028e (diff)
downloadotp-f49f2916ab5d609b44c4233bced10dcc6804cd8a.tar.gz
otp-f49f2916ab5d609b44c4233bced10dcc6804cd8a.tar.bz2
otp-f49f2916ab5d609b44c4233bced10dcc6804cd8a.zip
v3_core: Remove a clause in is_simple/1 that cannot match
The is_simple/1 function does not need to handle #c_binary{}, since it will never be called with a #c_binary{} argument.
Diffstat (limited to 'lib/compiler/src')
-rw-r--r--lib/compiler/src/v3_core.erl8
1 files changed, 0 insertions, 8 deletions
diff --git a/lib/compiler/src/v3_core.erl b/lib/compiler/src/v3_core.erl
index e049871cb4..16c5b6b415 100644
--- a/lib/compiler/src/v3_core.erl
+++ b/lib/compiler/src/v3_core.erl
@@ -2090,20 +2090,12 @@ is_simple(#c_literal{}) -> true;
is_simple(#c_cons{hd=H,tl=T}) ->
is_simple(H) andalso is_simple(T);
is_simple(#c_tuple{es=Es}) -> is_simple_list(Es);
-is_simple(#c_binary{segments=Es}) -> is_simp_bin(Es);
is_simple(_) -> false.
-spec is_simple_list([cerl:cerl()]) -> boolean().
is_simple_list(Es) -> lists:all(fun is_simple/1, Es).
--spec is_simp_bin([cerl:cerl()]) -> boolean().
-
-is_simp_bin(Es) ->
- lists:all(fun (#c_bitstr{val=E,size=S}) ->
- is_simple(E) andalso is_simple(S)
- end, Es).
-
%%%
%%% Handling of warnings.
%%%