From 6e1fd906daf2ffd9af0bcc2b617e91802c880609 Mon Sep 17 00:00:00 2001 From: malc Date: Fri, 27 Jan 2012 23:43:52 +0400 Subject: [PATCH] Drop getpagew/h --- main.ml | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/main.ml b/main.ml index e7affb4..ad0d85d 100644 --- a/main.ml +++ b/main.ml @@ -751,16 +751,6 @@ let getpagedim pageno = f (-1, -1, -1, -1) state.pdims ;; -let getpageh pageno = - let _, _, h, _ = getpagedim pageno in - h -;; - -let getpagew pageno = - let _, w, _, _ = getpagedim pageno in - w -;; - let getpagey pageno = fst (getpageyh pageno);; let layout y sh = @@ -1408,12 +1398,13 @@ let gctiles () = then let (k, p, s) as lruitem = Queue.pop state.tilelru in let n, gen, colorspace, angle, pagew, pageh, col, row = k in + let (_, pw, ph, _) = getpagedim n in if gen = state.gen && colorspace = conf.colorspace && angle = conf.angle - && pagew = getpagew n - && pageh = getpageh n + && pagew = pw + && pageh = ph && ( let layout = match state.throttle with -- 2.11.4.GIT