configurator: C_define: When the number is ≥ 0, prefix it with '0'

The function int_of_string in OCaml 4.02 does not support a leading '+'. Fixes #1738 Signed-off-by: Christophe Troestler <[email protected]>
ocaml · Jan 4, 2019 · c524b6c · c524b6c
1 parent 0627b62
commit c524b6c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/configurator/v1.ml b/src/configurator/v1.ml
@@ -359,7 +359,7 @@ module C_define = struct
 #define DUNE_D7(x) ('0'+(DUNE_ABS(x)/10000000  )%%10), DUNE_D6(x)
 #define DUNE_D8(x) ('0'+(DUNE_ABS(x)/100000000 )%%10), DUNE_D7(x)
 #define DUNE_D9(x) ('0'+(DUNE_ABS(x)/1000000000)%%10), DUNE_D8(x)
-#define DUNE_SIGN(x) ((x >= 0)? '+': '-')
+#define DUNE_SIGN(x) ((x >= 0)? '0': '-')
 |}
     );
     List.iteri vars ~f:(fun i (name, t) ->