diff options
author | Craig A. Berry <craigberry@mac.com> | 2015-01-29 22:06:44 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2015-01-29 22:06:44 -0600 |
commit | 04ce8649990a4784cc3ad0b83a45ccf6a005b1be (patch) | |
tree | f5671545c2f6438e75f7729b22b76bde43c6e5b0 /iperlsys.h | |
parent | e6ad046acdf21cf68937902df307a767e93a3340 (diff) | |
download | perl-04ce8649990a4784cc3ad0b83a45ccf6a005b1be.tar.gz |
Externalize decc$ungetc prototype.
Otherwise the VMS C++ compiler mangles it and we get a link
failure.
And while we're there we can eliminate some PerlIO workarounds
for problems in long-defunct versions of the CRTL.
Diffstat (limited to 'iperlsys.h')
-rw-r--r-- | iperlsys.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 9604ad46d6..39999b063d 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -318,7 +318,9 @@ struct IPerlStdIOInfo #if defined(__VMS) /* Unusual definition of ungetc() here to accommodate fast_sv_gets()' * belief that it can mix getc/ungetc with reads from stdio buffer */ +START_EXTERN_C int decc$ungetc(int __c, FILE *__stream); +END_EXTERN_C # define PerlSIO_ungetc(c,f) ((c) == EOF ? EOF : \ ((*(f) && !((*(f))->_flag & _IONBF) && \ ((*(f))->_ptr > (*(f))->_base)) ? \ |