X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=libvirt%2Fgenerator.pl;fp=libvirt%2Fgenerator.pl;h=0a732640224e528de674f6584531dbb46f60878b;hp=ad2069fc990e6099430e9d7dc43eba3353828adc;hb=cb83441a2e80b7e57ea0010ca010ea939b416506;hpb=77448a532e21983b65664e33525d18e76f41e348

diff --git a/libvirt/generator.pl b/libvirt/generator.pl
index ad2069f..0a73264 100755
--- a/libvirt/generator.pl
+++ b/libvirt/generator.pl
@@ -562,7 +562,9 @@ sub gen_c_code
   NONBLOCKING (r = $c_name ($1, uuid));
   CHECK_ERROR (r == -1, conn, \"$c_name\");
 
-  rv = caml_copy_string ((char *) uuid);
+  /* UUIDs are byte arrays with a fixed length. */
+  rv = caml_alloc_string (VIR_UUID_BUFLEN);
+  memcpy (String_val (rv), uuid, VIR_UUID_BUFLEN);
   CAMLreturn (rv);
 "
     } elsif ($sig =~ /^(\w+) : uuid string$/) {
@@ -886,7 +888,7 @@ foreach my $function (@functions) {
 
     print F <<END;
 /* Automatically generated binding for $c_name.
- * Function signature in generator.pl is "$sig"
+ * In generator.pl this function has signature "$sig".
  */
 
 END