Make assume_zero_alloc option arg of Debuginfo.from_location

So that ocaml/ subdirectories build without changes
ocaml-flambda · Aug 9, 2023 · 95edf88 · 95edf88
1 parent 91277fc
commit 95edf88
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/ocaml/lambda/debuginfo.ml b/ocaml/lambda/debuginfo.ml
@@ -195,7 +195,7 @@ let item_from_location ~scopes loc =
     dinfo_scopes = scopes
   }
 
-let from_location ~assume_zero_alloc = function
+let from_location ?(assume_zero_alloc=false) = function
   | Scoped_location.Loc_unknown -> { dbg = []; assume_zero_alloc; }
   | Scoped_location.Loc_known {scopes; loc} ->
     assert (not (Location.is_none loc));

diff --git a/ocaml/lambda/debuginfo.mli b/ocaml/lambda/debuginfo.mli
@@ -82,7 +82,7 @@ val is_none : t -> bool
 
 val to_string : t -> string
 
-val from_location : assume_zero_alloc:bool -> Scoped_location.t -> t
+val from_location : ?assume_zero_alloc:bool -> Scoped_location.t -> t
 
 val to_location : t -> Location.t