diff options
| author | Björn Gustavsson <[email protected]> | 2010-04-24 11:23:06 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-05-20 12:20:49 +0200 |
| commit | 55a79d5ebacd51ba11f4bbdb29b8844382a78113 (patch) | |
| tree | dfe324b8df30ce90960654768c4550cb040c0635 /lib | |
| parent | 1277314345327e63e4b10736f7c345fe71e2c74d (diff) | |
| download | otp-55a79d5ebacd51ba11f4bbdb29b8844382a78113.tar.gz otp-55a79d5ebacd51ba11f4bbdb29b8844382a78113.tar.bz2 otp-55a79d5ebacd51ba11f4bbdb29b8844382a78113.zip | |
compile: Remove code that is only executed on Solaris
On Solaris only, the 'time' option would include the process
size for the Erlang virtual machine in its output. Since few
compiler developers use Solaris nowadays, remove the code.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/compiler/src/compile.erl | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lib/compiler/src/compile.erl b/lib/compiler/src/compile.erl index 3f250a6d5a..08de3059c9 100644 --- a/lib/compiler/src/compile.erl +++ b/lib/compiler/src/compile.erl @@ -294,15 +294,6 @@ fold_comp([{Name,Pass}|Ps], Run, St0) -> end; fold_comp([], _Run, St) -> {ok,St}. -os_process_size() -> - case os:type() of - {unix, sunos} -> - Size = os:cmd("ps -o vsz -p " ++ os:getpid() ++ " | tail -1"), - list_to_integer(lib:nonl(Size)); - _ -> - 0 - end. - run_tc({Name,Fun}, St) -> Before0 = statistics(runtime), Val = (catch Fun(St)), @@ -311,9 +302,8 @@ run_tc({Name,Fun}, St) -> {After_c, _} = After0, Mem0 = erts_debug:flat_size(Val)*erlang:system_info(wordsize), Mem = lists:flatten(io_lib:format("~.1f kB", [Mem0/1024])), - Sz = lists:flatten(io_lib:format("~.1f MB", [os_process_size()/1024])), - io:format(" ~-30s: ~10.2f s ~12s ~10s\n", - [Name,(After_c-Before_c) / 1000,Mem,Sz]), + io:format(" ~-30s: ~10.2f s ~12s\n", + [Name,(After_c-Before_c) / 1000,Mem]), Val. comp_ret_ok(#compile{code=Code,warnings=Warn0,module=Mod,options=Opts}=St) -> |