sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2024-10-05 18:30:51 +01: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
(+ vlf-tune-load-time
best-time-diff))))
(when time-diff
(setq time-diff (if (< vlf-tune-load-time time-diff)
(progn (setq all-less nil)
(- time-diff
vlf-tune-load-time))
(setq all-more nil)
(- vlf-tune-load-time time-diff)))
(if (< time-diff best-time-diff)
(setq best-idx idx
best-time-diff time-diff))))
(if time-diff
(progn
(setq time-diff (if (< vlf-tune-load-time time-diff)
(progn (setq all-less nil)
(- time-diff
vlf-tune-load-time))
(setq all-more nil)
(- vlf-tune-load-time time-diff)))
(if (< time-diff best-time-diff)
(setq best-idx idx
best-time-diff time-diff)))
(setq all-less nil)))
(setq idx (1+ idx)))
(* vlf-tune-step (1+ (cond ((or (zerop best-time-diff)
(eq all-less all-more))