From: Nick Ing-Simmons Date: Sun, 30 Dec 2001 11:51:40 +0000 (+0000) Subject: remove embed.pl duplicates X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bcd4838a2aabb71350585eb4c5a0be33ada1227d;p=p5sagit%2Fp5-mst-13.2.git remove embed.pl duplicates p4raw-id: //depot/perlio@13948 --- diff --git a/embed.h b/embed.h index 560752d..273e199 100644 --- a/embed.h +++ b/embed.h @@ -1230,30 +1230,6 @@ #define PerlIO_stdout Perl_PerlIO_stdout #define PerlIO_stderr Perl_PerlIO_stderr #endif /* PERLIO_LAYERS */ -#if defined(USE_PERLIO) && !defined(USE_SFIO) -#define PerlIO_close Perl_PerlIO_close -#define PerlIO_fill Perl_PerlIO_fill -#define PerlIO_fileno Perl_PerlIO_fileno -#define PerlIO_eof Perl_PerlIO_eof -#define PerlIO_error Perl_PerlIO_error -#define PerlIO_flush Perl_PerlIO_flush -#define PerlIO_clearerr Perl_PerlIO_clearerr -#define PerlIO_set_cnt Perl_PerlIO_set_cnt -#define PerlIO_set_ptrcnt Perl_PerlIO_set_ptrcnt -#define PerlIO_setlinebuf Perl_PerlIO_setlinebuf -#define PerlIO_read Perl_PerlIO_read -#define PerlIO_write Perl_PerlIO_write -#define PerlIO_unread Perl_PerlIO_unread -#define PerlIO_tell Perl_PerlIO_tell -#define PerlIO_seek Perl_PerlIO_seek -#define PerlIO_get_base Perl_PerlIO_get_base -#define PerlIO_get_ptr Perl_PerlIO_get_ptr -#define PerlIO_get_bufsiz Perl_PerlIO_get_bufsiz -#define PerlIO_get_cnt Perl_PerlIO_get_cnt -#define PerlIO_stdin Perl_PerlIO_stdin -#define PerlIO_stdout Perl_PerlIO_stdout -#define PerlIO_stderr Perl_PerlIO_stderr -#endif /* PERLIO_LAYERS */ #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -2795,30 +2771,6 @@ #define PerlIO_stdout() Perl_PerlIO_stdout(aTHX) #define PerlIO_stderr() Perl_PerlIO_stderr(aTHX) #endif /* PERLIO_LAYERS */ -#if defined(USE_PERLIO) && !defined(USE_SFIO) -#define PerlIO_close(a) Perl_PerlIO_close(aTHX_ a) -#define PerlIO_fill(a) Perl_PerlIO_fill(aTHX_ a) -#define PerlIO_fileno(a) Perl_PerlIO_fileno(aTHX_ a) -#define PerlIO_eof(a) Perl_PerlIO_eof(aTHX_ a) -#define PerlIO_error(a) Perl_PerlIO_error(aTHX_ a) -#define PerlIO_flush(a) Perl_PerlIO_flush(aTHX_ a) -#define PerlIO_clearerr(a) Perl_PerlIO_clearerr(aTHX_ a) -#define PerlIO_set_cnt(a,b) Perl_PerlIO_set_cnt(aTHX_ a,b) -#define PerlIO_set_ptrcnt(a,b,c) Perl_PerlIO_set_ptrcnt(aTHX_ a,b,c) -#define PerlIO_setlinebuf(a) Perl_PerlIO_setlinebuf(aTHX_ a) -#define PerlIO_read(a,b,c) Perl_PerlIO_read(aTHX_ a,b,c) -#define PerlIO_write(a,b,c) Perl_PerlIO_write(aTHX_ a,b,c) -#define PerlIO_unread(a,b,c) Perl_PerlIO_unread(aTHX_ a,b,c) -#define PerlIO_tell(a) Perl_PerlIO_tell(aTHX_ a) -#define PerlIO_seek(a,b,c) Perl_PerlIO_seek(aTHX_ a,b,c) -#define PerlIO_get_base(a) Perl_PerlIO_get_base(aTHX_ a) -#define PerlIO_get_ptr(a) Perl_PerlIO_get_ptr(aTHX_ a) -#define PerlIO_get_bufsiz(a) Perl_PerlIO_get_bufsiz(aTHX_ a) -#define PerlIO_get_cnt(a) Perl_PerlIO_get_cnt(aTHX_ a) -#define PerlIO_stdin() Perl_PerlIO_stdin(aTHX) -#define PerlIO_stdout() Perl_PerlIO_stdout(aTHX) -#define PerlIO_stderr() Perl_PerlIO_stderr(aTHX) -#endif /* PERLIO_LAYERS */ #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a) diff --git a/embed.pl b/embed.pl index 66bdca5..32e7925 100755 --- a/embed.pl +++ b/embed.pl @@ -2385,33 +2385,5 @@ Ap |PerlIO *|PerlIO_stdout Ap |PerlIO *|PerlIO_stderr #endif /* PERLIO_LAYERS */ - -#if defined(USE_PERLIO) && !defined(USE_SFIO) -Ap |int |PerlIO_close |PerlIO * -Ap |int |PerlIO_fill |PerlIO * -Ap |int |PerlIO_fileno |PerlIO * -Ap |int |PerlIO_eof |PerlIO * -Ap |int |PerlIO_error |PerlIO * -Ap |int |PerlIO_flush |PerlIO * -Ap |void |PerlIO_clearerr |PerlIO * -Ap |void |PerlIO_set_cnt |PerlIO *|int -Ap |void |PerlIO_set_ptrcnt |PerlIO *|STDCHAR *|int -Ap |void |PerlIO_setlinebuf |PerlIO * -Ap |SSize_t|PerlIO_read |PerlIO *|void *|Size_t -Ap |SSize_t|PerlIO_write |PerlIO *|const void *|Size_t -Ap |SSize_t|PerlIO_unread |PerlIO *|const void *|Size_t -Ap |Off_t |PerlIO_tell |PerlIO * -Ap |int |PerlIO_seek |PerlIO *|Off_t|int - -Ap |STDCHAR *|PerlIO_get_base |PerlIO * -Ap |STDCHAR *|PerlIO_get_ptr |PerlIO * -Ap |int |PerlIO_get_bufsiz |PerlIO * -Ap |int |PerlIO_get_cnt |PerlIO * - -Ap |PerlIO *|PerlIO_stdin -Ap |PerlIO *|PerlIO_stdout -Ap |PerlIO *|PerlIO_stderr -#endif /* PERLIO_LAYERS */ - END_EXTERN_C diff --git a/global.sym b/global.sym index fc51928..4710ebb 100644 --- a/global.sym +++ b/global.sym @@ -627,25 +627,3 @@ Perl_PerlIO_get_cnt Perl_PerlIO_stdin Perl_PerlIO_stdout Perl_PerlIO_stderr -Perl_PerlIO_close -Perl_PerlIO_fill -Perl_PerlIO_fileno -Perl_PerlIO_eof -Perl_PerlIO_error -Perl_PerlIO_flush -Perl_PerlIO_clearerr -Perl_PerlIO_set_cnt -Perl_PerlIO_set_ptrcnt -Perl_PerlIO_setlinebuf -Perl_PerlIO_read -Perl_PerlIO_write -Perl_PerlIO_unread -Perl_PerlIO_tell -Perl_PerlIO_seek -Perl_PerlIO_get_base -Perl_PerlIO_get_ptr -Perl_PerlIO_get_bufsiz -Perl_PerlIO_get_cnt -Perl_PerlIO_stdin -Perl_PerlIO_stdout -Perl_PerlIO_stderr diff --git a/proto.h b/proto.h index 3c1406b..9ef7a7a 100644 --- a/proto.h +++ b/proto.h @@ -1363,33 +1363,5 @@ PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX); PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX); #endif /* PERLIO_LAYERS */ - -#if defined(USE_PERLIO) && !defined(USE_SFIO) -PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *); -PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *); -PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *, int); -PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *, STDCHAR *, int); -PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *); -PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *, void *, Size_t); -PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO *, const void *, Size_t); -PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO *, const void *, Size_t); -PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *, Off_t, int); - -PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *); -PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *); -PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *); - -PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX); -PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX); -PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX); -#endif /* PERLIO_LAYERS */ - END_EXTERN_C