Fix fprof use (-p/--profile)

This commit is contained in:
Tuncer Ayaz 2012-09-26 22:17:44 +02:00
parent 1b52a597c4
commit f4e55b8463

View file

@ -87,11 +87,10 @@ run(RawArgs) ->
true -> true ->
io:format("Profiling!\n"), io:format("Profiling!\n"),
try try
fprof:apply(fun([C, A]) -> run_aux(C, A) end, fprof:apply(fun run_aux/2, [BaseConfig1, Cmds])
[BaseConfig1, Cmds])
after after
fprof:profile(), ok = fprof:profile(),
fprof:analyse([{dest, "fprof.analysis"}]) ok = fprof:analyse([{dest, "fprof.analysis"}])
end; end;
false -> false ->
run_aux(BaseConfig1, Cmds) run_aux(BaseConfig1, Cmds)