aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ic/src
diff options
context:
space:
mode:
authorLars Thorsen <[email protected]>2011-10-12 15:11:20 +0200
committerLars Thorsen <[email protected]>2011-10-12 15:20:14 +0200
commit36fa068807ef85fdcc85240ca077239ed7d34f5b (patch)
treeeb834ace588820751ae9a7591f1e6f4926e69798 /lib/ic/src
parentb6dc1a844eab061d0a7153d46e7e68296f15a504 (diff)
downloadotp-36fa068807ef85fdcc85240ca077239ed7d34f5b.tar.gz
otp-36fa068807ef85fdcc85240ca077239ed7d34f5b.tar.bz2
otp-36fa068807ef85fdcc85240ca077239ed7d34f5b.zip
Fix match bug
Incorrect use of ets:match changed to ets:match_object.
Diffstat (limited to 'lib/ic/src')
-rw-r--r--lib/ic/src/ic_pragma.erl6
1 files changed, 3 insertions, 3 deletions
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).