diff options
| author | Anthony Ramine <[email protected]> | 2013-01-15 13:15:48 +0100 |
|---|---|---|
| committer | Anthony Ramine <[email protected]> | 2013-01-15 13:15:48 +0100 |
| commit | ed8afbbde6e8a90f415f8bd2d8d0a19d759fb7e3 (patch) | |
| tree | 2609689378f5d29da128764d11e1302fc2dc75a9 /lib/tools/test/cprof_SUITE.erl | |
| parent | ec1b411e94a7ce7bb24e7c2014a59c3030d0abbb (diff) | |
| download | otp-ed8afbbde6e8a90f415f8bd2d8d0a19d759fb7e3.tar.gz otp-ed8afbbde6e8a90f415f8bd2d8d0a19d759fb7e3.tar.bz2 otp-ed8afbbde6e8a90f415f8bd2d8d0a19d759fb7e3.zip | |
Don't use fun references in cprof_SUITE
Using fun references make a less complicated cprof use case now that the
eta abstraction is gone from v3_kernel.
Diffstat (limited to 'lib/tools/test/cprof_SUITE.erl')
| -rw-r--r-- | lib/tools/test/cprof_SUITE.erl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/tools/test/cprof_SUITE.erl b/lib/tools/test/cprof_SUITE.erl index ce5cf66a14..93caee0c8f 100644 --- a/lib/tools/test/cprof_SUITE.erl +++ b/lib/tools/test/cprof_SUITE.erl @@ -230,10 +230,10 @@ on_load_test(Config) -> %% ?line N4 = cprof:restart(), ?line {ok,Module} = c:c(File, [{outdir,Priv}]), - ?line L = Module:seq(1, M, fun succ/1), - ?line Lr = Module:seq_r(1, M, fun succ/1), - ?line L = seq(1, M, fun succ/1), - ?line Lr = seq_r(1, M, fun succ/1), + ?line L = Module:seq(1, M, fun (I) -> succ(I) end), + ?line Lr = Module:seq_r(1, M, fun (I) -> succ(I) end), + ?line L = seq(1, M, fun (I) -> succ(I) end), + ?line Lr = seq_r(1, M, fun (I) -> succ(I) end), ?line N2 = cprof:pause(), ?line {Module,0,[]} = cprof:analyse(Module), ?line M_1 = M - 1, @@ -265,10 +265,10 @@ modules_test(Config) -> ?line M2__1 = M2 + 1, ?line erlang:yield(), ?line N = cprof:start(), - ?line L = Module:seq(1, M, fun succ/1), - ?line Lr = Module:seq_r(1, M, fun succ/1), - ?line L = seq(1, M, fun succ/1), - ?line Lr = seq_r(1, M, fun succ/1), + ?line L = Module:seq(1, M, fun (I) -> succ(I) end), + ?line Lr = Module:seq_r(1, M, fun (I) -> succ(I) end), + ?line L = seq(1, M, fun (I) -> succ(I) end), + ?line Lr = seq_r(1, M, fun (I) -> succ(I) end), ?line N = cprof:pause(), ?line Lr = lists:reverse(L), ?line M_1 = M - 1, |