Displaying 3 results from an estimated 3 matches for "generate_perl_struct_code".
2016 Dec 12
2
[PATCH] java: fix memory leak in RStruct actions
The return value struct was freed using a simple free() instead of the
own cleanup function of each struct: this meant dynamically allocated
values (such as strings) were leaked.
Use the proper cleanup functions instead.
---
generator/java.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/generator/java.ml b/generator/java.ml
index a68054c..3c1e611 100644
---
2016 Dec 12
0
[PATCH] perl: fix memory leak in RStruct actions
...as strings) were leaked.
Use the proper cleanup functions instead.
---
generator/perl.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/generator/perl.ml b/generator/perl.ml
index 290b687..4c7f805 100644
--- a/generator/perl.ml
+++ b/generator/perl.ml
@@ -657,7 +657,7 @@ and generate_perl_struct_code typ cols name style n =
pr " PUSHs (sv_2mortal (newSVnv (r->%s)));\n"
name
) cols;
- pr " free (r);\n"
+ pr " guestfs_free_%s (r);\n" typ
(* Generate Sys/Guestfs.pm. *)
and generate_perl_pm () =
--
2.7.4
2009 Aug 03
1
[PATCH 1/2] Convert all TABs-as-indentation to spaces.
...;
+ pr " PUSHs (sv_2mortal (newSVpv (%s[i], 0)));\n" n;
+ pr " free (%s[i]);\n" n;
+ pr " }\n";
+ pr " free (%s);\n" n;
| RStruct (n, typ) ->
- let cols = cols_of_struct typ in
- generate_perl_struct_code typ cols name style n do_cleanups
+ let cols = cols_of_struct typ in
+ generate_perl_struct_code typ cols name style n do_cleanups
| RStructList (n, typ) ->
- let cols = cols_of_struct typ in
- generate_perl_struct_list_code typ cols name style n do_cleanups
+...