From fa67173b240995c60c6a002263fad7bd5b8625e8 Mon Sep 17 00:00:00 2001 From: Gabriel Scherer Date: Mon, 12 May 2014 15:37:49 +0000 Subject: ignore more incompatible flags git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14816 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/camlinternalFormat.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'stdlib/camlinternalFormat.ml') diff --git a/stdlib/camlinternalFormat.ml b/stdlib/camlinternalFormat.ml index 206a3a626..9ddcf748d 100644 --- a/stdlib/camlinternalFormat.ml +++ b/stdlib/camlinternalFormat.ml @@ -1468,8 +1468,12 @@ let fmt_ebb_of_string str = let get_pad_opt c = match get_pad () with | No_padding -> None | Lit_padding (Right, width) -> Some width - | Lit_padding (Zeros, _) -> incompatible_flag pct_ind str_ind c "'0'" - | Lit_padding (Left, _) -> incompatible_flag pct_ind str_ind c "'-'" + | Lit_padding (Zeros, width) -> + if legacy_behavior then Some width + else incompatible_flag pct_ind str_ind c "'0'" + | Lit_padding (Left, width) -> + if legacy_behavior then Some width + else incompatible_flag pct_ind str_ind c "'-'" | Arg_padding _ -> incompatible_flag pct_ind str_ind c "'*'" in -- cgit v1.2.3-70-g09d2