Changements dirers

MLanguage · May 24, 2024 · 04eb3a7 · 04eb3a7
1 parent 75c5f42
commit 04eb3a7
Show file tree

Hide file tree

Showing 9 changed files with 149 additions and 117 deletions.
diff --git a/src/mlang/backend_compilers/bir_to_dgfip_c.ml b/src/mlang/backend_compilers/bir_to_dgfip_c.ml
@@ -482,7 +482,8 @@ let rec generate_stmt (dgfip_flags : Dgfip_options.flags)
           let vcd = Com.CatVar.Map.find vc program.program_var_categories in
           let var_indexes =
             Mir.VariableMap.add var
-              (Dgfip_varid.VarRef ("tab_" ^ it_name, vcd.loc, vcd))
+              (Dgfip_varid.VarRef
+                 ("tab_" ^ it_name, Some vcd.loc, Com.Var.loc_int var))
               var_indexes
           in
           Format.fprintf oc "@[<v 2>{@;";
@@ -531,7 +532,8 @@ let rec generate_stmt (dgfip_flags : Dgfip_options.flags)
               let vcd = Com.CatVar.Map.find vc program.program_var_categories in
               let var_indexes =
                 Mir.VariableMap.add var
-                  (Dgfip_varid.VarRef ("tab_" ^ it_name, vcd.loc, vcd))
+                  (Dgfip_varid.VarRef
+                     ("tab_" ^ it_name, Some vcd.loc, Com.Var.loc_int var))
                   var_indexes
               in
               Format.fprintf oc "@[<v 2>{@;";