diff options
| author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-05-12 15:37:52 +0000 |
|---|---|---|
| committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-05-12 15:37:52 +0000 |
| commit | e69ee15ef70d45e67f4a1d99015594e5163ff6b8 (patch) | |
| tree | edf15e2cdf4660d368b2510a1c76c6115fcd347c /stdlib | |
| parent | 689d9aff79e802ca51a9105780e529e08fdc80aa (diff) | |
when passed to Printf, %l%n%L should be interepreted as %u, not %d
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14818 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/camlinternalFormat.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/camlinternalFormat.ml b/stdlib/camlinternalFormat.ml index 81bd9f1a8..3be47342b 100644 --- a/stdlib/camlinternalFormat.ml +++ b/stdlib/camlinternalFormat.ml @@ -989,9 +989,9 @@ fun k o acc fmt -> match fmt with | Scan_get_counter (_, rest) -> (* This case should be refused for Printf. *) (* Accepted for backward compatibility. *) - (* Interpret %l, %n and %L as %d. *) + (* Interpret %l, %n and %L as %u. *) fun n -> - let new_acc = Acc_string (acc, format_int "%d" n) in + let new_acc = Acc_string (acc, format_int "%u" n) in make_printf k o new_acc rest | Ignored_param (ign, rest) -> make_ignored_param k o acc ign rest |