diff options
| author | Björn Gustavsson <[email protected]> | 2011-12-27 11:36:03 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-11 08:39:57 +0100 |
| commit | 1955804aaf831f943941555ab6f46ee22e5a0dac (patch) | |
| tree | b447cec76ec2d725cf8434bf3d40237b0d7ebcad | |
| parent | b53fc3c306f02108f07fa3870bd2555ae8bb17b2 (diff) | |
| download | otp-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.
| -rw-r--r-- | lib/compiler/src/v3_kernel.erl | 8 |
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] |