[Libguestfs] [Hivex] [PATCH] Correct 32-bit to 64-bit call

[Richard W.M. Jones]

On Wed, Aug 10, 2011 at 08:56:33PM -0700, Alex‎ Nelson wrote:
> ---
>  generator/generator.ml |    2 +-
>  1 files changed, 1 insertions(+), 1 deletions(-)
> 
> diff --git a/generator/generator.ml b/generator/generator.ml
> index 31478cd..de911f1 100755
> --- a/generator/generator.ml
> +++ b/generator/generator.ml
> @@ -1771,7 +1771,7 @@ static void raise_closed (const char *) Noreturn;
>             pr "  rv = copy_type_value (r, len, t);\n";
>             pr "  free (r);\n"
>         | RInt32 -> pr "  rv = caml_copy_int32 (r);\n"
> -       | RInt64 -> pr "  rv = caml_copy_int32 (r);\n"
> +       | RInt64 -> pr "  rv = caml_copy_int64 (r);\n"
>        );
>  
>        pr "  CAMLreturn (rv);\n";
> -- 
> 1.7.3.1

Yikes ...  Just as well no one really uses hivex_value_qword from
OCaml programs.

Thanks, I'll push this shortly.

Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
virt-p2v converts physical machines to virtual machines.  Boot with a
live CD or over the network (PXE) and turn machines into Xen guests.
http://et.redhat.com/~rjones/virt-p2v