From 93ef56f70db21ddac9bee5e9bde402adbdf27a3f Mon Sep 17 00:00:00 2001 From: Alex Nelson Date: Tue, 30 Aug 2011 17:47:01 -0700 Subject: [PATCH] ocaml: Fix binding for Hivex.value_type --- generator/generator.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } -- 1.8.3.1