This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Re: [PATCH] Stop splitpod truncating sprintf manpage
[perl5.git]
/
perlio.h
diff --git
a/perlio.h
b/perlio.h
index
c36cdf4
..
dd1e3d5
100644
(file)
--- a/
perlio.h
+++ b/
perlio.h
@@
-195,6
+195,13
@@
extern void PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param);
/* --------------------- Now prototypes for functions --------------- */
START_EXTERN_C
/* --------------------- Now prototypes for functions --------------- */
START_EXTERN_C
+#ifndef __attribute__format__
+#ifdef CHECK_FORMAT
+#define __attribute__format__(x,y,z) __attribute__((__format__(x,y,z)))
+#else
+#define __attribute__format__(x,y,z)
+#endif
+#endif
#ifndef NEXT30_NO_ATTRIBUTE
#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
#ifdef __attribute__ /* Avoid possible redefinition errors */
#ifndef NEXT30_NO_ATTRIBUTE
#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
#ifdef __attribute__ /* Avoid possible redefinition errors */
@@
-362,15
+369,9
@@
extern int PerlIO_intmode2str(int rawmode, char *mode, int *writing);
#ifdef PERLIO_LAYERS
extern void PerlIO_cleanup(pTHX);
#ifdef PERLIO_LAYERS
extern void PerlIO_cleanup(pTHX);
-extern void PerlIO_debug(const char *fmt, ...)
-#ifdef CHECK_FORMAT
- __attribute__ ((__format__(__printf__, 1, 2)))
-#endif
-;
-
+extern void PerlIO_debug(const char *fmt, ...);
typedef struct PerlIO_list_s PerlIO_list_t;
typedef struct PerlIO_list_s PerlIO_list_t;
-extern PerlIO *PerlIO_syslayer(pTHX_ PerlIO *);
#endif
#endif