perl: Fix $h->value_type and $h->value_value methods.

These were passing the type & len arguments the wrong way round
to the C function, resulting in data corruption in the returned
values.

diff --git a/generator/generator.ml b/generator/generator.ml
index d7b9875..230b66b 100755 (executable)
--- a/generator/generator.ml
+++ b/generator/generator.ml
@@ -2415,7 +2415,7 @@ DESTROY (h)
             pr "      size_t len;\n";
             pr "      hive_type type;\n";
             pr " PPCODE:\n";
             pr "      size_t len;\n";
             pr "      hive_type type;\n";
             pr " PPCODE:\n";

-             pr "      r = hivex_%s (%s, &len, &type);\n"
+             pr "      r = hivex_%s (%s, &type, &len);\n"

               name (String.concat ", " c_params);
             free_args ();
              pr "      if (r == -1)\n";
               name (String.concat ", " c_params);
             free_args ();
              pr "      if (r == -1)\n";


@@ -2431,7 +2431,7 @@ DESTROY (h)
             pr "      size_t len;\n";
             pr "      hive_type type;\n";
             pr " PPCODE:\n";
             pr "      size_t len;\n";
             pr "      hive_type type;\n";
             pr " PPCODE:\n";

-             pr "      r = hivex_%s (%s, &len, &type);\n"
+             pr "      r = hivex_%s (%s, &type, &len);\n"

               name (String.concat ", " c_params);
             free_args ();
              pr "      if (r == NULL)\n";
               name (String.concat ", " c_params);
             free_args ();
              pr "      if (r == NULL)\n";