From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Thu, 7 Aug 2008 10:56:44 +0000 (+0100)
Subject: Parsing fixes for camlp4 3.10.0 (Fedora 8).
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=90a2bfed23e0850d749f76897fa4c4daed2fa0b2;p=virt-mem.git

Parsing fixes for camlp4 3.10.0 (Fedora 8).
---

diff --git a/extract/codegen/kerneldb_to_parser.ml b/extract/codegen/kerneldb_to_parser.ml
index 6414ce4..1d56126 100644
--- a/extract/codegen/kerneldb_to_parser.ml
+++ b/extract/codegen/kerneldb_to_parser.ml
@@ -80,7 +80,7 @@ Example (from toplevel of virt-mem source tree):
   let infos = Sys.readdir kernelsdir in
   let infos = Array.to_list infos in
   let infos = List.filter (fun name -> String.ends_with name ".info") infos in
-  let infos = List.map ((//) kernelsdir) infos in
+  let infos = List.map ( (//) kernelsdir) infos in
 
   (* Regular expressions.  We really really should use ocaml-mikmatch ... *)
   let re_oldformat = Pcre.regexp "^RPM: \\d+: \\(build \\d+\\) ([-\\w]+) ([\\w.]+) ([\\w.]+) \\(.*?\\) (\\w+)" in
@@ -628,7 +628,7 @@ Example (from toplevel of virt-mem source tree):
 	  ) <:str_item< let map = StringMap.empty >> kernels in
 
 	  <:str_item<
-            module StringMap = Map.Make (String)
+            module StringMap = Map.Make (String) ;;
 	    $stmts$
 	  >> in