diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-25 00:21:17 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-25 00:21:17 +0000 |
| commit | 33dcbb9a4b5517789b5e779cf126923149d7ff89 (patch) | |
| tree | 69afc6499e9c769fb6ebd085bf86ce971f759257 /perlio.c | |
| parent | 3fc1aec64f7c92b9646c7e2f534b41043f54f5ed (diff) | |
| download | perl-33dcbb9a4b5517789b5e779cf126923149d7ff89.tar.gz | |
Fixes to support non-std stdio.
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -35,6 +35,13 @@ PerlIO_init() */ } +#undef PerlIO_tmpfile +PerlIO * +PerlIO_tmpfile() +{ + return tmpfile(); +} + #else /* PERLIO_IS_STDIO */ #ifdef USE_SFIO @@ -158,12 +165,14 @@ PerlIO *f; char *ptr; int cnt; { +#ifdef FILE_bufsiz char *e = (char *)(FILE_base(f) + FILE_bufsiz(f)); int ec = e - ptr; if (ptr > e) warn("Setting ptr %p > base %p\n",ptr, FILE_base(f)+FILE_bufsiz(f)); if (cnt != ec) warn("Setting cnt to %d, ptr implies %d\n",cnt,ec); +#endif #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) FILE_ptr(f) = (STDCHAR *) ptr; #else |