X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=mem%2Fvirt_mem_main.ml;h=c2255b433cc986be135c323cfe12ed7a64357ee5;hb=5465f41dc973c040cc5abd423640b2d4a118a159;hp=32d89ffe1a23016c60db5ada033c4620f5bc1b43;hpb=b70c967911e197b74d6d7ad98e3df9240d82572f;p=virt-mem.git

diff --git a/mem/virt_mem_main.ml b/mem/virt_mem_main.ml
index 32d89ff..c2255b4 100644
--- a/mem/virt_mem_main.ml
+++ b/mem/virt_mem_main.ml
@@ -19,4 +19,15 @@
    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
+let _ = Virt_mem_dump.summary
+
+(* Call main program. *)
+let () = Virt_mem.main ()