1 files changed, 24 insertions, 0 deletions
diff --git a/archived/ptlibzippy/gzclose.c b/archived/ptlibzippy/gzclose.c
new file mode 100644
index 0000000000..ed3bf19b4f
--- /dev/null
+++ b/archived/ptlibzippy/gzclose.c
@@ -0,0 +1,24 @@
+/* gzclose.c -- zlib gzclose() function
+ * Copyright (C) 2004, 2010 Mark Adler
+ * Copyright (C) 2026 Project Tick
+ * For conditions of distribution and use, see copyright notice in ptlibzippy.h
+ */
+
+#include "ptzippyguts.h"
+
+/* gzclose() is in a separate file so that it is linked in only if it is used.
+   That way the other gzclose functions can be used instead to avoid linking in
+   unneeded compression or decompression routines. */
+int ZEXPORT gzclose(gzFile file) {
+#ifndef NO_GZCOMPRESS
+    gz_statep state;
+
+    if (file == NULL)
+        return Z_STREAM_ERROR;
+    state = (gz_statep)file;
+
+    return state->mode == GZ_READ ? gzclose_r(file) : gzclose_w(file);
+#else
+    return gzclose_r(file);
+#endif
+}