mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 18:21:39 +01:00
Rob Hoes
00d46451e3
Signed-off-by: Ian Campbell <ian.campbell@citrix.com> Signed-off-by: Rob Hoes <rob.hoes@citrix.com> Acked-by: Ian Jackson <ian.jackson@eu.citrix.com> Acked-by: David Scott <dave.scott@eu.citrix.com>
12 lines
216 B
OCaml
12 lines
216 B
OCaml
open Printf
|
|
open Xentoollog
|
|
open Xenlight
|
|
|
|
let _ =
|
|
try
|
|
Xenlight.test_raise_exception ()
|
|
with Xenlight.Error(err, fn) -> begin
|
|
printf "Caught Exception: %s: %s\n" (Xenlight.string_of_error err) fn;
|
|
end
|
|
|