Commit 4f70ca20 authored by MARCHE Claude's avatar MARCHE Claude

Suppressed warnings about deprecated String.create and such

parent cc55577d
......@@ -71,8 +71,9 @@ EMACS = @EMACS@
#PDFVIEWER = @PDFVIEWER@
INCLUDES = @ZIPINCLUDE@ @MENHIRINCLUDE@
OFLAGS = -w Aer-41-44-45@5 -dtypes -g -I lib/why3 $(INCLUDES)
BFLAGS = -w Aer-41-44-45@5 -dtypes -g -I lib/why3 $(INCLUDES)
WARNINGS = Aer-41-44-45@5
OFLAGS = -w $(WARNINGS) -dtypes -g -I lib/why3 $(INCLUDES)
BFLAGS = -w $(WARNINGS) -dtypes -g -I lib/why3 $(INCLUDES)
OLINKFLAGS = -linkall $(EXTCMXA)
BLINKFLAGS = -linkall $(EXTCMA)
......@@ -222,6 +223,11 @@ src/session/compress.ml: config.status src/session/compress_none.ml
cp src/session/compress_none.ml $@
endif
# hide deprecated warnings for strings
src/util/strings.cmo:: WARNINGS:=$(WARNINGS)-3
src/util/strings.cmx:: WARNINGS:=$(WARNINGS)-3
# build targets
byte: lib/why3/why3.cma
......
......@@ -251,7 +251,7 @@ let rec ask_yn () =
let ask_yn_nonblock ~callback =
let b = Buffer.create 3 in
let s = String.create 1 in
let s = Strings.create 1 in
Format.printf "(y/n)@.";
fun () ->
match Unix.select [Unix.stdin] [] [] 0. with
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment