diff options
| author | Raimo Niskanen <[email protected]> | 2012-05-23 16:15:58 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2012-05-23 16:15:58 +0200 |
| commit | 9bbda97f63ba4ee7cd58c266ee69af1059352189 (patch) | |
| tree | 0cb5310804d979aad890a8c73c6883467874084b | |
| parent | 1ba2039020738673b3913be0e48d83713503a3b7 (diff) | |
| parent | 2e5e24abcffa002da8ebb579d869d11416a2a5ae (diff) | |
| download | otp-9bbda97f63ba4ee7cd58c266ee69af1059352189.tar.gz otp-9bbda97f63ba4ee7cd58c266ee69af1059352189.tar.bz2 otp-9bbda97f63ba4ee7cd58c266ee69af1059352189.zip | |
Merge branch 'raimo/tools/remove-fprof-tuple-funs/OTP-10091' into maint
* raimo/tools/remove-fprof-tuple-funs/OTP-10091:
tools: Bump version
tools: Remove usage of tuple funs in fprof
| -rw-r--r-- | lib/tools/src/fprof.erl | 23 | ||||
| -rw-r--r-- | lib/tools/vsn.mk | 2 |
2 files changed, 11 insertions, 14 deletions
diff --git a/lib/tools/src/fprof.erl b/lib/tools/src/fprof.erl index 8165a6c13a..4cbb910f11 100644 --- a/lib/tools/src/fprof.erl +++ b/lib/tools/src/fprof.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2011. All Rights Reserved. +%% Copyright Ericsson AB 2001-2012. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -89,9 +89,7 @@ dbg(_, _, _) -> apply({M, F}, Args) when is_atom(M), is_atom(F), is_list(Args) -> - Arity = length(Args), - Function = fun M:F/Arity, - apply_1(Function, Args, []); + apply_1(M, F, Args, []); apply(Fun, Args) when is_function(Fun), is_list(Args) -> apply_1(Fun, Args, []); @@ -99,26 +97,25 @@ apply(A, B) -> erlang:error(badarg, [A, B]). apply(M, F, Args) when is_atom(M), is_atom(F), is_list(Args) -> - apply_1({M, F}, Args, []); + apply_1(M, F, Args, []); apply({M, F}, Args, Options) when is_atom(M), is_atom(F), is_list(Args), is_list(Options) -> - Arity = length(Args), - Function = fun M:F/Arity, - apply_1(Function, Args, Options); + apply_1(M, F, Args, Options); apply(Fun, Args, Options) when is_function(Fun), is_list(Args), is_list(Options) -> apply_1(Fun, Args, Options); apply(A, B, C) -> erlang:error(badarg, [A, B, C]). -apply(Module, Function, Args, Options) - when is_atom(Module), is_atom(Function), is_list(Args), is_list(Options) -> - Arity = length(Args), - Fun = fun Module:Function/Arity, - apply_1(Fun, Args, Options); +apply(M, F, Args, Options) + when is_atom(M), is_atom(F), is_list(Args), is_list(Options) -> + apply_1(M, F, Args, Options); apply(A, B, C, D) -> erlang:error(badarg, [A, B, C, D]). +apply_1(M, F, Args, Options) -> + Arity = length(Args), + apply_1(fun M:F/Arity, Args, Options). apply_1(Function, Args, Options) -> {[_, Procs, Continue], Options_1} = diff --git a/lib/tools/vsn.mk b/lib/tools/vsn.mk index 30a6d282fe..788ee12900 100644 --- a/lib/tools/vsn.mk +++ b/lib/tools/vsn.mk @@ -1 +1 @@ -TOOLS_VSN = 2.6.7 +TOOLS_VSN = 2.6.8 |