diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-02 15:19:59 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-02 15:19:59 +0000 |
| commit | 1e8a8f599308436d6e164543b54e022d0b1a9177 (patch) | |
| tree | fb4625b6061da62abdc668587bde9c00f349861b /makedef.pl | |
| parent | 0553478ef48e094f904ff993d3c57b7325174272 (diff) | |
| download | perl-1e8a8f599308436d6e164543b54e022d0b1a9177.tar.gz | |
More layer syms
p4raw-id: //depot/perlio@16347
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/makedef.pl b/makedef.pl index 6f6226e5fb..f5325e8464 100644 --- a/makedef.pl +++ b/makedef.pl @@ -695,6 +695,30 @@ my @layer_syms = qw( PerlIO_push PerlIO_sv_dup PerlIO_perlio + +Perl_PerlIO_clearerr +Perl_PerlIO_close +Perl_PerlIO_eof +Perl_PerlIO_error +Perl_PerlIO_fileno +Perl_PerlIO_fill +Perl_PerlIO_flush +Perl_PerlIO_get_base +Perl_PerlIO_get_bufsiz +Perl_PerlIO_get_cnt +Perl_PerlIO_get_ptr +Perl_PerlIO_read +Perl_PerlIO_seek +Perl_PerlIO_set_cnt +Perl_PerlIO_set_ptrcnt +Perl_PerlIO_setlinebuf +Perl_PerlIO_stderr +Perl_PerlIO_stdin +Perl_PerlIO_stdout +Perl_PerlIO_tell +Perl_PerlIO_unread +Perl_PerlIO_write + ); @@ -787,6 +811,8 @@ if ($define{'USE_PERLIO'}) { # Skip the PerlIO layer symbols - although # nothing should have exported them any way skip_symbols \@layer_syms; + skip_symbols [qw(PL_def_layerlist PL_known_layers PL_perlio)]; + # Also do NOT add abstraction symbols from $perlio_sym # abstraction is done as #define to stdio # Remaining remnants that _may_ be functions @@ -1242,14 +1268,11 @@ perl_free perl_parse perl_run # Oddities from PerlIO -PerlIO_open PerlIO_binmode PerlIO_getpos PerlIO_init -PerlIO_perlio PerlIO_setpos PerlIO_sprintf -PerlIO_printf PerlIO_sv_dup PerlIO_tmpfile PerlIO_vsprintf |