diff options
| -rw-r--r-- | README | 5 | ||||
| -rw-r--r-- | virt-top/virt_top_main.ml | 3 |
2 files changed, 7 insertions, 1 deletions
@@ -1,7 +1,7 @@ virt-top ---------------------------------------------------------------------- -Copyright (C) 2007-2009 Richard W.M. Jones, Red Hat Inc. +Copyright (C) 2007-2011 Richard W.M. Jones, Red Hat Inc. http://et.redhat.com/~rjones/virt-top/ http://libvirt.org/ocaml/ http://libvirt.org/ @@ -17,6 +17,9 @@ different virtualization systems. Building ---------------------------------------------------------------------- +Note that the minimum version of OCaml supported (since 1.0.5) is +OCaml 3.11.0. + ./configure # Checks that you have all the required bits. make all # Builds the bytecode version of the program. diff --git a/virt-top/virt_top_main.ml b/virt-top/virt_top_main.ml index 4e1c5b7..4e5c07b 100644 --- a/virt-top/virt_top_main.ml +++ b/virt-top/virt_top_main.ml @@ -34,6 +34,7 @@ let error = let ((_, _, script_mode, _, _, _, _) as setup) = start_up () in try + Printexc.record_backtrace true; main_loop setup; if not script_mode then endwin (); false @@ -41,10 +42,12 @@ let error = | Libvirt.Virterror err -> if not script_mode then endwin (); prerr_endline (Libvirt.Virterror.to_string err); + Printexc.print_backtrace stderr; true | exn -> if not script_mode then endwin (); prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn); + Printexc.print_backtrace stderr; true let () = |