Restore gzgetc function for binary compatibility.

Newly compiled applications will use the gzgetc macro.
2011-12-18 14:47:08 -08:00
parent df60b50769
commit 3d85f02a09
7 changed files with 16 additions and 5 deletions
--- a/as400/bndsrc
+++ b/as400/bndsrc
@@ -53,6 +53,7 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB')
  EXPORT SYMBOL("gzputs")
  EXPORT SYMBOL("gzgets")
  EXPORT SYMBOL("gzputc")
+  EXPORT SYMBOL("gzgetc")
  EXPORT SYMBOL("gzflush")
  EXPORT SYMBOL("gzseek")
  EXPORT SYMBOL("gzrewind")
--- a/as400/zlib.inc
+++ b/as400/zlib.inc
@@ -186,6 +186,9 @@
     D  file                               value like(gzFile)                   File pointer
     D  c                            10I 0 value                                Character to write
      *
+     D gzgetc          PR            10i 0 extproc('gzgetc')
+     D  file                               value like(gzFile)                   File pointer
+      *
     D gzgetc_         PR            10i 0 extproc('gzgetc_')
     D  file                               value like(gzFile)                   File pointer
      *