diff options
author | Erlang/OTP <otp@erlang.org> | 2011-10-12 15:21:49 +0200 |
---|---|---|
committer | Erlang/OTP <otp@erlang.org> | 2011-10-12 15:21:49 +0200 |
commit | f561a98a9b89738467b52ab5213562de753f6ad2 (patch) | |
tree | eb834ace588820751ae9a7591f1e6f4926e69798 /lib | |
parent | b6dc1a844eab061d0a7153d46e7e68296f15a504 (diff) | |
parent | 36fa068807ef85fdcc85240ca077239ed7d34f5b (diff) | |
download | otp-f561a98a9b89738467b52ab5213562de753f6ad2.tar.gz otp-f561a98a9b89738467b52ab5213562de753f6ad2.tar.bz2 otp-f561a98a9b89738467b52ab5213562de753f6ad2.zip |
Merge branch 'lars/ic/fix-match-bug/OTP-9630' into maint-r14
* lars/ic/fix-match-bug/OTP-9630:
Fix match bug
Diffstat (limited to 'lib')
-rw-r--r-- | lib/ic/doc/src/notes.xml | 16 | ||||
-rw-r--r-- | lib/ic/src/ic_pragma.erl | 6 | ||||
-rw-r--r-- | lib/ic/vsn.mk | 2 |
3 files changed, 20 insertions, 4 deletions
diff --git a/lib/ic/doc/src/notes.xml b/lib/ic/doc/src/notes.xml index de519d5f84..ff289bd76c 100644 --- a/lib/ic/doc/src/notes.xml +++ b/lib/ic/doc/src/notes.xml @@ -31,6 +31,22 @@ </header> <section> + <title>IC 4.2.28</title> + + <section> + <title>Fixed Bugs and Malfunctions</title> + <list type="bulleted"> + <item> + <p> + Incorrect use of ets:match changed to ets:match_object.</p> + <p> + Own Id: OTP-9630 </p> + </item> + </list> + </section> + </section> + + <section> <title>IC 4.2.27</title> <section> diff --git a/lib/ic/src/ic_pragma.erl b/lib/ic/src/ic_pragma.erl index 7f2216b9dc..beaa2852ab 100644 --- a/lib/ic/src/ic_pragma.erl +++ b/lib/ic/src/ic_pragma.erl @@ -1601,7 +1601,7 @@ remove_inheriters(S,RS,InheriterList) -> ReducedInhList; _Other -> CleanList = - ets:match(S, {inherits,'_','_'}), + ets:match_object(S, {inherits,'_','_'}), % CodeOptList = % [X || X <- EtsList, element(1,X) == codeopt], NoInheriters =remove_inheriters2(S,ReducedInhList,CleanList), @@ -1648,7 +1648,7 @@ remove_inh([X],[Y],List,EtsList) -> %%%---------------------------------------------- remove_inherited(S,InheriterList) -> CleanList = - ets:match(S, {inherits, '_', '_'}), + ets:match_object(S, {inherits, '_', '_'}), remove_inherited(S,InheriterList,CleanList). @@ -1766,7 +1766,7 @@ inherits2(_X,Y,Z,EtsList) -> %% false otherwise %% is_inherited_by(Interface1,Interface2,PragmaTab) -> - InheritsList = ets:match(PragmaTab, {inherits, '_', '_'}), + InheritsList = ets:match_object(PragmaTab, {inherits, '_', '_'}), inherits(Interface2,Interface1,InheritsList). diff --git a/lib/ic/vsn.mk b/lib/ic/vsn.mk index 6561ccd2a7..703c8d29eb 100644 --- a/lib/ic/vsn.mk +++ b/lib/ic/vsn.mk @@ -1 +1 @@ -IC_VSN = 4.2.27 +IC_VSN = 4.2.28 |