diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-21 06:50:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-21 06:50:42 +0000 |
| commit | 15b61c98f82f3010e6eaa852f9fa5251de9e6dd9 (patch) | |
| tree | 073b799410f4cafab1a06a8fc9b49724fa898d08 /perlio.c | |
| parent | 953b749f4ea4a5f29351e7df3dcbb34b53f42d22 (diff) | |
| download | perl-15b61c98f82f3010e6eaa852f9fa5251de9e6dd9.tar.gz | |
Introduce two new Configure symbols:
[1] d_faststdio = d_stdstdio && d_stdio_ptr_lval &&
(d_stdio_cnt_lval || d_stdio_ptr_lval_sets_cnt)
[2] usefaststdio = do we use fast stdio if we have it?
For 5.[68], we do. For anything else, we don't.
(At least, unless otherwise instructed by -Dusefaststdio.)
This means that for bleadperl we no more use stdio, but instead
default to perlio: the effect of PERLIO=perlio, in other words.
(PERLIO=stdio will still switch to using stdio.)
This change may endanger extensions using FILE*-- but if we are
to migrate fully to perlio, better start swallowing the poison now.
For maintperl, the usefaststdio still defaults to yes.
p4raw-id: //depot/perl@19286
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -3227,16 +3227,16 @@ PerlIO_funcs PerlIO_stdio = { #ifdef USE_STDIO_PTR PerlIOStdio_get_ptr, PerlIOStdio_get_cnt, -#if (defined(STDIO_PTR_LVALUE) && (defined(STDIO_CNT_LVALUE) || defined(STDIO_PTR_LVAL_SETS_CNT))) - PerlIOStdio_set_ptrcnt -#else /* STDIO_PTR_LVALUE */ - NULL -#endif /* STDIO_PTR_LVALUE */ -#else /* USE_STDIO_PTR */ +# if defined(HAS_FAST_STDIO) && defined(USE_FAST_STDIO) + PerlIOStdio_get_ptr, +# else + NULL, +# endif /* HAS_FAST_STDIO && USE_FAST_STDIO */ +#else + NULL, NULL, NULL, - NULL -#endif /* USE_STDIO_PTR */ +#endif /* USE_STDIO_PTR */ }; /* Note that calls to PerlIO_exportFILE() are reversed using |