diff options
| author | Björn Gustavsson <[email protected]> | 2010-04-29 06:35:51 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-05-20 12:20:50 +0200 |
| commit | f49f2916ab5d609b44c4233bced10dcc6804cd8a (patch) | |
| tree | 2ff2c022fe66aae41388876934eead553eb786f6 /lib/compiler/src | |
| parent | 329f737c03db51918361e127560a6f700e99028e (diff) | |
| download | otp-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.erl | 8 |
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. %%% |