From fa57d8d9d51c93ccefefb0951c67475970e97879 Mon Sep 17 00:00:00 2001
From: Nadrieril
Date: Mon, 8 Apr 2024 15:18:58 +0200
Subject: item_meta

---
 compiler/FunsAnalysis.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'compiler/FunsAnalysis.ml')

diff --git a/compiler/FunsAnalysis.ml b/compiler/FunsAnalysis.ml
index f194d4e5..d98efc8d 100644
--- a/compiler/FunsAnalysis.ml
+++ b/compiler/FunsAnalysis.ml
@@ -147,7 +147,7 @@ let analyze_module (m : crate) (funs_map : fun_decl FunDeclId.Map.t)
       (* Sanity check: global bodies don't contain stateful calls *)
       cassert __FILE__ __LINE__
         ((not f.is_global_decl_body) || not !stateful)
-        f.meta "Global definition containing a stateful call in its body";
+        f.item_meta.meta "Global definition containing a stateful call in its body";
       let builtin_info = get_builtin_info f in
       let has_builtin_info = builtin_info <> None in
       group_has_builtin_info := !group_has_builtin_info || has_builtin_info;
@@ -171,11 +171,11 @@ let analyze_module (m : crate) (funs_map : fun_decl FunDeclId.Map.t)
     let is_global_decl_body = List.exists (fun f -> f.is_global_decl_body) d in
     cassert __FILE__ __LINE__
       ((not is_global_decl_body) || List.length d = 1)
-      (List.hd d).meta
+      (List.hd d).item_meta.meta
       "This global definition is in a group of mutually recursive definitions";
     cassert __FILE__ __LINE__
       ((not !group_has_builtin_info) || List.length d = 1)
-      (List.hd d).meta
+      (List.hd d).item_meta.meta
       "This builtin function belongs to a group of mutually recursive \
        definitions";
     (* We ignore on purpose functions that cannot fail and consider they *can*
-- 
cgit v1.2.3


From 4deb6ac44c615bbe3594c18ddbf880bf89f07d9e Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Mon, 22 Apr 2024 10:47:26 +0200
Subject: Reformat some files

---
 compiler/FunsAnalysis.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'compiler/FunsAnalysis.ml')

diff --git a/compiler/FunsAnalysis.ml b/compiler/FunsAnalysis.ml
index d98efc8d..ddfbf312 100644
--- a/compiler/FunsAnalysis.ml
+++ b/compiler/FunsAnalysis.ml
@@ -147,7 +147,8 @@ let analyze_module (m : crate) (funs_map : fun_decl FunDeclId.Map.t)
       (* Sanity check: global bodies don't contain stateful calls *)
       cassert __FILE__ __LINE__
         ((not f.is_global_decl_body) || not !stateful)
-        f.item_meta.meta "Global definition containing a stateful call in its body";
+        f.item_meta.meta
+        "Global definition containing a stateful call in its body";
       let builtin_info = get_builtin_info f in
       let has_builtin_info = builtin_info <> None in
       group_has_builtin_info := !group_has_builtin_info || has_builtin_info;
-- 
cgit v1.2.3