Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit ed83395f authored by MARCHE Claude's avatar MARCHE Claude
Browse files

fixed gappa printer for negative literals (no space after -)

parent b6762126
...@@ -146,13 +146,13 @@ let print_ident fmt id = ...@@ -146,13 +146,13 @@ let print_ident fmt id =
let number_format = { let number_format = {
Number.long_int_support = true; Number.long_int_support = true;
Number.extra_leading_zeros_support = true; Number.extra_leading_zeros_support = true;
Number.negative_int_support = Number.Number_default; Number.negative_int_support = Number.Number_custom "-%a";
Number.dec_int_support = Number.Number_default; Number.dec_int_support = Number.Number_default;
Number.hex_int_support = Number.Number_default; Number.hex_int_support = Number.Number_default;
Number.oct_int_support = Number.Number_unsupported; Number.oct_int_support = Number.Number_unsupported;
Number.bin_int_support = Number.Number_unsupported; Number.bin_int_support = Number.Number_unsupported;
Number.def_int_support = Number.Number_unsupported; Number.def_int_support = Number.Number_unsupported;
Number.negative_real_support = Number.Number_default; Number.negative_real_support = Number.Number_custom "-%a";
Number.dec_real_support = Number.Number_default; Number.dec_real_support = Number.Number_default;
Number.hex_real_support = Number.Number_default; Number.hex_real_support = Number.Number_default;
Number.frac_real_support = Number.Number_unsupported; Number.frac_real_support = Number.Number_unsupported;
......
...@@ -306,7 +306,7 @@ let print_int_constant support fmt i = ...@@ -306,7 +306,7 @@ let print_int_constant support fmt i =
let print_real_constant support fmt r = let print_real_constant support fmt r =
if r.rc_negative then if r.rc_negative then
check_support support.negative_real_support (Some "-%a") check_support support.negative_real_support (Some "(- %a)")
(fun def n -> fprintf fmt def (print_real_literal support) n) (fun def n -> fprintf fmt def (print_real_literal support) n)
(fun _ -> assert false) (fun _ -> assert false)
r.rc_abs r.rc_abs
......
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