diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-06-06 20:09:32 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-06-06 20:09:32 +0200 |
commit | feb8ebaeb76fa1c94de2dd7c4e5a0999b313f8c6 (patch) | |
tree | 273140847406f67c338677fcd1a8a1bed79579ce /test/monniaux/glpk-4.65/src/zlib/gzclose.c | |
parent | f3a13e7cb3d2f0758eb418050d48a240798f2f86 (diff) | |
download | compcert-kvx-feb8ebaeb76fa1c94de2dd7c4e5a0999b313f8c6.tar.gz compcert-kvx-feb8ebaeb76fa1c94de2dd7c4e5a0999b313f8c6.zip |
GLPK 4.65
Diffstat (limited to 'test/monniaux/glpk-4.65/src/zlib/gzclose.c')
-rw-r--r-- | test/monniaux/glpk-4.65/src/zlib/gzclose.c | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/test/monniaux/glpk-4.65/src/zlib/gzclose.c b/test/monniaux/glpk-4.65/src/zlib/gzclose.c new file mode 100644 index 00000000..caeb99a3 --- /dev/null +++ b/test/monniaux/glpk-4.65/src/zlib/gzclose.c @@ -0,0 +1,25 @@ +/* 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 +} |