sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 12:05:31 +00:00
Code Issues Releases Wiki Activity

Fix vlf-tune-optimal-load in case best value prunes slower times leaving

Browse Source 
all-less flag on.
This commit is contained in:
Andrey Kotlarski 2014-09-08 14:32:02 +03:00
parent 199209fe15
commit d9cc6fb65e
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
vlf-tune.el
View File

@ -389,16 +389,18 @@ confine search to this region."
(let ((time-diff (vlf-tune-score types idx t (let ((time-diff (vlf-tune-score types idx t
(+ vlf-tune-load-time (+ vlf-tune-load-time
best-time-diff)))) best-time-diff))))
(when time-diff (if time-diff
(setq time-diff (if (< vlf-tune-load-time time-diff) (progn
(progn (setq all-less nil) (setq time-diff (if (< vlf-tune-load-time time-diff)
(- time-diff (progn (setq all-less nil)
vlf-tune-load-time)) (- time-diff
(setq all-more nil) vlf-tune-load-time))
(- vlf-tune-load-time time-diff))) (setq all-more nil)
(if (< time-diff best-time-diff) (- vlf-tune-load-time time-diff)))
(setq best-idx idx (if (< time-diff best-time-diff)
best-time-diff time-diff)))) (setq best-idx idx
best-time-diff time-diff)))
(setq all-less nil)))
(setq idx (1+ idx))) (setq idx (1+ idx)))
(* vlf-tune-step (1+ (cond ((or (zerop best-time-diff) (* vlf-tune-step (1+ (cond ((or (zerop best-time-diff)
(eq all-less all-more)) (eq all-less all-more))