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
Change 24733 allows several pointers to be NULL. Therefore this
[perl5.git]
/
perl.h
diff --git
a/perl.h
b/perl.h
index
9aaf7b4
..
71d8180
100644
(file)
--- a/
perl.h
+++ b/
perl.h
@@
-208,7
+208,7
@@
/* gcc -Wall:
* for silencing unused variables that are actually used most of the time,
/* gcc -Wall:
* for silencing unused variables that are actually used most of the time,
- * but we cannot quite get rid of, such
`ax'
in PPCODE+noargs xsubs
+ * but we cannot quite get rid of, such
as "ax"
in PPCODE+noargs xsubs
*/
#define PERL_UNUSED_VAR(var) ((void)var)
*/
#define PERL_UNUSED_VAR(var) ((void)var)
@@
-320,7
+320,7
@@
register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
*/
#if !(defined(STMT_START) && defined(STMT_END))
# if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
*/
#if !(defined(STMT_START) && defined(STMT_END))
# if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
-# define STMT_START (void)( /* gcc supports
``({ STATEMENTS; })''
*/
+# define STMT_START (void)( /* gcc supports
"({ STATEMENTS; })"
*/
# define STMT_END )
# else
/* Now which other defined()s do we need here ??? */
# define STMT_END )
# else
/* Now which other defined()s do we need here ??? */
@@
-803,6
+803,13
@@
int usleep(unsigned int);
#define MEM_SIZE Size_t
#define MEM_SIZE Size_t
+/* Round all values passed to malloc up, by default to a multiple of
+ sizeof(size_t)
+*/
+#ifndef PERL_STRLEN_ROUNDUP_QUANTUM
+#define PERL_STRLEN_ROUNDUP_QUANTUM Size_t_size
+#endif
+
#if defined(STANDARD_C) && defined(I_STDDEF)
# include <stddef.h>
# define STRUCT_OFFSET(s,m) offsetof(s,m)
#if defined(STANDARD_C) && defined(I_STDDEF)
# include <stddef.h>
# define STRUCT_OFFSET(s,m) offsetof(s,m)
@@
-2101,7
+2108,6
@@
typedef struct context PERL_CONTEXT;
typedef struct block BLOCK;
typedef struct magic MAGIC;
typedef struct block BLOCK;
typedef struct magic MAGIC;
-typedef struct xrv XRV;
typedef struct xpv XPV;
typedef struct xpviv XPVIV;
typedef struct xpvuv XPVUV;
typedef struct xpv XPV;
typedef struct xpviv XPVIV;
typedef struct xpvuv XPVUV;
@@
-3185,14
+3191,15
@@
Gid_t getegid (void);
#define PERL_MAGIC_backref '<' /* for weak ref data */
#define PERL_MAGIC_symtab ':' /* extra data for symbol tables */
#define PERL_MAGIC_rhash '%' /* extra data for restricted hashes */
#define PERL_MAGIC_backref '<' /* for weak ref data */
#define PERL_MAGIC_symtab ':' /* extra data for symbol tables */
#define PERL_MAGIC_rhash '%' /* extra data for restricted hashes */
+#define PERL_MAGIC_arylen_p '@' /* to move arylen out of XPVAV */
#define PERL_MAGIC_ext '~' /* Available for use by extensions */
#ifndef assert /* <assert.h> might have been included somehow */
#define assert(what) PERL_DEB( \
((what) ? ((void) 0) : \
#define PERL_MAGIC_ext '~' /* Available for use by extensions */
#ifndef assert /* <assert.h> might have been included somehow */
#define assert(what) PERL_DEB( \
((what) ? ((void) 0) : \
- (Perl_croak(aTHX_ "Assertion
" STRINGIFY(what) " failed: file \"%s\", line %d",
\
-
__FILE__, __LINE__),
\
+ (Perl_croak(aTHX_ "Assertion
%s failed: file \"" __FILE__
\
+
"\", line %d", STRINGIFY(what), __LINE__),
\
PerlProc_exit(1), \
(void) 0)))
#endif
PerlProc_exit(1), \
(void) 0)))
#endif
@@
-5092,8
+5099,8
@@
extern void moncontrol(int);
* but also beware since this evaluates its argument twice, so no x++. */
#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
* but also beware since this evaluates its argument twice, so no x++. */
#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
-#if
def __osf__
-#pragma message disable (mainparm) /*
We have
the envp in main(). */
+#if
defined(__DECC) && defined(__osf__)
+#pragma message disable (mainparm) /*
Perl uses
the envp in main(). */
#endif
/* and finally... */
#endif
/* and finally... */