diff options
| author | Mark Adler <madler@alumni.caltech.edu> | 2011-12-18 14:47:08 -0800 |
|---|---|---|
| committer | Mark Adler <madler@alumni.caltech.edu> | 2011-12-18 14:47:08 -0800 |
| commit | 3d85f02a098baeede07c7d8fcc5b147e805f127b (patch) | |
| tree | 6d6168d78532c3a62e1b0ee29aaca4002c922a7e /as400 | |
| parent | df60b50769ae9441c6ebd853948ee7da559286e0 (diff) | |
| download | zlib-3d85f02a098baeede07c7d8fcc5b147e805f127b.tar.gz zlib-3d85f02a098baeede07c7d8fcc5b147e805f127b.tar.bz2 zlib-3d85f02a098baeede07c7d8fcc5b147e805f127b.zip | |
Restore gzgetc function for binary compatibility.
Newly compiled applications will use the gzgetc macro.
Diffstat (limited to 'as400')
| -rw-r--r-- | as400/bndsrc | 1 | ||||
| -rw-r--r-- | as400/zlib.inc | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/as400/bndsrc b/as400/bndsrc index 3e26283..a7df67b 100644 --- a/as400/bndsrc +++ b/as400/bndsrc | |||
| @@ -53,6 +53,7 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
| 53 | EXPORT SYMBOL("gzputs") | 53 | EXPORT SYMBOL("gzputs") |
| 54 | EXPORT SYMBOL("gzgets") | 54 | EXPORT SYMBOL("gzgets") |
| 55 | EXPORT SYMBOL("gzputc") | 55 | EXPORT SYMBOL("gzputc") |
| 56 | EXPORT SYMBOL("gzgetc") | ||
| 56 | EXPORT SYMBOL("gzflush") | 57 | EXPORT SYMBOL("gzflush") |
| 57 | EXPORT SYMBOL("gzseek") | 58 | EXPORT SYMBOL("gzseek") |
| 58 | EXPORT SYMBOL("gzrewind") | 59 | EXPORT SYMBOL("gzrewind") |
diff --git a/as400/zlib.inc b/as400/zlib.inc index d710e13..20e3228 100644 --- a/as400/zlib.inc +++ b/as400/zlib.inc | |||
| @@ -186,6 +186,9 @@ | |||
| 186 | D file value like(gzFile) File pointer | 186 | D file value like(gzFile) File pointer |
| 187 | D c 10I 0 value Character to write | 187 | D c 10I 0 value Character to write |
| 188 | * | 188 | * |
| 189 | D gzgetc PR 10i 0 extproc('gzgetc') | ||
| 190 | D file value like(gzFile) File pointer | ||
| 191 | * | ||
| 189 | D gzgetc_ PR 10i 0 extproc('gzgetc_') | 192 | D gzgetc_ PR 10i 0 extproc('gzgetc_') |
| 190 | D file value like(gzFile) File pointer | 193 | D file value like(gzFile) File pointer |
| 191 | * | 194 | * |