diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2010-12-16 13:41:59 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2010-12-16 13:41:59 +0000 |
commit | b2e74e79b89573b2195f359fb38f68e9b900cce2 (patch) | |
tree | 9b9916d93b3c262b1f7536abcfa1c594877d6cfa | |
parent | 12d75a2b7d6ade3b5d1e6ccd30ef8765faa1cf3b (diff) | |
download | hivex-b2e74e79b89573b2195f359fb38f68e9b900cce2.tar.gz hivex-b2e74e79b89573b2195f359fb38f68e9b900cce2.tar.xz hivex-b2e74e79b89573b2195f359fb38f68e9b900cce2.zip |
ocaml: Fix segfault in Hivex.value_value binding.
-rwxr-xr-x | generator/generator.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generator/generator.ml b/generator/generator.ml index 37e5b5c..7c43f1f 100755 --- a/generator/generator.ml +++ b/generator/generator.ml @@ -1873,7 +1873,7 @@ copy_type_value (const char *r, size_t len, hive_type t) Store_field (rv, 0, v); v = caml_alloc_string (len); memcpy (String_val (v), r, len); - caml_modify (&Field (rv, 1), len); + caml_modify (&Field (rv, 1), v); CAMLreturn (rv); } |