git.annexia.org
/
hivex.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hivex: A few tweaks to enable building in a separate directory
[hivex.git]
/
ocaml
/
t
/
hivex_300_fold.ml
diff --git
a/ocaml/t/hivex_300_fold.ml
b/ocaml/t/hivex_300_fold.ml
index
0c7bc4f
..
c8de6e8
100644
(file)
--- a/
ocaml/t/hivex_300_fold.ml
+++ b/
ocaml/t/hivex_300_fold.ml
@@
-21,7
+21,6
@@
open Unix
open Printf
let (//) = Filename.concat
open Unix
open Printf
let (//) = Filename.concat
-let srcdir = try Sys.getenv "srcdir" with Not_found -> "."
(* This is a generic function to fold over hives.
* fn : 'a -> node -> 'a is called for each node
(* This is a generic function to fold over hives.
* fn : 'a -> node -> 'a is called for each node
@@
-36,7
+35,7
@@
let hive_fold h fn fv a root =
fold a root
let () =
fold a root
let () =
- let h = Hivex.open_file (
srcdir //
"../images/large") [] in
+ let h = Hivex.open_file ("../images/large") [] in
(* Count the number of nodes and values in the hive. *)
let count_node (nodes, values) _ = (nodes+1, values) in
(* Count the number of nodes and values in the hive. *)
let count_node (nodes, values) _ = (nodes+1, values) in