64-bit patch for ocaml 3.12.1 memprof patch

--- hPLoadHeap.ml.orig  2012-09-12 23:40:54.372978413 +0200
+++ hPLoadHeap.ml       2012-09-12 23:49:33.256969411 +0200
@@ -17,10 +17,18 @@
   let c1 =  int_of_char (input_char ic) in
   let c2 =  int_of_char (input_char ic) in
   let c3 =  int_of_char (input_char ic) in
+  let c4 =  int_of_char (input_char ic) in
+  let c5 =  int_of_char (input_char ic) in
+  let c6 =  int_of_char (input_char ic) in
+  let c7 =  int_of_char (input_char ic) in
   c0 lor
     (c1 lsl 8) lor
     (c2 lsl 16) lor
-    (c3 lsl 24)
+    (c3 lsl 24) lor
+    (c4 lsl 32) lor
+    (c5 lsl 40) lor
+    (c6 lsl 48) lor
+    (c7 lsl 56)

 (*************************************************************************)
 (*                                                                       *)
@@ -141,11 +149,19 @@
   let c1 =  int_of_char (input_char ic) in
   let c2 =  int_of_char (input_char ic) in
   let c3 =  int_of_char (input_char ic) in
+  let c4 =  int_of_char (input_char ic) in
+  let c5 =  int_of_char (input_char ic) in
+  let c6 =  int_of_char (input_char ic) in
+  let c7 =  int_of_char (input_char ic) in
   if c0 land 1 = 1 then 0 else
     (c0 lsr 1) lor
       (c1 lsl 7) lor
       (c2 lsl 15) lor
-      (c3 lsl 23)
+      (c3 lsl 23) lor
+      (c4 lsl 31) lor
+      (c5 lsl 39) lor
+      (c6 lsl 47) lor
+      (c7 lsl 55)

 (*************************************************************************)
 (*                                                                       *)