diff options
| author | Siri Hansen <[email protected]> | 2012-11-21 09:29:22 +0100 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2012-11-21 09:29:22 +0100 |
| commit | a545edc30363ea1ddf8b7805c38e748ed4741ffc (patch) | |
| tree | a1c2e8243c8b17c8d6f18087e4d11145f52c95c3 /lib/test_server/src/test_server_sup.erl | |
| parent | ef8c1a9b7d0e9f35439fcb1e75e2e287cba53e9a (diff) | |
| parent | ee65e005b0e18d92d786b14e2dd3cf7b8584ca27 (diff) | |
| download | otp-a545edc30363ea1ddf8b7805c38e748ed4741ffc.tar.gz otp-a545edc30363ea1ddf8b7805c38e748ed4741ffc.tar.bz2 otp-a545edc30363ea1ddf8b7805c38e748ed4741ffc.zip | |
Merge branch 'siri/test_server/erl2html-indent-problem/OTP-9710'
* siri/test_server/erl2html-indent-problem/OTP-9710:
[test_server] Minimize memory usage in erl2html2:convert/[2,3]
[test_server] Fix erl2html2.erl to handle badly indented files
Diffstat (limited to 'lib/test_server/src/test_server_sup.erl')
| -rw-r--r-- | lib/test_server/src/test_server_sup.erl | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lib/test_server/src/test_server_sup.erl b/lib/test_server/src/test_server_sup.erl index ba5bb9f5d2..c7553cccb5 100644 --- a/lib/test_server/src/test_server_sup.erl +++ b/lib/test_server/src/test_server_sup.erl @@ -568,16 +568,11 @@ format_loc1({Mod,Func,Line}) -> {false,[$E,$T,$I,$U,$S,$_|_]} -> io_lib:format("{~s,~w,<a href=\"~s~s#~w\">~w</a>}", [ModStr,Func,downcase(ModStr),?src_listing_ext, - round_to_10(Line),Line]); + Line,Line]); _ -> io_lib:format("{~s,~w,~w}",[ModStr,Func,Line]) end. -round_to_10(N) when (N rem 10) == 0 -> - N; -round_to_10(N) -> - trunc(N/10)*10. - downcase(S) -> downcase(S, []). downcase([Uc|Rest], Result) when $A =< Uc, Uc =< $Z -> downcase(Rest, [Uc-$A+$a|Result]); |