remove embed.pl duplicates

p4raw-id: //depot/perlio@13948

diff --git a/embed.h b/embed.h
index 560752d..273e199 100644 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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