ffi: fix leak on struct/union redefinition.

* ffi.c (make_ffi_type_struct, make_ffi_type_union): When we
are replacing the existing type, if HAVE_FFI is true, we
must free the tft->ft object before clobbering the tft with
zeros.

1 files changed, 6 insertions, 0 deletions

diff --git a/ffi.c b/ffi.c
index 4c457584..6b67ac4d 100644
--- a/ffi.c
+++ b/ffi.c
@@ -3251,6 +3251,9 @@ static val make_ffi_type_struct(val syntax, val lisp_type,
       free(memb);
       return make_ffi_type_struct(syntax, lisp_type, nil, self);
     }
+#if HAVE_LIBFFI
+    free(tft->ft);
+#endif
     free(tft->memb);
     memset(tft, 0, sizeof *tft);
   }
@@ -3424,6 +3427,9 @@ static val make_ffi_type_union(val syntax, val use_existing, val self)
       free(memb);
       return make_ffi_type_union(syntax, nil, self);
     }
+#if HAVE_LIBFFI
+    free(tft->ft);
+#endif
     free(tft->memb);
     memset(tft, 0, sizeof *tft);
   }