mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 10:11:27 +01:00
Christian Lindig
f99941871a
This commit cleans up code to reduce compiler warnings: * remove unused open statements (warning 33) * remove unused 'rec' declarations (warnign 39) * remove unused type declarations (warning 34) * mark unused variables with an underscore (warning 27) * mark unused value declarations with an underscore (warning 32) This commit does not include changes to fix compiler warnings 52 (matching against strings in exceptions). These changes have no impact on functionality. Signed-off-by: Christian Lindig <christian.lindig@citrix.com> Acked-by: Wei Liu <wei.liu2@citrix.com>
14 lines
289 B
OCaml
14 lines
289 B
OCaml
open Printf
|
|
|
|
let send_keys ctx s =
|
|
printf "Sending debug key %s\n" s;
|
|
Xenlight.Host.send_debug_keys ctx s;
|
|
()
|
|
|
|
let _ =
|
|
let logger = Xtl.create_stdio_logger () in
|
|
let ctx = Xenlight.ctx_alloc logger in
|
|
Arg.parse [
|
|
] (fun s -> send_keys ctx s) "usage: send_debug_keys <keys>"
|
|
|