Also do it for AVPacket.

Author: toots

Diff for: CHANGES

@@ -1,9 +1,9 @@
 1.1.3 (2022-04-06)
 =====
-* Use size of memory referred by AVFrame
-  when allocating OCaml frame custom block
-  to make sure the GC is diligent when cleaning
-  up OCaml values referring to AVFrame.
+* Use size of memory referred by AVFrame and AVPacket
+  when allocating OCaml frame custom block to make sure
+  the GC is diligent when cleaning up OCaml values
+  referring to AVFrame and AVPacket.
 
 1.1.2 (2022-03-13)
 =====

Diff for: avcodec/avcodec_stubs.c

@@ -144,7 +144,12 @@ value value_of_ffmpeg_packet(AVPacket *packet) {
   if (!packet)
     Fail("Empty packet");
 
-  ret = caml_alloc_custom(&packet_ops, sizeof(AVPacket *), 0, 1);
+  int size = 0;
+
+  if (packet->buf)
+    size = packet->buf->size;
+
+  ret = caml_alloc_custom_mem(&packet_ops, sizeof(AVPacket *), size);
   Packet_val(ret) = packet;
 
   return ret;