diff options
| author | Björn Gustavsson <[email protected]> | 2010-05-02 11:41:44 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-05-20 12:20:51 +0200 |
| commit | 5ab37cb8998d5db126aa1dc9e8ac6a382e7f53ca (patch) | |
| tree | 16e2e860c3fbeb178de96f2a55c26218d564f90c | |
| parent | 90c06110650990280174ff50ab3d504e645d61e4 (diff) | |
| download | otp-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.erl | 4 |
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]); |