sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 20:10:47 +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

6
vlf-tune.el
View File

@ -389,7 +389,8 @@ 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
(progn
(setq time-diff (if (< vlf-tune-load-time time-diff) (setq time-diff (if (< vlf-tune-load-time time-diff)
(progn (setq all-less nil) (progn (setq all-less nil)
(- time-diff (- time-diff
@ -398,7 +399,8 @@ confine search to this region."
(- vlf-tune-load-time time-diff))) (- vlf-tune-load-time time-diff)))
(if (< time-diff best-time-diff) (if (< time-diff best-time-diff)
(setq best-idx idx (setq best-idx idx
best-time-diff time-diff)))) 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))