Commenting unused vars

src/backends/Ada/ada_backend.ml

@@ -93,7 +93,7 @@ let extract_contract machines m =
     let machine_spec = find_submachine_from_ident ident machines in
     let guarantees =
       match machine_spec.mspec.mnode_spec with
-      | Some (Contract contract) ->
+      | Some (Contract _ (*contract*) ) ->
         (* assert (contract.consts = []);
          * assert (contract.locals = []);
          * assert (contract.stmts = []);

src/machine_code_common.ml

@@ -533,7 +533,7 @@ let empty_machine =
 
 let new_instance =
   let cpt = ref (-1) in
-  fun callee tag ->
+  fun callee _(*tag*) ->
     let o =
       if Stateless.check_node callee then node_name callee
       else

src/machine_types.ml

@@ -416,7 +416,7 @@ let register_node vars annots =
     []
     annots
 
-let check_node nd vars =
+let check_node _(*nd*) _(*vars*) =
   (* TODO check that all access to vars are valid *)
   ()
 

src/scheduling.ml

@@ -396,7 +396,7 @@ let pp_dep_graph fmt node_schs =
         report.dep_graph)
     node_schs
 
-let pp_warning_unused fmt node_schs =
+let pp_warning_unused _(*fmt*) node_schs =
   IMap.iter
     (fun nd report ->
       let unused = report.unused_vars in

src/sortProg.ml

@@ -18,7 +18,7 @@ let get_node nid prog =
       match t.top_decl_desc with Node n -> n.node_id = nid | _ -> false)
     prog
 
-let check_external_defs x not_nodes = true
+let check_external_defs _ (*x*) _ (*not_nodes*) = true
 (* TODO, check whether a node, a function or an include defines this node *)
 
 let sort prog =