jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[OCaml] Fix possible memory leaks in generated dispatch functions

Browse source 
All paths now free argv.
This commit is contained in:
Zackery Spytz 2019-02-23 04:05:03 -07:00
commit 17d0610d00
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Source/Modules/ocaml.cxx
View file

@ -752,7 +752,7 @@ public:
Printv(df->code, Printv(df->code,
"argv = (CAML_VALUE *)malloc( argc * sizeof( CAML_VALUE ) );\n" "argv = (CAML_VALUE *)malloc( argc * sizeof( CAML_VALUE ) );\n"
"for( i = 0; i < argc; i++ ) {\n" " argv[i] = caml_list_nth(args,i);\n" "}\n", NIL); "for( i = 0; i < argc; i++ ) {\n" " argv[i] = caml_list_nth(args,i);\n" "}\n", NIL);
Printv(df->code, dispatch, "\n", NIL); Printv(df->code, dispatch, "\nfree(argv);\n", NIL);
Node *sibl = n; Node *sibl = n;
while (Getattr(sibl, "sym:previousSibling")) while (Getattr(sibl, "sym:previousSibling"))
sibl = Getattr(sibl, "sym:previousSibling"); sibl = Getattr(sibl, "sym:previousSibling");