X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=mem%2Fvirt_mem_main.ml;fp=mem%2Fvirt_mem_main.ml;h=78c7ab7247314133b0d779f88454ec6d426849e7;hb=97131d94f5513b732f8f8d310984e71d8201cadf;hp=32d89ffe1a23016c60db5ada033c4620f5bc1b43;hpb=83aaceddad61c6f2a6e378887deebe21bdec6e71;p=virt-mem.git

diff --git a/mem/virt_mem_main.ml b/mem/virt_mem_main.ml
index 32d89ff..78c7ab7 100644
--- a/mem/virt_mem_main.ml
+++ b/mem/virt_mem_main.ml
@@ -19,4 +19,14 @@
    Links everything into a single executable and invokes 'main'.
  *)
 
-Virt_mem.main ()
+(* Because internal commands like 'virt-mem capture' are stored
+ * in a library [*.cma/*.cmxa], they don't automatically get
+ * loaded/registered unless someone seems to be using them.  So
+ * we need to pretend to be using them here.  External commands
+ * like 'virt-ps' are OK because they are linked as *.cmo/*.cmx
+ * files.
+ *)
+let _ = Virt_mem_capture.summary
+
+(* Call main program. *)
+let () = Virt_mem.main ()