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 access to uninitialized measurements when tuning.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-09-04 15:43:37 +03:00
parent 0d9cc8e488
commit d85f3d43fc
1 changed files with 28 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
vlf-tune.el
View File

@ -164,24 +164,34 @@ SIZE is number of bytes that are saved."
(defun vlf-tune-assess (type coef index)
"Get measurement value according to TYPE, COEF and INDEX."
(* coef (cond ((eq type :insert)
(car (aref vlf-tune-insert-bps index)))
(* coef (or (cond ((eq type :insert)
(if vlf-tune-insert-bps
(car (aref vlf-tune-insert-bps index))))
((eq type :raw)
(car (aref vlf-tune-insert-raw-bps index)))
(if vlf-tune-insert-raw-bps
(car (aref vlf-tune-insert-raw-bps index))))
((eq type :encode) ;encode size is less than batch size
(if vlf-tune-encode-bps
(let ((closest-idx index)
(val (car (aref vlf-tune-encode-bps index))))
(while (and (zerop val) (not (zerop closest-idx)))
(val (car (aref vlf-tune-encode-bps
index))))
(while (and (zerop val)
(not (zerop closest-idx)))
(setq closest-idx (1- closest-idx)
val (car (aref vlf-tune-encode-bps
closest-idx))))
(/ (* val (1+ index)) (1+ closest-idx)))) ;approximate
(/ (* val (1+ index)) ;approximate
(1+ closest-idx)))))
((eq type :write)
(car (aref vlf-tune-write-bps index)))
(if vlf-tune-write-bps
(car (aref vlf-tune-write-bps index))))
((eq type :hexl)
(car (aref vlf-tune-hexl-bps index)))
(if vlf-tune-hexl-bps
(car (aref vlf-tune-hexl-bps index))))
((eq type :dehexlify)
(car (aref vlf-tune-dehexlify-bps index))))))
(if vlf-tune-dehexlify-bps
(car (aref vlf-tune-dehexlify-bps index)))))
0)))
(defun vlf-tune-score (types index)
"Cumulative speed over TYPES which is alist of (type coef) for INDEX."