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 CFLAGS = -fPIC
OCAMLFLAGS = -bin-annot OCAMLFLAGS = -bin-annot
OCAMLNCFLAGS = -g -safe-string -w -3 OCAMLNCFLAGS = -g -safe-string
OCAMLBCFLAGS = -g -safe-string -w -3 OCAMLBCFLAGS = -g -safe-string
OCAMLLDFLAGS = -g OCAMLLDFLAGS = -g
all : native-code native-code-library byte-code-library top htdoc all : native-code native-code-library byte-code-library top htdoc

View File

@ -1113,7 +1113,7 @@ let setaddtext s =
setop (AddText s) () setop (AddText s) ()
let parse_color s = let parse_color s =
match String.lowercase s with match String.lowercase_ascii s with
| "white" -> Cpdfaddtext.RGB (1., 1., 1.) | "white" -> Cpdfaddtext.RGB (1., 1., 1.)
| "black" -> Cpdfaddtext.RGB (0., 0., 0.) | "black" -> Cpdfaddtext.RGB (0., 0., 0.)
| "red" -> Cpdfaddtext.RGB (1., 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 pnm_to_channel_24 channel w h s =
let white () = output_char channel ' ' let white () = output_char channel ' '
and newline () = output_char channel '\n' 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"; output_string "P6";
white (); white ();
output_string (string_of_int w); output_string (string_of_int w);

View File

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