Mercurial > repos > blastem
view zlib/gzclose.c @ 1917:b91c35bce3e9
Top bits of address register should be cleared on partial command word write. Fixes Mona in 344 bytes demo
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 03 Apr 2020 23:47:17 -0700 |
parents | 00d788dac91a |
children |
line wrap: on
line source
/* gzclose.c -- zlib gzclose() function * Copyright (C) 2004, 2010 Mark Adler * For conditions of distribution and use, see copyright notice in zlib.h */ #include "gzguts.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(file) 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 }