diff options
author | Alex Nelson <ajnelson@cs.ucsc.edu> | 2011-08-30 17:47:01 -0700 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2011-08-31 10:25:06 +0100 |
commit | 93ef56f70db21ddac9bee5e9bde402adbdf27a3f (patch) | |
tree | 85b7af081e56ac001bec79c12868179e951a4afb | |
parent | 41a77ad946dec661900c0df16faf8d5432c0f38e (diff) | |
download | hivex-93ef56f70db21ddac9bee5e9bde402adbdf27a3f.tar.gz hivex-93ef56f70db21ddac9bee5e9bde402adbdf27a3f.tar.xz hivex-93ef56f70db21ddac9bee5e9bde402adbdf27a3f.zip |
ocaml: Fix binding for Hivex.value_type
-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 de103ed..c98e625 100755 --- a/generator/generator.ml +++ b/generator/generator.ml @@ -1946,7 +1946,7 @@ copy_type_len (size_t len, hive_type t) v = Val_hive_type (t); Store_field (rv, 0, v); v = Val_int (len); - Store_field (rv, 1, len); + Store_field (rv, 1, v); CAMLreturn (rv); } |