Unified · Split
| @@ -911,7 +911,7 @@ let reshape ?(firsttime=false) w h = · 910 unmodified lines | |||
| 911 | wcmd U.geometry "%d %d %d" w (stateh h) (FMTE.to_int conf.fitmodel) | 911 | wcmd U.geometry "%d %d %d" w (stateh h) (FMTE.to_int conf.fitmodel) |
| 912 | ) | 912 | ) |
| 913 | 913 | ||
| 914 | let gctiles layout = | 914 | let gctilesnotinlayout layout = |
| 915 | let len = Queue.length S.tilelru in | 915 | let len = Queue.length S.tilelru in |
| 916 | let rec loop qpos = | 916 | let rec loop qpos = |
| 917 | if !S.memused > conf.memlimit | 917 | if !S.memused > conf.memlimit |
| @@ -1193,7 +1193,7 @@ let act cmds = · 275 unmodified lines | |||
| 1193 | puttileopaque l col row gen cs angle opaque size t; | 1193 | puttileopaque l col row gen cs angle opaque size t; |
| 1194 | S.memused := !S.memused + size; | 1194 | S.memused := !S.memused + size; |
| 1195 | !S.uioh#infochanged Memused; | 1195 | !S.uioh#infochanged Memused; |
| 1196 | gctiles !S.layout; | 1196 | gctilesnotinlayout !S.layout; |
| 1197 | Queue.push ((l.pageno, gen, cs, angle, l.pagew, l.pageh, col, row), | 1197 | Queue.push ((l.pageno, gen, cs, angle, l.pagew, l.pageh, col, row), |
| 1198 | opaque, size) S.tilelru; | 1198 | opaque, size) S.tilelru; |
| 1199 | 1199 | ||