fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix warning 52 in OCaml 4.03

This commit is contained in:
John Whitington 2015-11-25 11:57:48 +00:00
parent a90e3c093b
commit 042f64707e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdf.ml
View File

@ -3285,7 +3285,7 @@ let thinlines range width pdf =
(scale, _, _, _, _, _) -> (scale, _, _, _, _, _) ->
scale scale
with with
Failure "hd" -> 1. Failure _ (*"hd"*) -> 1.
in in
let rec replace_operators prev = function let rec replace_operators prev = function
| [] -> rev prev | [] -> rev prev
@ -3302,7 +3302,7 @@ let thinlines range width pdf =
let top = hd !ctmstack in let top = hd !ctmstack in
top := Pdftransform.matrix_compose !top m top := Pdftransform.matrix_compose !top m
with with
Failure "hd" -> error "Malformed file." Failure _ (*"hd"*) -> error "Malformed file."
end; end;
replace_operators ((Pdfops.Op_cm m)::prev) more replace_operators ((Pdfops.Op_cm m)::prev) more
| Pdfops.Op_q::more -> | Pdfops.Op_q::more ->
@ -3310,7 +3310,7 @@ let thinlines range width pdf =
begin try begin try
ctmstack =| ref (!(hd !ctmstack)) ctmstack =| ref (!(hd !ctmstack))
with with
Failure "hd" -> error "Malformed file" Failure _ (*"hd"*) -> error "Malformed file"
end; end;
replace_operators (Pdfops.Op_q::prev) more replace_operators (Pdfops.Op_q::prev) more
| Pdfops.Op_Q::more -> | Pdfops.Op_Q::more ->
@ -3318,7 +3318,7 @@ let thinlines range width pdf =
begin try begin try
ctmstack := tl !ctmstack ctmstack := tl !ctmstack
with with
Failure "tl" -> error "Malformed file" Failure _ (*"tl"*) -> error "Malformed file"
end; end;
replace_operators (Pdfops.Op_Q::prev) more replace_operators (Pdfops.Op_Q::prev) more
| (Pdfops.Op_gs gsname)::more -> | (Pdfops.Op_gs gsname)::more ->