Remove -w3 and fix deprecations

This commit is contained in:
John Whitington 2022-04-09 14:13:12 +02:00
parent 5a41adc5b2
commit cad98fba51
4 changed files with 5 additions and 5 deletions

View File

@ -15,8 +15,8 @@ PACKS = camlpdf
CFLAGS = -fPIC
OCAMLFLAGS = -bin-annot
OCAMLNCFLAGS = -g -safe-string -w -3
OCAMLBCFLAGS = -g -safe-string -w -3
OCAMLNCFLAGS = -g -safe-string
OCAMLBCFLAGS = -g -safe-string
OCAMLLDFLAGS = -g
all : native-code native-code-library byte-code-library top htdoc

View File

@ -1113,7 +1113,7 @@ let setaddtext s =
setop (AddText s) ()
let parse_color s =
match String.lowercase s with
match String.lowercase_ascii s with
| "white" -> Cpdfaddtext.RGB (1., 1., 1.)
| "black" -> Cpdfaddtext.RGB (0., 0., 0.)
| "red" -> Cpdfaddtext.RGB (1., 0., 0.)

View File

@ -5,7 +5,7 @@ open Pdfio
let pnm_to_channel_24 channel w h s =
let white () = output_char channel ' '
and newline () = output_char channel '\n'
and output_string = Pervasives.output_string channel in
and output_string = Stdlib.output_string channel in
output_string "P6";
white ();
output_string (string_of_int w);

View File

@ -1125,7 +1125,7 @@ module String = struct
let empty = ""
let length = String.length
let append = ( ^ )
let lowercase = String.lowercase
let lowercase = String.lowercase_ascii
let iter f s =
let len = Std_string.length s in
let pos = ref ~-1 in