aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2010-05-02 11:41:44 +0200
committerRaimo Niskanen <[email protected]>2010-05-20 12:20:51 +0200
commit5ab37cb8998d5db126aa1dc9e8ac6a382e7f53ca (patch)
tree16e2e860c3fbeb178de96f2a55c26218d564f90c
parent90c06110650990280174ff50ab3d504e645d61e4 (diff)
downloadotp-5ab37cb8998d5db126aa1dc9e8ac6a382e7f53ca.tar.gz
otp-5ab37cb8998d5db126aa1dc9e8ac6a382e7f53ca.tar.bz2
otp-5ab37cb8998d5db126aa1dc9e8ac6a382e7f53ca.zip
beam_type: Remove redundant clause
The clause does not server any useful purpose, since it does the same as the default clause at the end.
-rw-r--r--lib/compiler/src/beam_type.erl4
1 files changed, 0 insertions, 4 deletions
diff --git a/lib/compiler/src/beam_type.erl b/lib/compiler/src/beam_type.erl
index 3729ccb0da..f83f73b224 100644
--- a/lib/compiler/src/beam_type.erl
+++ b/lib/compiler/src/beam_type.erl
@@ -76,9 +76,6 @@ simplify_basic_1([{set,[D],[{integer,Index},Reg],{bif,element,_}}=I0|Is], Ts0, A
end,
Ts = update(I, Ts0),
simplify_basic_1(Is, Ts, [I|Acc]);
-simplify_basic_1([{set,[_],[_],{bif,_,{f,0}}}=I|Is], Ts0, Acc) ->
- Ts = update(I, Ts0),
- simplify_basic_1(Is, Ts, [I|Acc]);
simplify_basic_1([{set,[D],[TupleReg],{get_tuple_element,0}}=I|Is0], Ts0, Acc) ->
case tdb_find(TupleReg, Ts0) of
{tuple,_,[Contents]} ->
@@ -118,7 +115,6 @@ simplify_basic_1([{test,is_record,_,[R,{atom,_}=Tag,{integer,Arity}]}=I|Is], Ts0
Ts = update(I, Ts0),
simplify_basic_1(Is, Ts, [I|Acc])
end;
-
simplify_basic_1([I|Is], Ts0, Acc) ->
Ts = update(I, Ts0),
simplify_basic_1(Is, Ts, [I|Acc]);