Add EPSILON constant generation from Mlang CLI option

MLanguage · Jan 24, 2024 · b2340da · b2340da
1 parent 563aa44
commit b2340da
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/mlang/backend_compilers/dgfip_gen_files.ml b/src/mlang/backend_compilers/dgfip_gen_files.ml
@@ -1147,6 +1147,7 @@ let gen_conf_h fmt flags vars =
     FLG_TRACE_IRDATA\n"; *)
   if flags.flg_debug then Format.fprintf fmt "#define FLG_DEBUG\n";
   Format.fprintf fmt "#define NB_DEBUG_C  %d\n" flags.nb_debug_c;
+  Format.fprintf fmt "#define EPSILON %f\n" !Cli.comparison_error_margin;
 
   let nb_saisie = count vars (Input None) in
   let nb_calculee = count vars (Computed (Some Computed)) in