aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/src
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2011-12-27 11:36:03 +0100
committerBjörn Gustavsson <[email protected]>2012-01-11 08:39:57 +0100
commit1955804aaf831f943941555ab6f46ee22e5a0dac (patch)
treeb447cec76ec2d725cf8434bf3d40237b0d7ebcad /lib/compiler/src
parentb53fc3c306f02108f07fa3870bd2555ae8bb17b2 (diff)
downloadotp-1955804aaf831f943941555ab6f46ee22e5a0dac.tar.gz
otp-1955804aaf831f943941555ab6f46ee22e5a0dac.tar.bz2
otp-1955804aaf831f943941555ab6f46ee22e5a0dac.zip
v3_kernel: Remove clauses that are never executed in arg_val/1
arg_val/1 will never be called for single-valued types, so there is no need handle these types.
Diffstat (limited to 'lib/compiler/src')
-rw-r--r--lib/compiler/src/v3_kernel.erl8
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/compiler/src/v3_kernel.erl b/lib/compiler/src/v3_kernel.erl
index 31829ab9bd..67e22a5662 100644
--- a/lib/compiler/src/v3_kernel.erl
+++ b/lib/compiler/src/v3_kernel.erl
@@ -1391,15 +1391,9 @@ arg_val(Arg) ->
#k_int{val=I} -> I;
#k_float{val=F} -> F;
#k_atom{val=A} -> A;
- #k_nil{} -> 0;
- #k_cons{} -> 2;
#k_tuple{es=Es} -> length(Es);
#k_bin_seg{size=S,unit=U,type=T,flags=Fs} ->
- {set_kanno(S, []),U,T,Fs};
- #k_bin_int{} ->
- 0;
- #k_bin_end{} -> 0;
- #k_binary{} -> 0
+ {set_kanno(S, []),U,T,Fs}
end.
%% ubody_used_vars(Expr, State) -> [UsedVar]