diff options
| author | Hans Bolinder <[email protected]> | 2012-03-21 08:16:59 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2012-03-21 08:16:59 +0100 |
| commit | 2fc45e219d8957803ea77f4bac62f238424dbda4 (patch) | |
| tree | 84f4e83a507bd585855261295ec663aaab32f643 /lib/kernel/src/disk_log.erl | |
| parent | 87b589c3f7fcdecb572cd301476bb4347ddfac79 (diff) | |
| parent | 51620fc966fc7c5b9427127f8221bf50c8435fd9 (diff) | |
| download | otp-2fc45e219d8957803ea77f4bac62f238424dbda4.tar.gz otp-2fc45e219d8957803ea77f4bac62f238424dbda4.tar.bz2 otp-2fc45e219d8957803ea77f4bac62f238424dbda4.zip | |
Merge branch 'hb/kernel/too_greedy_disk_log/OTP-9999' into maint
* hb/kernel/too_greedy_disk_log/OTP-9999:
Make sure disk_log does not write too much data
Diffstat (limited to 'lib/kernel/src/disk_log.erl')
| -rw-r--r-- | lib/kernel/src/disk_log.erl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/kernel/src/disk_log.erl b/lib/kernel/src/disk_log.erl index fb9415d440..f5f972c112 100644 --- a/lib/kernel/src/disk_log.erl +++ b/lib/kernel/src/disk_log.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2011. All Rights Reserved. +%% Copyright Ericsson AB 1997-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 @@ -1034,10 +1034,9 @@ sync_loop(From, S) -> -define(MAX_LOOK_AHEAD, 64*1024). %% Inlined. -log_loop(S, Pids, _Bins, _Sync, _Sz) when S#state.cache_error =/= ok -> +log_loop(#state{cache_error = CE}=S, Pids, _Bins, _Sync, _Sz) when CE =/= ok -> loop(cache_error(S, Pids)); -log_loop(#state{messages = []}=S, Pids, Bins, Sync, Sz) - when Sz > ?MAX_LOOK_AHEAD -> +log_loop(#state{}=S, Pids, Bins, Sync, Sz) when Sz > ?MAX_LOOK_AHEAD -> loop(log_end(S, Pids, Bins, Sync)); log_loop(#state{messages = []}=S, Pids, Bins, Sync, Sz) -> receive @@ -1046,8 +1045,7 @@ log_loop(#state{messages = []}=S, Pids, Bins, Sync, Sz) -> after 0 -> loop(log_end(S, Pids, Bins, Sync)) end; -log_loop(S, Pids, Bins, Sync, Sz) -> - [M | Ms] = S#state.messages, +log_loop(#state{messages = [M | Ms]}=S, Pids, Bins, Sync, Sz) -> S1 = S#state{messages = Ms}, log_loop(M, Pids, Bins, Sync, Sz, S1, get(log)). |