Displaying 4 results from an estimated 4 matches for "ca6d470".
2015 Aug 11
3
[PATCH 1/2] mllib: add normalize_arch helper
...hem and check for compatibilities.
Make use of it in guest_arch_compatible, simplifying it.
---
mllib/common_utils.ml | 12 ++++++++++--
mllib/common_utils.mli | 5 +++++
2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/mllib/common_utils.ml b/mllib/common_utils.ml
index f9e8996..ca6d470 100644
--- a/mllib/common_utils.ml
+++ b/mllib/common_utils.ml
@@ -730,13 +730,21 @@ let rec mkdir_p path permissions =
mkdir_p (Filename.dirname path) permissions;
Unix.mkdir path permissions
+let normalize_arch = function
+ | "i386" | "i486" | "i586" | &...
2015 Aug 11
1
Re: [PATCH 1/2] mllib: add normalize_arch helper
...rts (and it's mentioned
there).
> > mllib/common_utils.ml | 12 ++++++++++--
> > mllib/common_utils.mli | 5 +++++
> > 2 files changed, 15 insertions(+), 2 deletions(-)
> >
> > diff --git a/mllib/common_utils.ml b/mllib/common_utils.ml
> > index f9e8996..ca6d470 100644
> > --- a/mllib/common_utils.ml
> > +++ b/mllib/common_utils.ml
> > @@ -730,13 +730,21 @@ let rec mkdir_p path permissions =
> > mkdir_p (Filename.dirname path) permissions;
> > Unix.mkdir path permissions
> >
> > +let normalize_arch = fu...
2015 Aug 11
0
Re: [PATCH 1/2] mllib: add normalize_arch helper
...ing it.
Have a look at:
8864c47b94cf44ac2d0d8d4b5019073ad1da121b
> mllib/common_utils.ml | 12 ++++++++++--
> mllib/common_utils.mli | 5 +++++
> 2 files changed, 15 insertions(+), 2 deletions(-)
>
> diff --git a/mllib/common_utils.ml b/mllib/common_utils.ml
> index f9e8996..ca6d470 100644
> --- a/mllib/common_utils.ml
> +++ b/mllib/common_utils.ml
> @@ -730,13 +730,21 @@ let rec mkdir_p path permissions =
> mkdir_p (Filename.dirname path) permissions;
> Unix.mkdir path permissions
>
> +let normalize_arch = function
> + | "i386" |...
2015 Aug 28
1
[PATCH] handle --debug-gc universally via at_exit hook
...7 @@ read the man page virt-customize(1).
message (f_"Finishing off");
g#shutdown ();
- g#close ();
-
- if debug_gc then
- Gc.compact ()
+ g#close ()
(* Finished. *)
let () = run_main_and_handle_errors main
diff --git a/mllib/common_utils.ml b/mllib/common_utils.ml
index ca6d470..99d2098 100644
--- a/mllib/common_utils.ml
+++ b/mllib/common_utils.ml
@@ -759,3 +759,7 @@ let read_first_line_from_file filename =
let line = input_line chan in
close_in chan;
line
+
+(** Install an exit hook to check gc consistency for --debug-gc *)
+let set_debug_gc () =
+ at_exit (fu...