From b2340da11f009dfa3bd3dd3c8e5976afcbdffb0f Mon Sep 17 00:00:00 2001 From: Denis Merigoux Date: Wed, 24 Jan 2024 10:56:59 +0100 Subject: [PATCH] Add EPSILON constant generation from Mlang CLI option --- src/mlang/backend_compilers/dgfip_gen_files.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/src/mlang/backend_compilers/dgfip_gen_files.ml b/src/mlang/backend_compilers/dgfip_gen_files.ml index 6316e2f16..985faea90 100644 --- 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