perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* perl.h
	2	*
	3	* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
	4	* 2000, 2001, 2002, 2003, 2004, 2005 by Larry Wall and others
	5	*
	6	* You may distribute under the terms of either the GNU General Public
	7	* License or the Artistic License, as specified in the README file.
	8	*
	9	*/
	10
	11	#ifndef H_PERL
	12	#define H_PERL 1
	13
	14	#ifdef PERL_FOR_X2P
	15	/*
	16	* This file is being used for x2p stuff.
	17	* Above symbol is defined via -D in 'x2p/Makefile.SH'
	18	* Decouple x2p stuff from some of perls more extreme eccentricities.
	19	*/
	20	#undef MULTIPLICITY
	21	#undef USE_STDIO
	22	#define USE_STDIO
	23	#endif /* PERL_FOR_X2P */
	24
	25	#if defined(DGUX)
	26	#include <sys/fcntl.h>
	27	#endif
	28
	29	#ifdef VOIDUSED
	30	# undef VOIDUSED
	31	#endif
	32	#define VOIDUSED 1
	33
	34	#ifdef PERL_MICRO
	35	# include "uconfig.h"
	36	#else
	37	# include "config.h"
	38	#endif
	39
	40	/* See L<perlguts/"The Perl API"> for detailed notes on
	41	* PERL_IMPLICIT_CONTEXT and PERL_IMPLICIT_SYS */
	42
	43	/* Note that from here --> to <-- the same logic is
	44	* repeated in makedef.pl, so be certain to update
	45	* both places when editing. */
	46
	47	#ifdef PERL_IMPLICIT_SYS
	48	/* PERL_IMPLICIT_SYS implies PerlMemShared != PerlMem
	49	so use slab allocator to avoid lots of MUTEX overhead
	50	*/
	51	# ifndef PL_OP_SLAB_ALLOC
	52	# define PL_OP_SLAB_ALLOC
	53	# endif
	54	#endif
	55
	56	#ifdef USE_ITHREADS
	57	# if !defined(MULTIPLICITY)
	58	# define MULTIPLICITY
	59	# endif
	60	#endif
	61
	62	#if defined(MULTIPLICITY)
	63	# ifndef PERL_IMPLICIT_CONTEXT
	64	# define PERL_IMPLICIT_CONTEXT
	65	# endif
	66	#endif
	67
	68	#ifdef PERL_GLOBAL_STRUCT_PRIVATE
	69	# ifndef PERL_GLOBAL_STRUCT
	70	# define PERL_GLOBAL_STRUCT
	71	# endif
	72	#endif
	73	#ifdef PERL_GLOBAL_STRUCT
	74	# ifndef MULTIPLICITY
	75	# define MULTIPLICITY
	76	# endif
	77	#endif
	78
	79	/* undef WIN32 when building on Cygwin (for libwin32) - gph */
	80	#ifdef __CYGWIN__
	81	# undef WIN32
	82	# undef _WIN32
	83	#endif
	84
	85	#if defined(__SYMBIAN32__) \|\| (defined(__VC32__) && defined(WINS))
	86	# ifndef SYMBIAN
	87	# define SYMBIAN
	88	# endif
	89	#endif
	90
	91	#ifdef __SYMBIAN32__
	92	# include "symbian/symbian_proto.h"
	93	#endif
	94
	95	/* Any stack-challenged places. The limit varies (and often
	96	* is configurable), but using more than a kilobyte of stack
	97	* is usually dubious in these systems. */
	98	#if defined(EPOC) \|\| defined(__SYMBIAN32__)
	99	/* EPOC/Symbian: need to work around the SDK features. *
	100	* On WINS: MS VC5 generates calls to _chkstk, *
	101	* if a "large" stack frame is allocated. *
	102	* gcc on MARM does not generate calls like these. */
	103	# define USE_HEAP_INSTEAD_OF_STACK
	104	#endif
	105
	106	#/* Use the reentrant APIs like localtime_r and getpwent_r */
	107	/* Win32 has naturally threadsafe libraries, no need to use any _r variants. */
	108	#if defined(USE_ITHREADS) && !defined(USE_REENTRANT_API) && !defined(NETWARE) && !defined(WIN32) && !defined(PERL_DARWIN)
	109	# define USE_REENTRANT_API
	110	#endif
	111
	112	/* <--- here ends the logic shared by perl.h and makedef.pl */
	113
	114	/*
	115	* PERL_DARWIN for MacOSX (__APPLE__ exists but is not officially sanctioned)
	116	* (The -DPERL_DARWIN comes from the hints/darwin.sh.)
	117	* __bsdi__ for BSD/OS
	118	*/
	119	#if defined(__FreeBSD__) \|\| defined(__NetBSD__) \|\| defined(__OpenBSD__) \|\| defined(PERL_DARWIN) \|\| defined(__bsdi__) \|\| defined(BSD41) \|\| defined(BSD42) \|\| defined(BSD43) \|\| defined(BSD44)
	120	# ifndef BSDish
	121	# define BSDish
	122	# endif
	123	#endif
	124
	125	#ifdef PERL_GLOBAL_STRUCT
	126	# ifndef PERL_GET_VARS
	127	# ifdef PERL_GLOBAL_STRUCT_PRIVATE
	128	extern struct perl_vars* Perl_GetVarsPrivate();
	129	# define PERL_GET_VARS() Perl_GetVarsPrivate() /* see miniperlmain.c */
	130	# ifndef PERLIO_FUNCS_CONST
	131	# define PERLIO_FUNCS_CONST /* Can't have these lying around. */
	132	# endif
	133	# else
	134	# define PERL_GET_VARS() PL_VarsPtr
	135	# endif
	136	# endif
	137	#endif
	138
	139	#define pVAR register struct perl_vars* my_vars PERL_UNUSED_DECL
	140
	141	#ifdef PERL_GLOBAL_STRUCT
	142	# define dVAR pVAR = (struct perl_vars*)PERL_GET_VARS()
	143	#else
	144	# define dVAR dNOOP
	145	#endif
	146
	147	#ifdef PERL_IMPLICIT_CONTEXT
	148	# ifndef MULTIPLICITY
	149	# define MULTIPLICITY
	150	# endif
	151	# define tTHX PerlInterpreter*
	152	# define sTHX (sizeof(tTHX) + (MEM_ALIGNBYTES - sizeof(tTHX)%MEM_ALIGNBYTES) % MEM_ALIGNBYTES)
	153	# define pTHX register tTHX my_perl PERL_UNUSED_DECL
	154	# define aTHX my_perl
	155	# ifdef PERL_GLOBAL_STRUCT
	156	# define dTHXa(a) dVAR; pTHX = (tTHX)a
	157	# else
	158	# define dTHXa(a) pTHX = (tTHX)a
	159	# endif
	160	# ifdef PERL_GLOBAL_STRUCT
	161	# define dTHX dVAR; pTHX = PERL_GET_THX
	162	# else
	163	# define dTHX pTHX = PERL_GET_THX
	164	# endif
	165	# define pTHX_ pTHX,
	166	# define aTHX_ aTHX,
	167	# define pTHX_1 2
	168	# define pTHX_2 3
	169	# define pTHX_3 4
	170	# define pTHX_4 5
	171	# define pTHX_5 6
	172	# define pTHX_6 7
	173	# define pTHX_7 8
	174	# define pTHX_8 9
	175	# define pTHX_9 10
	176	# if defined(DEBUGGING) && !defined(PERL_TRACK_MEMPOOL)
	177	# define PERL_TRACK_MEMPOOL
	178	# endif
	179	#else
	180	# undef PERL_TRACK_MEMPOOL
	181	#endif
	182
	183	#define STATIC static
	184	#define CPERLscope(x) x
	185	#define CPERLarg void
	186	#define CPERLarg_
	187	#define _CPERLarg
	188	#define PERL_OBJECT_THIS
	189	#define _PERL_OBJECT_THIS
	190	#define PERL_OBJECT_THIS_
	191	#define CALL_FPTR(fptr) (*fptr)
	192
	193	#define CALLRUNOPS CALL_FPTR(PL_runops)
	194	#define CALLREGCOMP CALL_FPTR(PL_regcompp)
	195	#define CALLREGEXEC CALL_FPTR(PL_regexecp)
	196	#define CALLREG_INTUIT_START CALL_FPTR(PL_regint_start)
	197	#define CALLREG_INTUIT_STRING CALL_FPTR(PL_regint_string)
	198	#define CALLREGFREE CALL_FPTR(PL_regfree)
	199
	200	/* XXX The PERL_UNUSED_DECL suffix is unfortunately rather inflexible:
	201	* it assumes that in all compilers the way to suppress an "unused"
	202	* warning is to have a suffix. In some compilers that might be a
	203	* a compiler pragma, e.g. #pragma unused(varname). */
	204
	205	#if defined(__SYMBIAN32__) && defined(__GNUC__)
	206	# ifdef __cplusplus
	207	# define PERL_UNUSED_DECL
	208	# else
	209	# define PERL_UNUSED_DECL __attribute__((unused))
	210	# endif
	211	#endif
	212
	213	#ifndef PERL_UNUSED_DECL
	214	# ifdef HASATTRIBUTE_UNUSED
	215	# define PERL_UNUSED_DECL __attribute__unused__
	216	# else
	217	# define PERL_UNUSED_DECL
	218	# endif
	219	#endif
	220
	221	/* gcc -Wall:
	222	* for silencing unused variables that are actually used most of the time,
	223	* but we cannot quite get rid of, such as "ax" in PPCODE+noargs xsubs
	224	*/
	225	#ifndef PERL_UNUSED_ARG
	226	# ifdef lint
	227	# include <note.h>
	228	# define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
	229	# else
	230	# define PERL_UNUSED_ARG(x) ((void)x)
	231	# endif
	232	#endif
	233	#ifndef PERL_UNUSED_VAR
	234	# define PERL_UNUSED_VAR(x) ((void)x)
	235	#endif
	236
	237	#define NOOP (void)0
	238	#define dNOOP extern int Perl___notused PERL_UNUSED_DECL
	239
	240	#ifndef pTHX
	241	/* Don't bother defining tTHX and sTHX; using them outside
	242	* code guarded by PERL_IMPLICIT_CONTEXT is an error.
	243	*/
	244	# define pTHX void
	245	# define pTHX_
	246	# define aTHX
	247	# define aTHX_
	248	# define dTHXa(a) dNOOP
	249	# define dTHX dNOOP
	250	# define pTHX_1 1
	251	# define pTHX_2 2
	252	# define pTHX_3 3
	253	# define pTHX_4 4
	254	# define pTHX_5 5
	255	# define pTHX_6 6
	256	# define pTHX_7 7
	257	# define pTHX_8 8
	258	# define pTHX_9 9
	259	#endif
	260
	261	#ifndef dVAR
	262	# define dVAR dNOOP
	263	#endif
	264
	265	/* these are only defined for compatibility; should not be used internally */
	266	#if !defined(pTHXo) && !defined(PERL_CORE)
	267	# define pTHXo pTHX
	268	# define pTHXo_ pTHX_
	269	# define aTHXo aTHX
	270	# define aTHXo_ aTHX_
	271	# define dTHXo dTHX
	272	# define dTHXoa(x) dTHXa(x)
	273	#endif
	274
	275	#ifndef pTHXx
	276	# define pTHXx register PerlInterpreter *my_perl
	277	# define pTHXx_ pTHXx,
	278	# define aTHXx my_perl
	279	# define aTHXx_ aTHXx,
	280	# define dTHXx dTHX
	281	#endif
	282
	283	/* Under PERL_IMPLICIT_SYS (used in Windows for fork emulation)
	284	* PerlIO_foo() expands to PL_StdIO->pFOO(PL_StdIO, ...).
	285	* dTHXs is therefore needed for all functions using PerlIO_foo(). */
	286	#ifdef PERL_IMPLICIT_SYS
	287	# ifdef PERL_GLOBAL_STRUCT_PRIVATE
	288	# define dTHXs dVAR; dTHX
	289	# else
	290	# define dTHXs dTHX
	291	# endif
	292	#else
	293	# ifdef PERL_GLOBAL_STRUCT_PRIVATE
	294	# define dTHXs dVAR
	295	# else
	296	# define dTHXs dNOOP
	297	# endif
	298	#endif
	299
	300	#undef START_EXTERN_C
	301	#undef END_EXTERN_C
	302	#undef EXTERN_C
	303	#ifdef __cplusplus
	304	# define START_EXTERN_C extern "C" {
	305	# define END_EXTERN_C }
	306	# define EXTERN_C extern "C"
	307	#else
	308	# define START_EXTERN_C
	309	# define END_EXTERN_C
	310	# define EXTERN_C extern
	311	#endif
	312
	313	/* Some platforms require marking function declarations
	314	* for them to be exportable. Used in perlio.h, proto.h
	315	* is handled either by the makedef.pl or by defining the
	316	* PERL_CALLCONV to be something special. See also the
	317	* definition of XS() in XSUB.h. */
	318	#ifndef PERL_EXPORT_C
	319	# define PERL_EXPORT_C extern
	320	#endif
	321	#ifndef PERL_XS_EXPORT_C
	322	# define PERL_XS_EXPORT_C
	323	#endif
	324
	325	#ifdef OP_IN_REGISTER
	326	# ifdef __GNUC__
	327	# define stringify_immed(s) #s
	328	# define stringify(s) stringify_immed(s)
	329	register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
	330	# endif
	331	#endif
	332
	333	#if defined(__STRICT_ANSI__) && defined(PERL_GCC_PEDANTIC)
	334	# if !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
	335	# define PERL_GCC_BRACE_GROUPS_FORBIDDEN
	336	# endif
	337	#endif
	338
	339	/*
	340	* STMT_START { statements; } STMT_END;
	341	* can be used as a single statement, as in
	342	* if (x) STMT_START { ... } STMT_END; else ...
	343	*
	344	* Trying to select a version that gives no warnings...
	345	*/
	346	#if !(defined(STMT_START) && defined(STMT_END))
	347	# if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
	348	# define STMT_START (void)( /* gcc supports "({ STATEMENTS; })" */
	349	# define STMT_END )
	350	# else
	351	/* Now which other defined()s do we need here ??? */
	352	# if (VOIDFLAGS) && (defined(sun) \|\| defined(__sun__)) && !defined(__GNUC__)
	353	# define STMT_START if (1)
	354	# define STMT_END else (void)0
	355	# else
	356	# define STMT_START do
	357	# define STMT_END while (0)
	358	# endif
	359	# endif
	360	#endif
	361
	362	#define WITH_THX(s) STMT_START { dTHX; s; } STMT_END
	363	#define WITH_THR(s) WITH_THX(s)
	364
	365	/*
	366	* SOFT_CAST can be used for args to prototyped functions to retain some
	367	* type checking; it only casts if the compiler does not know prototypes.
	368	*/
	369	#if defined(CAN_PROTOTYPE) && defined(DEBUGGING_COMPILE)
	370	#define SOFT_CAST(type)
	371	#else
	372	#define SOFT_CAST(type) (type)
	373	#endif
	374
	375	#ifndef BYTEORDER /* Should never happen -- byteorder is in config.h */
	376	# define BYTEORDER 0x1234
	377	#endif
	378
	379	/* Overall memory policy? */
	380	#ifndef CONSERVATIVE
	381	# define LIBERAL 1
	382	#endif
	383
	384	#if 'A' == 65 && 'I' == 73 && 'J' == 74 && 'Z' == 90
	385	#define ASCIIish
	386	#else
	387	#undef ASCIIish
	388	#endif
	389
	390	/*
	391	* The following contortions are brought to you on behalf of all the
	392	* standards, semi-standards, de facto standards, not-so-de-facto standards
	393	* of the world, as well as all the other botches anyone ever thought of.
	394	* The basic theory is that if we work hard enough here, the rest of the
	395	* code can be a lot prettier. Well, so much for theory. Sorry, Henry...
	396	*/
	397
	398	/* define this once if either system, instead of cluttering up the src */
	399	#if defined(MSDOS) \|\| defined(atarist) \|\| defined(WIN32) \|\| defined(NETWARE)
	400	#define DOSISH 1
	401	#endif
	402
	403	#if defined(__STDC__) \|\| defined(_AIX) \|\| defined(__stdc__) \|\| defined(__cplusplus) \|\| defined(EPOC) \|\| defined(NETWARE) \|\| defined(__SYMBIAN32__)
	404	# define STANDARD_C 1
	405	#endif
	406
	407	#if defined(__cplusplus) \|\| defined(WIN32) \|\| defined(__sgi) \|\| defined(__EMX__) \|\| defined(__DGUX) \|\| defined(EPOC) \|\| defined(__QNX__) \|\| defined(NETWARE) \|\| defined(PERL_MICRO)
	408	# define DONT_DECLARE_STD 1
	409	#endif
	410
	411	#if defined(HASVOLATILE) \|\| defined(STANDARD_C)
	412	# ifdef __cplusplus
	413	# define VOL /* to temporarily suppress warnings */
	414	# else
	415	# define VOL volatile
	416	# endif
	417	#else
	418	# define VOL
	419	#endif
	420
	421	#define TAINT (PL_tainted = TRUE)
	422	#define TAINT_NOT (PL_tainted = FALSE)
	423	#define TAINT_IF(c) if (c) { PL_tainted = TRUE; }
	424	#define TAINT_ENV() if (PL_tainting) { taint_env(); }
	425	#define TAINT_PROPER(s) if (PL_tainting) { taint_proper(Nullch, s); }
	426
	427	/* XXX All process group stuff is handled in pp_sys.c. Should these
	428	defines move there? If so, I could simplify this a lot. --AD 9/96.
	429	*/
	430	/* Process group stuff changed from traditional BSD to POSIX.
	431	perlfunc.pod documents the traditional BSD-style syntax, so we'll
	432	try to preserve that, if possible.
	433	*/
	434	#ifdef HAS_SETPGID
	435	# define BSD_SETPGRP(pid, pgrp) setpgid((pid), (pgrp))
	436	#else
	437	# if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
	438	# define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
	439	# else
	440	# ifdef HAS_SETPGRP2 /* DG/UX */
	441	# define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
	442	# endif
	443	# endif
	444	#endif
	445	#if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
	446	# define HAS_SETPGRP /* Well, effectively it does . . . */
	447	#endif
	448
	449	/* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
	450	our life easier :-) so we'll try it.
	451	*/
	452	#ifdef HAS_GETPGID
	453	# define BSD_GETPGRP(pid) getpgid((pid))
	454	#else
	455	# if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
	456	# define BSD_GETPGRP(pid) getpgrp((pid))
	457	# else
	458	# ifdef HAS_GETPGRP2 /* DG/UX */
	459	# define BSD_GETPGRP(pid) getpgrp2((pid))
	460	# endif
	461	# endif
	462	#endif
	463	#if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
	464	# define HAS_GETPGRP /* Well, effectively it does . . . */
	465	#endif
	466
	467	/* These are not exact synonyms, since setpgrp() and getpgrp() may
	468	have different behaviors, but perl.h used to define USE_BSDPGRP
	469	(prior to 5.003_05) so some extension might depend on it.
	470	*/
	471	#if defined(USE_BSD_SETPGRP) \|\| defined(USE_BSD_GETPGRP)
	472	# ifndef USE_BSDPGRP
	473	# define USE_BSDPGRP
	474	# endif
	475	#endif
	476
	477	/* HP-UX 10.X CMA (Common Multithreaded Architecure) insists that
	478	pthread.h must be included before all other header files.
	479	*/
	480	#if defined(USE_ITHREADS) && defined(PTHREAD_H_FIRST) && defined(I_PTHREAD)
	481	# include <pthread.h>
	482	#endif
	483
	484	#ifndef _TYPES_ /* If types.h defines this it's easy. */
	485	# ifndef major /* Does everyone's types.h define this? */
	486	# include <sys/types.h>
	487	# endif
	488	#endif
	489
	490	#ifdef __cplusplus
	491	# ifndef I_STDARG
	492	# define I_STDARG 1
	493	# endif
	494	#endif
	495
	496	#ifdef I_STDARG
	497	# include <stdarg.h>
	498	#else
	499	# ifdef I_VARARGS
	500	# include <varargs.h>
	501	# endif
	502	#endif
	503
	504	#ifdef USE_NEXT_CTYPE
	505
	506	#if NX_CURRENT_COMPILER_RELEASE >= 500
	507	# include <bsd/ctypes.h>
	508	#else
	509	# if NX_CURRENT_COMPILER_RELEASE >= 400
	510	# include <objc/NXCType.h>
	511	# else /* NX_CURRENT_COMPILER_RELEASE < 400 */
	512	# include <appkit/NXCType.h>
	513	# endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */
	514	#endif /* NX_CURRENT_COMPILER_RELEASE >= 500 */
	515
	516	#else /* !USE_NEXT_CTYPE */
	517	#include <ctype.h>
	518	#endif /* USE_NEXT_CTYPE */
	519
	520	#ifdef METHOD /* Defined by OSF/1 v3.0 by ctype.h */
	521	#undef METHOD
	522	#endif
	523
	524	#ifdef PERL_MICRO
	525	# define NO_LOCALE
	526	#endif
	527
	528	#ifdef I_LOCALE
	529	# include <locale.h>
	530	#endif
	531
	532	#if !defined(NO_LOCALE) && defined(HAS_SETLOCALE)
	533	# define USE_LOCALE
	534	# if !defined(NO_LOCALE_COLLATE) && defined(LC_COLLATE) \
	535	&& defined(HAS_STRXFRM)
	536	# define USE_LOCALE_COLLATE
	537	# endif
	538	# if !defined(NO_LOCALE_CTYPE) && defined(LC_CTYPE)
	539	# define USE_LOCALE_CTYPE
	540	# endif
	541	# if !defined(NO_LOCALE_NUMERIC) && defined(LC_NUMERIC)
	542	# define USE_LOCALE_NUMERIC
	543	# endif
	544	#endif /* !NO_LOCALE && HAS_SETLOCALE */
	545
	546	#include <setjmp.h>
	547
	548	#ifdef I_SYS_PARAM
	549	# ifdef PARAM_NEEDS_TYPES
	550	# include <sys/types.h>
	551	# endif
	552	# include <sys/param.h>
	553	#endif
	554
	555	/* Use all the "standard" definitions? */
	556	#if defined(STANDARD_C) && defined(I_STDLIB)
	557	# include <stdlib.h>
	558	#endif
	559
	560	/* If this causes problems, set i_unistd=undef in the hint file. */
	561	#ifdef I_UNISTD
	562	# include <unistd.h>
	563	#endif
	564
	565	#ifdef __SYMBIAN32__
	566	# undef _SC_ARG_MAX /* Symbian has _SC_ARG_MAX but no sysconf() */
	567	#endif
	568
	569	#if defined(HAS_SYSCALL) && !defined(HAS_SYSCALL_PROTO) && !defined(PERL_MICRO)
	570	int syscall(int, ...);
	571	#endif
	572
	573	#if defined(HAS_USLEEP) && !defined(HAS_USLEEP_PROTO) && !defined(PERL_MICRO)
	574	int usleep(unsigned int);
	575	#endif
	576
	577	#ifdef PERL_MICRO /* Last chance to export Perl_my_swap */
	578	# define MYSWAP
	579	#endif
	580
	581	#ifdef PERL_CORE
	582
	583	/* macros for correct constant construction */
	584	# if INTSIZE >= 2
	585	# define U16_CONST(x) ((U16)x##U)
	586	# else
	587	# define U16_CONST(x) ((U16)x##UL)
	588	# endif
	589
	590	# if INTSIZE >= 4
	591	# define U32_CONST(x) ((U32)x##U)
	592	# else
	593	# define U32_CONST(x) ((U32)x##UL)
	594	# endif
	595
	596	# ifdef HAS_QUAD
	597	# if INTSIZE >= 8
	598	# define U64_CONST(x) ((U64)x##U)
	599	# elif LONGSIZE >= 8
	600	# define U64_CONST(x) ((U64)x##UL)
	601	# elif QUADKIND == QUAD_IS_LONG_LONG
	602	# define U64_CONST(x) ((U64)x##ULL)
	603	# else /* best guess we can make */
	604	# define U64_CONST(x) ((U64)x##UL)
	605	# endif
	606	# endif
	607
	608	/* byte-swapping functions for big-/little-endian conversion */
	609	# define _swab_16_(x) ((U16)( \
	610	(((U16)(x) & U16_CONST(0x00ff)) << 8) \| \
	611	(((U16)(x) & U16_CONST(0xff00)) >> 8) ))
	612
	613	# define _swab_32_(x) ((U32)( \
	614	(((U32)(x) & U32_CONST(0x000000ff)) << 24) \| \
	615	(((U32)(x) & U32_CONST(0x0000ff00)) << 8) \| \
	616	(((U32)(x) & U32_CONST(0x00ff0000)) >> 8) \| \
	617	(((U32)(x) & U32_CONST(0xff000000)) >> 24) ))
	618
	619	# ifdef HAS_QUAD
	620	# define _swab_64_(x) ((U64)( \
	621	(((U64)(x) & U64_CONST(0x00000000000000ff)) << 56) \| \
	622	(((U64)(x) & U64_CONST(0x000000000000ff00)) << 40) \| \
	623	(((U64)(x) & U64_CONST(0x0000000000ff0000)) << 24) \| \
	624	(((U64)(x) & U64_CONST(0x00000000ff000000)) << 8) \| \
	625	(((U64)(x) & U64_CONST(0x000000ff00000000)) >> 8) \| \
	626	(((U64)(x) & U64_CONST(0x0000ff0000000000)) >> 24) \| \
	627	(((U64)(x) & U64_CONST(0x00ff000000000000)) >> 40) \| \
	628	(((U64)(x) & U64_CONST(0xff00000000000000)) >> 56) ))
	629	# endif
	630
	631	/----------------------------------------------------------------------------/
	632	# if BYTEORDER == 0x1234 \|\| BYTEORDER == 0x12345678 /* little-endian */
	633	/----------------------------------------------------------------------------/
	634	# define my_htole16(x) (x)
	635	# define my_letoh16(x) (x)
	636	# define my_htole32(x) (x)
	637	# define my_letoh32(x) (x)
	638	# define my_htobe16(x) _swab_16_(x)
	639	# define my_betoh16(x) _swab_16_(x)
	640	# define my_htobe32(x) _swab_32_(x)
	641	# define my_betoh32(x) _swab_32_(x)
	642	# ifdef HAS_QUAD
	643	# define my_htole64(x) (x)
	644	# define my_letoh64(x) (x)
	645	# define my_htobe64(x) _swab_64_(x)
	646	# define my_betoh64(x) _swab_64_(x)
	647	# endif
	648	# define my_htoles(x) (x)
	649	# define my_letohs(x) (x)
	650	# define my_htolei(x) (x)
	651	# define my_letohi(x) (x)
	652	# define my_htolel(x) (x)
	653	# define my_letohl(x) (x)
	654	# if SHORTSIZE == 1
	655	# define my_htobes(x) (x)
	656	# define my_betohs(x) (x)
	657	# elif SHORTSIZE == 2
	658	# define my_htobes(x) _swab_16_(x)
	659	# define my_betohs(x) _swab_16_(x)
	660	# elif SHORTSIZE == 4
	661	# define my_htobes(x) _swab_32_(x)
	662	# define my_betohs(x) _swab_32_(x)
	663	# elif SHORTSIZE == 8
	664	# define my_htobes(x) _swab_64_(x)
	665	# define my_betohs(x) _swab_64_(x)
	666	# else
	667	# define PERL_NEED_MY_HTOBES
	668	# define PERL_NEED_MY_BETOHS
	669	# endif
	670	# if INTSIZE == 1
	671	# define my_htobei(x) (x)
	672	# define my_betohi(x) (x)
	673	# elif INTSIZE == 2
	674	# define my_htobei(x) _swab_16_(x)
	675	# define my_betohi(x) _swab_16_(x)
	676	# elif INTSIZE == 4
	677	# define my_htobei(x) _swab_32_(x)
	678	# define my_betohi(x) _swab_32_(x)
	679	# elif INTSIZE == 8
	680	# define my_htobei(x) _swab_64_(x)
	681	# define my_betohi(x) _swab_64_(x)
	682	# else
	683	# define PERL_NEED_MY_HTOBEI
	684	# define PERL_NEED_MY_BETOHI
	685	# endif
	686	# if LONGSIZE == 1
	687	# define my_htobel(x) (x)
	688	# define my_betohl(x) (x)
	689	# elif LONGSIZE == 2
	690	# define my_htobel(x) _swab_16_(x)
	691	# define my_betohl(x) _swab_16_(x)
	692	# elif LONGSIZE == 4
	693	# define my_htobel(x) _swab_32_(x)
	694	# define my_betohl(x) _swab_32_(x)
	695	# elif LONGSIZE == 8
	696	# define my_htobel(x) _swab_64_(x)
	697	# define my_betohl(x) _swab_64_(x)
	698	# else
	699	# define PERL_NEED_MY_HTOBEL
	700	# define PERL_NEED_MY_BETOHL
	701	# endif
	702	# define my_htolen(p,n) NOOP
	703	# define my_letohn(p,n) NOOP
	704	# define my_htoben(p,n) my_swabn(p,n)
	705	# define my_betohn(p,n) my_swabn(p,n)
	706	/----------------------------------------------------------------------------/
	707	# elif BYTEORDER == 0x4321 \|\| BYTEORDER == 0x87654321 /* big-endian */
	708	/----------------------------------------------------------------------------/
	709	# define my_htobe16(x) (x)
	710	# define my_betoh16(x) (x)
	711	# define my_htobe32(x) (x)
	712	# define my_betoh32(x) (x)
	713	# define my_htole16(x) _swab_16_(x)
	714	# define my_letoh16(x) _swab_16_(x)
	715	# define my_htole32(x) _swab_32_(x)
	716	# define my_letoh32(x) _swab_32_(x)
	717	# ifdef HAS_QUAD
	718	# define my_htobe64(x) (x)
	719	# define my_betoh64(x) (x)
	720	# define my_htole64(x) _swab_64_(x)
	721	# define my_letoh64(x) _swab_64_(x)
	722	# endif
	723	# define my_htobes(x) (x)
	724	# define my_betohs(x) (x)
	725	# define my_htobei(x) (x)
	726	# define my_betohi(x) (x)
	727	# define my_htobel(x) (x)
	728	# define my_betohl(x) (x)
	729	# if SHORTSIZE == 1
	730	# define my_htoles(x) (x)
	731	# define my_letohs(x) (x)
	732	# elif SHORTSIZE == 2
	733	# define my_htoles(x) _swab_16_(x)
	734	# define my_letohs(x) _swab_16_(x)
	735	# elif SHORTSIZE == 4
	736	# define my_htoles(x) _swab_32_(x)
	737	# define my_letohs(x) _swab_32_(x)
	738	# elif SHORTSIZE == 8
	739	# define my_htoles(x) _swab_64_(x)
	740	# define my_letohs(x) _swab_64_(x)
	741	# else
	742	# define PERL_NEED_MY_HTOLES
	743	# define PERL_NEED_MY_LETOHS
	744	# endif
	745	# if INTSIZE == 1
	746	# define my_htolei(x) (x)
	747	# define my_letohi(x) (x)
	748	# elif INTSIZE == 2
	749	# define my_htolei(x) _swab_16_(x)
	750	# define my_letohi(x) _swab_16_(x)
	751	# elif INTSIZE == 4
	752	# define my_htolei(x) _swab_32_(x)
	753	# define my_letohi(x) _swab_32_(x)
	754	# elif INTSIZE == 8
	755	# define my_htolei(x) _swab_64_(x)
	756	# define my_letohi(x) _swab_64_(x)
	757	# else
	758	# define PERL_NEED_MY_HTOLEI
	759	# define PERL_NEED_MY_LETOHI
	760	# endif
	761	# if LONGSIZE == 1
	762	# define my_htolel(x) (x)
	763	# define my_letohl(x) (x)
	764	# elif LONGSIZE == 2
	765	# define my_htolel(x) _swab_16_(x)
	766	# define my_letohl(x) _swab_16_(x)
	767	# elif LONGSIZE == 4
	768	# define my_htolel(x) _swab_32_(x)
	769	# define my_letohl(x) _swab_32_(x)
	770	# elif LONGSIZE == 8
	771	# define my_htolel(x) _swab_64_(x)
	772	# define my_letohl(x) _swab_64_(x)
	773	# else
	774	# define PERL_NEED_MY_HTOLEL
	775	# define PERL_NEED_MY_LETOHL
	776	# endif
	777	# define my_htolen(p,n) my_swabn(p,n)
	778	# define my_letohn(p,n) my_swabn(p,n)
	779	# define my_htoben(p,n) NOOP
	780	# define my_betohn(p,n) NOOP
	781	/----------------------------------------------------------------------------/
	782	# else /* all other byte-orders */
	783	/----------------------------------------------------------------------------/
	784	# define PERL_NEED_MY_HTOLE16
	785	# define PERL_NEED_MY_LETOH16
	786	# define PERL_NEED_MY_HTOBE16
	787	# define PERL_NEED_MY_BETOH16
	788	# define PERL_NEED_MY_HTOLE32
	789	# define PERL_NEED_MY_LETOH32
	790	# define PERL_NEED_MY_HTOBE32
	791	# define PERL_NEED_MY_BETOH32
	792	# ifdef HAS_QUAD
	793	# define PERL_NEED_MY_HTOLE64
	794	# define PERL_NEED_MY_LETOH64
	795	# define PERL_NEED_MY_HTOBE64
	796	# define PERL_NEED_MY_BETOH64
	797	# endif
	798	# define PERL_NEED_MY_HTOLES
	799	# define PERL_NEED_MY_LETOHS
	800	# define PERL_NEED_MY_HTOBES
	801	# define PERL_NEED_MY_BETOHS
	802	# define PERL_NEED_MY_HTOLEI
	803	# define PERL_NEED_MY_LETOHI
	804	# define PERL_NEED_MY_HTOBEI
	805	# define PERL_NEED_MY_BETOHI
	806	# define PERL_NEED_MY_HTOLEL
	807	# define PERL_NEED_MY_LETOHL
	808	# define PERL_NEED_MY_HTOBEL
	809	# define PERL_NEED_MY_BETOHL
	810	/----------------------------------------------------------------------------/
	811	# endif /* end of byte-order macros */
	812	/----------------------------------------------------------------------------/
	813
	814	/* The old value was hard coded at 1008. (4096-16) seems to be a bit faster,
	815	at least on FreeBSD. YMMV, so experiment. */
	816	#ifndef PERL_ARENA_SIZE
	817	#define PERL_ARENA_SIZE 4080
	818	#endif
	819
	820	#endif /* PERL_CORE */
	821
	822	/* We no longer default to creating a new SV for GvSV.
	823	Do this before embed. */
	824	#ifndef PERL_CREATE_GVSV
	825	#define PERL_DONT_CREATE_GVSV
	826	#endif
	827
	828	#if !defined(HAS_WAITPID) && !defined(HAS_WAIT4) \|\| defined(HAS_WAITPID_RUNTIME)
	829	#define PERL_USES_PL_PIDSTATUS
	830	#endif
	831
	832	#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(EPOC) && !defined(__SYMBIAN32__) && !defined(MACOS_TRADITIONAL)
	833	#define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
	834	#endif
	835
	836	/* Cannot include embed.h here on Win32 as win32.h has not
	837	yet been included and defines some config variables e.g. HAVE_INTERP_INTERN
	838	*/
	839	#if !defined(PERL_FOR_X2P) && !(defined(WIN32)\|\|defined(VMS))
	840	# include "embed.h"
	841	#endif
	842
	843	#define MEM_SIZE Size_t
	844
	845	/* Round all values passed to malloc up, by default to a multiple of
	846	sizeof(size_t)
	847	*/
	848	#ifndef PERL_STRLEN_ROUNDUP_QUANTUM
	849	#define PERL_STRLEN_ROUNDUP_QUANTUM Size_t_size
	850	#endif
	851
	852	#if defined(STANDARD_C) && defined(I_STDDEF)
	853	# include <stddef.h>
	854	# define STRUCT_OFFSET(s,m) offsetof(s,m)
	855	#else
	856	# define STRUCT_OFFSET(s,m) (Size_t)(&(((s *)0)->m))
	857	#endif
	858
	859	#ifndef __SYMBIAN32__
	860	# if defined(I_STRING) \|\| defined(__cplusplus)
	861	# include <string.h>
	862	# else
	863	# include <strings.h>
	864	# endif
	865	#endif
	866
	867	/* This comes after <stdlib.h> so we don't try to change the standard
	868	* library prototypes; we'll use our own in proto.h instead. */
	869
	870	#ifdef MYMALLOC
	871	# ifdef PERL_POLLUTE_MALLOC
	872	# ifndef PERL_EXTMALLOC_DEF
	873	# define Perl_malloc malloc
	874	# define Perl_calloc calloc
	875	# define Perl_realloc realloc
	876	# define Perl_mfree free
	877	# endif
	878	# else
	879	# define EMBEDMYMALLOC /* for compatibility */
	880	# endif
	881
	882	# define safemalloc Perl_malloc
	883	# define safecalloc Perl_calloc
	884	# define saferealloc Perl_realloc
	885	# define safefree Perl_mfree
	886	# define CHECK_MALLOC_TOO_LATE_FOR_(code) STMT_START { \
	887	if (!PL_tainting && MallocCfg_ptr[MallocCfg_cfg_env_read]) \
	888	code; \
	889	} STMT_END
	890	# define CHECK_MALLOC_TOO_LATE_FOR(ch) \
	891	CHECK_MALLOC_TOO_LATE_FOR_(MALLOC_TOO_LATE_FOR(ch))
	892	# define panic_write2(s) write(2, s, strlen(s))
	893	# define CHECK_MALLOC_TAINT(newval) \
	894	CHECK_MALLOC_TOO_LATE_FOR_( \
	895	if (newval) { \
	896	panic_write2("panic: tainting with $ENV{PERL_MALLOC_OPT}\n");\
	897	exit(1); })
	898	# define MALLOC_CHECK_TAINT(argc,argv,env) STMT_START { \
	899	if (doing_taint(argc,argv,env)) { \
	900	MallocCfg_ptr[MallocCfg_skip_cfg_env] = 1; \
	901	}} STMT_END;
	902	#else /* MYMALLOC */
	903	# define safemalloc safesysmalloc
	904	# define safecalloc safesyscalloc
	905	# define saferealloc safesysrealloc
	906	# define safefree safesysfree
	907	# define CHECK_MALLOC_TOO_LATE_FOR(ch) ((void)0)
	908	# define CHECK_MALLOC_TAINT(newval) ((void)0)
	909	# define MALLOC_CHECK_TAINT(argc,argv,env)
	910	#endif /* MYMALLOC */
	911
	912	#define TOO_LATE_FOR_(ch,what) Perl_croak(aTHX_ "\"-%c\" is on the #! line, it must also be used on the command line%s", (char)(ch), what)
	913	#define TOO_LATE_FOR(ch) TOO_LATE_FOR_(ch, "")
	914	#define MALLOC_TOO_LATE_FOR(ch) TOO_LATE_FOR_(ch, " with $ENV{PERL_MALLOC_OPT}")
	915	#define MALLOC_CHECK_TAINT2(argc,argv) MALLOC_CHECK_TAINT(argc,argv,NULL)
	916
	917	#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
	918	#define strchr index
	919	#define strrchr rindex
	920	#endif
	921
	922	#ifdef I_MEMORY
	923	# include <memory.h>
	924	#endif
	925
	926	#ifdef HAS_MEMCPY
	927	# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
	928	# ifndef memcpy
	929	extern char * memcpy (char, char, int);
	930	# endif
	931	# endif
	932	#else
	933	# ifndef memcpy
	934	# ifdef HAS_BCOPY
	935	# define memcpy(d,s,l) bcopy(s,d,l)
	936	# else
	937	# define memcpy(d,s,l) my_bcopy(s,d,l)
	938	# endif
	939	# endif
	940	#endif /* HAS_MEMCPY */
	941
	942	#ifdef HAS_MEMSET
	943	# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
	944	# ifndef memset
	945	extern char memset (char, int, int);
	946	# endif
	947	# endif
	948	#else
	949	# undef memset
	950	# define memset(d,c,l) my_memset(d,c,l)
	951	#endif /* HAS_MEMSET */
	952
	953	#if !defined(HAS_MEMMOVE) && !defined(memmove)
	954	# if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
	955	# define memmove(d,s,l) bcopy(s,d,l)
	956	# else
	957	# if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY)
	958	# define memmove(d,s,l) memcpy(d,s,l)
	959	# else
	960	# define memmove(d,s,l) my_bcopy(s,d,l)
	961	# endif
	962	# endif
	963	#endif
	964
	965	#if defined(mips) && defined(ultrix) && !defined(__STDC__)
	966	# undef HAS_MEMCMP
	967	#endif
	968
	969	#if defined(HAS_MEMCMP) && defined(HAS_SANE_MEMCMP)
	970	# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
	971	# ifndef memcmp
	972	extern int memcmp (char, char, int);
	973	# endif
	974	# endif
	975	# ifdef BUGGY_MSC
	976	# pragma function(memcmp)
	977	# endif
	978	#else
	979	# ifndef memcmp
	980	# define memcmp my_memcmp
	981	# endif
	982	#endif /* HAS_MEMCMP && HAS_SANE_MEMCMP */
	983
	984	#ifndef memzero
	985	# ifdef HAS_MEMSET
	986	# define memzero(d,l) memset(d,0,l)
	987	# else
	988	# ifdef HAS_BZERO
	989	# define memzero(d,l) bzero(d,l)
	990	# else
	991	# define memzero(d,l) my_bzero(d,l)
	992	# endif
	993	# endif
	994	#endif
	995
	996	#ifndef PERL_MICRO
	997	#ifndef memchr
	998	# ifndef HAS_MEMCHR
	999	# define memchr(s,c,n) ninstr((char)(s), ((char)(s)) + n, &(c), &(c) + 1)
	1000	# endif
	1001	#endif
	1002	#endif
	1003
	1004	#ifndef HAS_BCMP
	1005	# ifndef bcmp
	1006	# define bcmp(s1,s2,l) memcmp(s1,s2,l)
	1007	# endif
	1008	#endif /* !HAS_BCMP */
	1009
	1010	#ifdef I_NETINET_IN
	1011	# include <netinet/in.h>
	1012	#endif
	1013
	1014	#ifdef I_ARPA_INET
	1015	# include <arpa/inet.h>
	1016	#endif
	1017
	1018	#if defined(SF_APPEND) && defined(USE_SFIO) && defined(I_SFIO)
	1019	/* <sfio.h> defines SF_APPEND and <sys/stat.h> might define SF_APPEND
	1020	* (the neo-BSD seem to do this). */
	1021	# undef SF_APPEND
	1022	#endif
	1023
	1024	#ifdef I_SYS_STAT
	1025	# include <sys/stat.h>
	1026	#endif
	1027
	1028	/* The stat macros for Amdahl UTS, Unisoft System V/88 (and derivatives
	1029	like UTekV) are broken, sometimes giving false positives. Undefine
	1030	them here and let the code below set them to proper values.
	1031
	1032	The ghs macro stands for GreenHills Software C-1.8.5 which
	1033	is the C compiler for sysV88 and the various derivatives.
	1034	This header file bug is corrected in gcc-2.5.8 and later versions.
	1035	--Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94. */
	1036
	1037	#if defined(uts) \|\| (defined(m88k) && defined(ghs))
	1038	# undef S_ISDIR
	1039	# undef S_ISCHR
	1040	# undef S_ISBLK
	1041	# undef S_ISREG
	1042	# undef S_ISFIFO
	1043	# undef S_ISLNK
	1044	#endif
	1045
	1046	#ifdef I_TIME
	1047	# include <time.h>
	1048	#endif
	1049
	1050	#ifdef I_SYS_TIME
	1051	# ifdef I_SYS_TIME_KERNEL
	1052	# define KERNEL
	1053	# endif
	1054	# include <sys/time.h>
	1055	# ifdef I_SYS_TIME_KERNEL
	1056	# undef KERNEL
	1057	# endif
	1058	#endif
	1059
	1060	#if defined(HAS_TIMES) && defined(I_SYS_TIMES)
	1061	# include <sys/times.h>
	1062	#endif
	1063
	1064	#if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) \|\| !defined(HAS_RMDIR))
	1065	# undef HAS_STRERROR
	1066	#endif
	1067
	1068	#include <errno.h>
	1069
	1070	#if defined(WIN32) && defined(PERL_IMPLICIT_SYS)
	1071	# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
	1072	#endif
	1073
	1074	/* In Tru64 use the 4.4BSD struct msghdr, not the 4.3 one.
	1075	* This is important for using IPv6.
	1076	* For OSF/1 3.2, however, defining _SOCKADDR_LEN would be
	1077	* a bad idea since it breaks send() and recv(). */
	1078	#if defined(__osf__) && defined(__alpha) && !defined(_SOCKADDR_LEN) && !defined(DEC_OSF1_3_X)
	1079	# define _SOCKADDR_LEN
	1080	#endif
	1081
	1082	#if defined(HAS_SOCKET) && !defined(VMS) && !defined(WIN32) /* VMS/WIN32 handle sockets via vmsish.h/win32.h */
	1083	# include <sys/socket.h>
	1084	# if defined(USE_SOCKS) && defined(I_SOCKS)
	1085	# if !defined(INCLUDE_PROTOTYPES)
	1086	# define INCLUDE_PROTOTYPES /* for <socks.h> */
	1087	# define PERL_SOCKS_NEED_PROTOTYPES
	1088	# endif
	1089	# include <socks.h>
	1090	# ifdef PERL_SOCKS_NEED_PROTOTYPES /* keep cpp space clean */
	1091	# undef INCLUDE_PROTOTYPES
	1092	# undef PERL_SOCKS_NEED_PROTOTYPES
	1093	# endif
	1094	# endif
	1095	# ifdef I_NETDB
	1096	# ifdef NETWARE
	1097	# include<stdio.h>
	1098	# endif
	1099	# include <netdb.h>
	1100	# endif
	1101	# ifndef ENOTSOCK
	1102	# ifdef I_NET_ERRNO
	1103	# include <net/errno.h>
	1104	# endif
	1105	# endif
	1106	#endif
	1107
	1108	/* sockatmark() is so new (2001) that many places might have it hidden
	1109	* behind some -D_BLAH_BLAH_SOURCE guard. The __THROW magic is required
	1110	* e.g. in Gentoo, see http://bugs.gentoo.org/show_bug.cgi?id=12605 */
	1111	#if defined(HAS_SOCKATMARK) && !defined(HAS_SOCKATMARK_PROTO)
	1112	# if defined(__THROW) && defined(__GLIBC__)
	1113	int sockatmark(int) __THROW;
	1114	# else
	1115	int sockatmark(int);
	1116	# endif
	1117	#endif
	1118
	1119	#ifdef SETERRNO
	1120	# undef SETERRNO /* SOCKS might have defined this */
	1121	#endif
	1122
	1123	#ifdef VMS
	1124	# define SETERRNO(errcode,vmserrcode) \
	1125	STMT_START { \
	1126	set_errno(errcode); \
	1127	set_vaxc_errno(vmserrcode); \
	1128	} STMT_END
	1129	# define LIB_INVARG LIB$_INVARG
	1130	# define RMS_DIR RMS$_DIR
	1131	# define RMS_FAC RMS$_FAC
	1132	# define RMS_FEX RMS$_FEX
	1133	# define RMS_FNF RMS$_FNF
	1134	# define RMS_IFI RMS$_IFI
	1135	# define RMS_ISI RMS$_ISI
	1136	# define RMS_PRV RMS$_PRV
	1137	# define SS_ACCVIO SS$_ACCVIO
	1138	# define SS_DEVOFFLINE SS$_DEVOFFLINE
	1139	# define SS_IVCHAN SS$_IVCHAN
	1140	# define SS_NORMAL SS$_NORMAL
	1141	#else
	1142	# define SETERRNO(errcode,vmserrcode) (errno = (errcode))
	1143	# define LIB_INVARG 0
	1144	# define RMS_DIR 0
	1145	# define RMS_FAC 0
	1146	# define RMS_FEX 0
	1147	# define RMS_FNF 0
	1148	# define RMS_IFI 0
	1149	# define RMS_ISI 0
	1150	# define RMS_PRV 0
	1151	# define SS_ACCVIO 0
	1152	# define SS_DEVOFFLINE 0
	1153	# define SS_IVCHAN 0
	1154	# define SS_NORMAL 0
	1155	#endif
	1156
	1157	#define ERRSV GvSV(PL_errgv)
	1158	/* FIXME? Change the assignments to PL_defgv to instantiate GvSV? */
	1159	#define DEFSV GvSVn(PL_defgv)
	1160	#define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
	1161
	1162	#define ERRHV GvHV(PL_errgv) /* XXX unused, here for compatibility */
	1163
	1164	#ifndef errno
	1165	extern int errno; /* ANSI allows errno to be an lvalue expr.
	1166	* For example in multithreaded environments
	1167	* something like this might happen:
	1168	* extern int *_errno(void);
	1169	* #define errno (_errno()) /
	1170	#endif
	1171
	1172	#ifdef HAS_STRERROR
	1173	# ifdef VMS
	1174	char *strerror (int,...);
	1175	# else
	1176	#ifndef DONT_DECLARE_STD
	1177	char *strerror (int);
	1178	#endif
	1179	# endif
	1180	# ifndef Strerror
	1181	# define Strerror strerror
	1182	# endif
	1183	#else
	1184	# ifdef HAS_SYS_ERRLIST
	1185	extern int sys_nerr;
	1186	extern char *sys_errlist[];
	1187	# ifndef Strerror
	1188	# define Strerror(e) \
	1189	((e) < 0 \|\| (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
	1190	# endif
	1191	# endif
	1192	#endif
	1193
	1194	#ifdef I_SYS_IOCTL
	1195	# ifndef _IOCTL_
	1196	# include <sys/ioctl.h>
	1197	# endif
	1198	#endif
	1199
	1200	#if defined(mc300) \|\| defined(mc500) \|\| defined(mc700) \|\| defined(mc6000)
	1201	# ifdef HAS_SOCKETPAIR
	1202	# undef HAS_SOCKETPAIR
	1203	# endif
	1204	# ifdef I_NDBM
	1205	# undef I_NDBM
	1206	# endif
	1207	#endif
	1208
	1209	#ifndef HAS_SOCKETPAIR
	1210	# ifdef HAS_SOCKET
	1211	# define socketpair Perl_my_socketpair
	1212	# endif
	1213	#endif
	1214
	1215	#if INTSIZE == 2
	1216	# define htoni htons
	1217	# define ntohi ntohs
	1218	#else
	1219	# define htoni htonl
	1220	# define ntohi ntohl
	1221	#endif
	1222
	1223	/* Configure already sets Direntry_t */
	1224	#if defined(I_DIRENT)
	1225	# include <dirent.h>
	1226	/* NeXT needs dirent + sys/dir.h */
	1227	# if defined(I_SYS_DIR) && (defined(NeXT) \|\| defined(__NeXT__))
	1228	# include <sys/dir.h>
	1229	# endif
	1230	#else
	1231	# ifdef I_SYS_NDIR
	1232	# include <sys/ndir.h>
	1233	# else
	1234	# ifdef I_SYS_DIR
	1235	# ifdef hp9000s500
	1236	# include <ndir.h> /* may be wrong in the future */
	1237	# else
	1238	# include <sys/dir.h>
	1239	# endif
	1240	# endif
	1241	# endif
	1242	#endif
	1243
	1244	#ifdef PERL_MICRO
	1245	# ifndef DIR
	1246	# define DIR void
	1247	# endif
	1248	#endif
	1249
	1250	#ifdef FPUTS_BOTCH
	1251	/* work around botch in SunOS 4.0.1 and 4.0.2 */
	1252	# ifndef fputs
	1253	# define fputs(sv,fp) fprintf(fp,"%s",sv)
	1254	# endif
	1255	#endif
	1256
	1257	/*
	1258	* The following gobbledygook brought to you on behalf of __STDC__.
	1259	* (I could just use #ifndef __STDC__, but this is more bulletproof
	1260	* in the face of half-implementations.)
	1261	*/
	1262
	1263	#if defined(I_SYSMODE) && !defined(PERL_MICRO)
	1264	#include <sys/mode.h>
	1265	#endif
	1266
	1267	#ifndef S_IFMT
	1268	# ifdef _S_IFMT
	1269	# define S_IFMT _S_IFMT
	1270	# else
	1271	# define S_IFMT 0170000
	1272	# endif
	1273	#endif
	1274
	1275	#ifndef S_ISDIR
	1276	# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
	1277	#endif
	1278
	1279	#ifndef S_ISCHR
	1280	# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
	1281	#endif
	1282
	1283	#ifndef S_ISBLK
	1284	# ifdef S_IFBLK
	1285	# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
	1286	# else
	1287	# define S_ISBLK(m) (0)
	1288	# endif
	1289	#endif
	1290
	1291	#ifndef S_ISREG
	1292	# define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
	1293	#endif
	1294
	1295	#ifndef S_ISFIFO
	1296	# ifdef S_IFIFO
	1297	# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
	1298	# else
	1299	# define S_ISFIFO(m) (0)
	1300	# endif
	1301	#endif
	1302
	1303	#ifndef S_ISLNK
	1304	# ifdef _S_ISLNK
	1305	# define S_ISLNK(m) _S_ISLNK(m)
	1306	# else
	1307	# ifdef _S_IFLNK
	1308	# define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
	1309	# else
	1310	# ifdef S_IFLNK
	1311	# define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
	1312	# else
	1313	# define S_ISLNK(m) (0)
	1314	# endif
	1315	# endif
	1316	# endif
	1317	#endif
	1318
	1319	#ifndef S_ISSOCK
	1320	# ifdef _S_ISSOCK
	1321	# define S_ISSOCK(m) _S_ISSOCK(m)
	1322	# else
	1323	# ifdef _S_IFSOCK
	1324	# define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
	1325	# else
	1326	# ifdef S_IFSOCK
	1327	# define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
	1328	# else
	1329	# define S_ISSOCK(m) (0)
	1330	# endif
	1331	# endif
	1332	# endif
	1333	#endif
	1334
	1335	#ifndef S_IRUSR
	1336	# ifdef S_IREAD
	1337	# define S_IRUSR S_IREAD
	1338	# define S_IWUSR S_IWRITE
	1339	# define S_IXUSR S_IEXEC
	1340	# else
	1341	# define S_IRUSR 0400
	1342	# define S_IWUSR 0200
	1343	# define S_IXUSR 0100
	1344	# endif
	1345	#endif
	1346
	1347	#ifndef S_IRGRP
	1348	# ifdef S_IRUSR
	1349	# define S_IRGRP (S_IRUSR>>3)
	1350	# define S_IWGRP (S_IWUSR>>3)
	1351	# define S_IXGRP (S_IXUSR>>3)
	1352	# else
	1353	# define S_IRGRP 0040
	1354	# define S_IWGRP 0020
	1355	# define S_IXGRP 0010
	1356	# endif
	1357	#endif
	1358
	1359	#ifndef S_IROTH
	1360	# ifdef S_IRUSR
	1361	# define S_IROTH (S_IRUSR>>6)
	1362	# define S_IWOTH (S_IWUSR>>6)
	1363	# define S_IXOTH (S_IXUSR>>6)
	1364	# else
	1365	# define S_IROTH 0040
	1366	# define S_IWOTH 0020
	1367	# define S_IXOTH 0010
	1368	# endif
	1369	#endif
	1370
	1371	#ifndef S_ISUID
	1372	# define S_ISUID 04000
	1373	#endif
	1374
	1375	#ifndef S_ISGID
	1376	# define S_ISGID 02000
	1377	#endif
	1378
	1379	#ifndef S_IRWXU
	1380	# define S_IRWXU (S_IRUSR\|S_IWUSR\|S_IXUSR)
	1381	#endif
	1382
	1383	#ifndef S_IRWXG
	1384	# define S_IRWXG (S_IRGRP\|S_IWGRP\|S_IXGRP)
	1385	#endif
	1386
	1387	#ifndef S_IRWXO
	1388	# define S_IRWXO (S_IROTH\|S_IWOTH\|S_IXOTH)
	1389	#endif
	1390
	1391	/* BeOS 5.0 seems to define S_IREAD and S_IWRITE in <posix/fcntl.h>
	1392	* which would get included through <sys/file.h >, but that is 3000
	1393	* lines in the future. --jhi */
	1394
	1395	#if !defined(S_IREAD) && !defined(__BEOS__)
	1396	# define S_IREAD S_IRUSR
	1397	#endif
	1398
	1399	#if !defined(S_IWRITE) && !defined(__BEOS__)
	1400	# define S_IWRITE S_IWUSR
	1401	#endif
	1402
	1403	#ifndef S_IEXEC
	1404	# define S_IEXEC S_IXUSR
	1405	#endif
	1406
	1407	#ifdef ff_next
	1408	# undef ff_next
	1409	#endif
	1410
	1411	#if defined(cray) \|\| defined(gould) \|\| defined(i860) \|\| defined(pyr)
	1412	# define SLOPPYDIVIDE
	1413	#endif
	1414
	1415	#ifdef UV
	1416	#undef UV
	1417	#endif
	1418
	1419	#ifdef SPRINTF_E_BUG
	1420	# define sprintf UTS_sprintf_wrap
	1421	#endif
	1422
	1423	/* For the times when you want the return value of sprintf, and you want it
	1424	to be the length. Can't have a thread variable passed in, because C89 has
	1425	no varargs macros.
	1426	*/
	1427	#ifdef SPRINTF_RETURNS_STRLEN
	1428	# define my_sprintf sprintf
	1429	#else
	1430	# define my_sprintf Perl_my_sprintf
	1431	#endif
	1432
	1433	/* Configure gets this right but the UTS compiler gets it wrong.
	1434	-- Hal Morris <hom00@utsglobal.com> */
	1435	#ifdef UTS
	1436	# undef UVTYPE
	1437	# define UVTYPE unsigned
	1438	#endif
	1439
	1440	/*
	1441	The IV type is supposed to be long enough to hold any integral
	1442	value or a pointer.
	1443	--Andy Dougherty August 1996
	1444	*/
	1445
	1446	typedef IVTYPE IV;
	1447	typedef UVTYPE UV;
	1448
	1449	#if defined(USE_64_BIT_INT) && defined(HAS_QUAD)
	1450	# if QUADKIND == QUAD_IS_INT64_T && defined(INT64_MAX)
	1451	# define IV_MAX INT64_MAX
	1452	# define IV_MIN INT64_MIN
	1453	# define UV_MAX UINT64_MAX
	1454	# ifndef UINT64_MIN
	1455	# define UINT64_MIN 0
	1456	# endif
	1457	# define UV_MIN UINT64_MIN
	1458	# else
	1459	# define IV_MAX PERL_QUAD_MAX
	1460	# define IV_MIN PERL_QUAD_MIN
	1461	# define UV_MAX PERL_UQUAD_MAX
	1462	# define UV_MIN PERL_UQUAD_MIN
	1463	# endif
	1464	# define IV_IS_QUAD
	1465	# define UV_IS_QUAD
	1466	#else
	1467	# if defined(INT32_MAX) && IVSIZE == 4
	1468	# define IV_MAX INT32_MAX
	1469	# define IV_MIN INT32_MIN
	1470	# ifndef UINT32_MAX_BROKEN /* e.g. HP-UX with gcc messes this up */
	1471	# define UV_MAX UINT32_MAX
	1472	# else
	1473	# define UV_MAX 4294967295U
	1474	# endif
	1475	# ifndef UINT32_MIN
	1476	# define UINT32_MIN 0
	1477	# endif
	1478	# define UV_MIN UINT32_MIN
	1479	# else
	1480	# define IV_MAX PERL_LONG_MAX
	1481	# define IV_MIN PERL_LONG_MIN
	1482	# define UV_MAX PERL_ULONG_MAX
	1483	# define UV_MIN PERL_ULONG_MIN
	1484	# endif
	1485	# if IVSIZE == 8
	1486	# define IV_IS_QUAD
	1487	# define UV_IS_QUAD
	1488	# ifndef HAS_QUAD
	1489	# define HAS_QUAD
	1490	# endif
	1491	# else
	1492	# undef IV_IS_QUAD
	1493	# undef UV_IS_QUAD
	1494	# undef HAS_QUAD
	1495	# endif
	1496	#endif
	1497
	1498	#ifndef HAS_QUAD
	1499	# undef PERL_NEED_MY_HTOLE64
	1500	# undef PERL_NEED_MY_LETOH64
	1501	# undef PERL_NEED_MY_HTOBE64
	1502	# undef PERL_NEED_MY_BETOH64
	1503	#endif
	1504
	1505	#if defined(uts) \|\| defined(UTS)
	1506	# undef UV_MAX
	1507	# define UV_MAX (4294967295u)
	1508	#endif
	1509
	1510	#define IV_DIG (BIT_DIGITS(IVSIZE * 8))
	1511	#define UV_DIG (BIT_DIGITS(UVSIZE * 8))
	1512
	1513	#ifndef NO_PERL_PRESERVE_IVUV
	1514	#define PERL_PRESERVE_IVUV /* We like our integers to stay integers. */
	1515	#endif
	1516
	1517	/*
	1518	* The macros INT2PTR and NUM2PTR are (despite their names)
	1519	* bi-directional: they will convert int/float to or from pointers.
	1520	* However the conversion to int/float are named explicitly:
	1521	* PTR2IV, PTR2UV, PTR2NV.
	1522	*
	1523	* For int conversions we do not need two casts if pointers are
	1524	* the same size as IV and UV. Otherwise we need an explicit
	1525	* cast (PTRV) to avoid compiler warnings.
	1526	*/
	1527	#if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
	1528	# define PTRV UV
	1529	# define INT2PTR(any,d) (any)(d)
	1530	#else
	1531	# if PTRSIZE == LONGSIZE
	1532	# define PTRV unsigned long
	1533	# define PTR2ul(p) (unsigned long)(p)
	1534	# else
	1535	# define PTRV unsigned
	1536	# endif
	1537	#endif
	1538
	1539	#ifndef INT2PTR
	1540	# define INT2PTR(any,d) (any)(PTRV)(d)
	1541	#endif
	1542
	1543	#ifndef PTR2ul
	1544	# define PTR2ul(p) INT2PTR(unsigned long,p)
	1545	#endif
	1546
	1547	#define NUM2PTR(any,d) (any)(PTRV)(d)
	1548	#define PTR2IV(p) INT2PTR(IV,p)
	1549	#define PTR2UV(p) INT2PTR(UV,p)
	1550	#define PTR2NV(p) NUM2PTR(NV,p)
	1551	#define PTR2nat(p) (PTRV)(p) /* pointer to integer of PTRSIZE */
	1552
	1553	/* According to strict ANSI C89 one cannot freely cast between
	1554	* data pointers and function (code) pointers. There are at least
	1555	* two ways around this. One (used below) is to do two casts,
	1556	* first the other pointer to an (unsigned) integer, and then
	1557	* the integer to the other pointer. The other way would be
	1558	* to use unions to "overlay" the pointers. For an example of
	1559	* the latter technique, see union dirpu in struct xpvio in sv.h.
	1560	* The only feasible use is probably temporarily storing
	1561	* function pointers in a data pointer (such as a void pointer). */
	1562
	1563	#define DPTR2FPTR(t,p) ((t)PTR2nat(p)) /* data pointer to function pointer */
	1564	#define FPTR2DPTR(t,p) ((t)PTR2nat(p)) /* function pointer to data pointer */
	1565
	1566	#ifdef USE_LONG_DOUBLE
	1567	# if defined(HAS_LONG_DOUBLE) && LONG_DOUBLESIZE == DOUBLESIZE
	1568	# define LONG_DOUBLE_EQUALS_DOUBLE
	1569	# endif
	1570	# if !(defined(HAS_LONG_DOUBLE) && (LONG_DOUBLESIZE > DOUBLESIZE))
	1571	# undef USE_LONG_DOUBLE /* Ouch! */
	1572	# endif
	1573	#endif
	1574
	1575	#ifdef OVR_DBL_DIG
	1576	/* Use an overridden DBL_DIG */
	1577	# ifdef DBL_DIG
	1578	# undef DBL_DIG
	1579	# endif
	1580	# define DBL_DIG OVR_DBL_DIG
	1581	#else
	1582	/* The following is all to get DBL_DIG, in order to pick a nice
	1583	default value for printing floating point numbers in Gconvert
	1584	(see config.h). (It also has other uses, such as figuring out if
	1585	a given precision of printing can be done with a double instead of
	1586	a long double - Allen).
	1587	*/
	1588	#ifdef I_LIMITS
	1589	#include <limits.h>
	1590	#endif
	1591	#ifdef I_FLOAT
	1592	#include <float.h>
	1593	#endif
	1594	#ifndef HAS_DBL_DIG
	1595	#define DBL_DIG 15 /* A guess that works lots of places */
	1596	#endif
	1597	#endif
	1598	#ifdef I_FLOAT
	1599	#include <float.h>
	1600	#endif
	1601	#ifndef HAS_DBL_DIG
	1602	#define DBL_DIG 15 /* A guess that works lots of places */
	1603	#endif
	1604
	1605	#ifdef OVR_LDBL_DIG
	1606	/* Use an overridden LDBL_DIG */
	1607	# ifdef LDBL_DIG
	1608	# undef LDBL_DIG
	1609	# endif
	1610	# define LDBL_DIG OVR_LDBL_DIG
	1611	#else
	1612	/* The following is all to get LDBL_DIG, in order to pick a nice
	1613	default value for printing floating point numbers in Gconvert.
	1614	(see config.h)
	1615	*/
	1616	# ifdef I_LIMITS
	1617	# include <limits.h>
	1618	# endif
	1619	# ifdef I_FLOAT
	1620	# include <float.h>
	1621	# endif
	1622	# ifndef HAS_LDBL_DIG
	1623	# if LONG_DOUBLESIZE == 10
	1624	# define LDBL_DIG 18 /* assume IEEE */
	1625	# else
	1626	# if LONG_DOUBLESIZE == 12
	1627	# define LDBL_DIG 18 /* gcc? */
	1628	# else
	1629	# if LONG_DOUBLESIZE == 16
	1630	# define LDBL_DIG 33 /* assume IEEE */
	1631	# else
	1632	# if LONG_DOUBLESIZE == DOUBLESIZE
	1633	# define LDBL_DIG DBL_DIG /* bummer */
	1634	# endif
	1635	# endif
	1636	# endif
	1637	# endif
	1638	# endif
	1639	#endif
	1640
	1641	/*
	1642	* This is for making sure we have a good DBL_MAX value, if possible,
	1643	* either for usage as NV_MAX or for usage in figuring out if we can
	1644	* fit a given long double into a double, if bug-fixing makes it
	1645	* necessary to do so. - Allen <allens@cpan.org>
	1646	*/
	1647
	1648	#ifdef I_LIMITS
	1649	# include <limits.h>
	1650	#endif
	1651
	1652	#ifdef I_VALUES
	1653	# if !(defined(DBL_MIN) && defined(DBL_MAX) && defined(I_LIMITS))
	1654	# include <values.h>
	1655	# if defined(MAXDOUBLE) && !defined(DBL_MAX)
	1656	# define DBL_MAX MAXDOUBLE
	1657	# endif
	1658	# if defined(MINDOUBLE) && !defined(DBL_MIN)
	1659	# define DBL_MIN MINDOUBLE
	1660	# endif
	1661	# endif
	1662	#endif /* defined(I_VALUES) */
	1663
	1664	typedef NVTYPE NV;
	1665
	1666	#ifdef I_IEEEFP
	1667	# include <ieeefp.h>
	1668	#endif
	1669
	1670	#ifdef USE_LONG_DOUBLE
	1671	# ifdef I_SUNMATH
	1672	# include <sunmath.h>
	1673	# endif
	1674	# define NV_DIG LDBL_DIG
	1675	# ifdef LDBL_MANT_DIG
	1676	# define NV_MANT_DIG LDBL_MANT_DIG
	1677	# endif
	1678	# ifdef LDBL_MIN
	1679	# define NV_MIN LDBL_MIN
	1680	# endif
	1681	# ifdef LDBL_MAX
	1682	# define NV_MAX LDBL_MAX
	1683	# endif
	1684	# ifdef LDBL_MIN_10_EXP
	1685	# define NV_MIN_10_EXP LDBL_MIN_10_EXP
	1686	# endif
	1687	# ifdef LDBL_MAX_10_EXP
	1688	# define NV_MAX_10_EXP LDBL_MAX_10_EXP
	1689	# endif
	1690	# ifdef LDBL_EPSILON
	1691	# define NV_EPSILON LDBL_EPSILON
	1692	# endif
	1693	# ifdef LDBL_MAX
	1694	# define NV_MAX LDBL_MAX
	1695	/* Having LDBL_MAX doesn't necessarily mean that we have LDBL_MIN... -Allen */
	1696	# else
	1697	# ifdef HUGE_VALL
	1698	# define NV_MAX HUGE_VALL
	1699	# else
	1700	# ifdef HUGE_VAL
	1701	# define NV_MAX ((NV)HUGE_VAL)
	1702	# endif
	1703	# endif
	1704	# endif
	1705	# ifdef HAS_SQRTL
	1706	# define Perl_cos cosl
	1707	# define Perl_sin sinl
	1708	# define Perl_sqrt sqrtl
	1709	# define Perl_exp expl
	1710	# define Perl_log logl
	1711	# define Perl_atan2 atan2l
	1712	# define Perl_pow powl
	1713	# define Perl_floor floorl
	1714	# define Perl_ceil ceill
	1715	# define Perl_fmod fmodl
	1716	# endif
	1717	/* e.g. libsunmath doesn't have modfl and frexpl as of mid-March 2000 */
	1718	# ifdef HAS_MODFL
	1719	# define Perl_modf(x,y) modfl(x,y)
	1720	/* eg glibc 2.2 series seems to provide modfl on ppc and arm, but has no
	1721	prototype in <math.h> */
	1722	# ifndef HAS_MODFL_PROTO
	1723	EXTERN_C long double modfl(long double, long double *);
	1724	# endif
	1725	# else
	1726	# if defined(HAS_AINTL) && defined(HAS_COPYSIGNL)
	1727	extern long double Perl_my_modfl(long double x, long double *ip);
	1728	# define Perl_modf(x,y) Perl_my_modfl(x,y)
	1729	# endif
	1730	# endif
	1731	# ifdef HAS_FREXPL
	1732	# define Perl_frexp(x,y) frexpl(x,y)
	1733	# else
	1734	# if defined(HAS_ILOGBL) && defined(HAS_SCALBNL)
	1735	extern long double Perl_my_frexpl(long double x, int *e);
	1736	# define Perl_frexp(x,y) Perl_my_frexpl(x,y)
	1737	# endif
	1738	# endif
	1739	# ifndef Perl_isnan
	1740	# ifdef HAS_ISNANL
	1741	# define Perl_isnan(x) isnanl(x)
	1742	# endif
	1743	# endif
	1744	# ifndef Perl_isinf
	1745	# ifdef HAS_FINITEL
	1746	# define Perl_isinf(x) !(finitel(x)\|\|Perl_isnan(x))
	1747	# endif
	1748	# endif
	1749	#else
	1750	# define NV_DIG DBL_DIG
	1751	# ifdef DBL_MANT_DIG
	1752	# define NV_MANT_DIG DBL_MANT_DIG
	1753	# endif
	1754	# ifdef DBL_MIN
	1755	# define NV_MIN DBL_MIN
	1756	# endif
	1757	# ifdef DBL_MAX
	1758	# define NV_MAX DBL_MAX
	1759	# endif
	1760	# ifdef DBL_MIN_10_EXP
	1761	# define NV_MIN_10_EXP DBL_MIN_10_EXP
	1762	# endif
	1763	# ifdef DBL_MAX_10_EXP
	1764	# define NV_MAX_10_EXP DBL_MAX_10_EXP
	1765	# endif
	1766	# ifdef DBL_EPSILON
	1767	# define NV_EPSILON DBL_EPSILON
	1768	# endif
	1769	# ifdef DBL_MAX /* XXX Does DBL_MAX imply having DBL_MIN? */
	1770	# define NV_MAX DBL_MAX
	1771	# define NV_MIN DBL_MIN
	1772	# else
	1773	# ifdef HUGE_VAL
	1774	# define NV_MAX HUGE_VAL
	1775	# endif
	1776	# endif
	1777	# define Perl_cos cos
	1778	# define Perl_sin sin
	1779	# define Perl_sqrt sqrt
	1780	# define Perl_exp exp
	1781	# define Perl_log log
	1782	# define Perl_atan2 atan2
	1783	# define Perl_pow pow
	1784	# define Perl_floor floor
	1785	# define Perl_ceil ceil
	1786	# define Perl_fmod fmod
	1787	# define Perl_modf(x,y) modf(x,y)
	1788	# define Perl_frexp(x,y) frexp(x,y)
	1789	#endif
	1790
	1791	/* rumor has it that Win32 has _fpclass() */
	1792
	1793	/* SGI has fpclassl... but not with the same result values,
	1794	* and it's via a typedef (not via #define), so will need to redo Configure
	1795	* to use. Not worth the trouble, IMO, at least until the below is used
	1796	* more places. Also has fp_class_l, BTW, via fp_class.h. Feel free to check
	1797	* with me for the SGI manpages, SGI testing, etcetera, if you want to
	1798	* try getting this to work with IRIX. - Allen <allens@cpan.org> */
	1799
	1800	#if !defined(Perl_fp_class) && (defined(HAS_FPCLASS)\|\|defined(HAS_FPCLASSL))
	1801	# ifdef I_IEEFP
	1802	# include <ieeefp.h>
	1803	# endif
	1804	# ifdef I_FP
	1805	# include <fp.h>
	1806	# endif
	1807	# if defined(USE_LONG_DOUBLE) && defined(HAS_FPCLASSL)
	1808	# define Perl_fp_class() fpclassl(x)
	1809	# else
	1810	# define Perl_fp_class() fpclass(x)
	1811	# endif
	1812	# define Perl_fp_class_snan(x) (Perl_fp_class(x)==FP_CLASS_SNAN)
	1813	# define Perl_fp_class_qnan(x) (Perl_fp_class(x)==FP_CLASS_QNAN)
	1814	# define Perl_fp_class_nan(x) (Perl_fp_class(x)==FP_CLASS_SNAN\|\|Perl_fp_class(x)==FP_CLASS_QNAN)
	1815	# define Perl_fp_class_ninf(x) (Perl_fp_class(x)==FP_CLASS_NINF)
	1816	# define Perl_fp_class_pinf(x) (Perl_fp_class(x)==FP_CLASS_PINF)
	1817	# define Perl_fp_class_inf(x) (Perl_fp_class(x)==FP_CLASS_NINF\|\|Perl_fp_class(x)==FP_CLASS_PINF)
	1818	# define Perl_fp_class_nnorm(x) (Perl_fp_class(x)==FP_CLASS_NNORM)
	1819	# define Perl_fp_class_pnorm(x) (Perl_fp_class(x)==FP_CLASS_PNORM)
	1820	# define Perl_fp_class_norm(x) (Perl_fp_class(x)==FP_CLASS_NNORM\|\|Perl_fp_class(x)==FP_CLASS_PNORM)
	1821	# define Perl_fp_class_ndenorm(x) (Perl_fp_class(x)==FP_CLASS_NDENORM)
	1822	# define Perl_fp_class_pdenorm(x) (Perl_fp_class(x)==FP_CLASS_PDENORM)
	1823	# define Perl_fp_class_denorm(x) (Perl_fp_class(x)==FP_CLASS_NDENORM\|\|Perl_fp_class(x)==FP_CLASS_PDENORM)
	1824	# define Perl_fp_class_nzero(x) (Perl_fp_class(x)==FP_CLASS_NZERO)
	1825	# define Perl_fp_class_pzero(x) (Perl_fp_class(x)==FP_CLASS_PZERO)
	1826	# define Perl_fp_class_zero(x) (Perl_fp_class(x)==FP_CLASS_NZERO\|\|Perl_fp_class(x)==FP_CLASS_PZERO)
	1827	#endif
	1828
	1829	#if !defined(Perl_fp_class) && defined(HAS_FP_CLASS) && !defined(PERL_MICRO)
	1830	# include <math.h>
	1831	# if !defined(FP_SNAN) && defined(I_FP_CLASS)
	1832	# include <fp_class.h>
	1833	# endif
	1834	# define Perl_fp_class(x) fp_class(x)
	1835	# define Perl_fp_class_snan(x) (fp_class(x)==FP_SNAN)
	1836	# define Perl_fp_class_qnan(x) (fp_class(x)==FP_QNAN)
	1837	# define Perl_fp_class_nan(x) (fp_class(x)==FP_SNAN\|\|fp_class(x)==FP_QNAN)
	1838	# define Perl_fp_class_ninf(x) (fp_class(x)==FP_NEG_INF)
	1839	# define Perl_fp_class_pinf(x) (fp_class(x)==FP_POS_INF)
	1840	# define Perl_fp_class_inf(x) (fp_class(x)==FP_NEG_INF\|\|fp_class(x)==FP_POS_INF)
	1841	# define Perl_fp_class_nnorm(x) (fp_class(x)==FP_NEG_NORM)
	1842	# define Perl_fp_class_pnorm(x) (fp_class(x)==FP_POS_NORM)
	1843	# define Perl_fp_class_norm(x) (fp_class(x)==FP_NEG_NORM\|\|fp_class(x)==FP_POS_NORM)
	1844	# define Perl_fp_class_ndenorm(x) (fp_class(x)==FP_NEG_DENORM)
	1845	# define Perl_fp_class_pdenorm(x) (fp_class(x)==FP_POS_DENORM)
	1846	# define Perl_fp_class_denorm(x) (fp_class(x)==FP_NEG_DENORM\|\|fp_class(x)==FP_POS_DENORM)
	1847	# define Perl_fp_class_nzero(x) (fp_class(x)==FP_NEG_ZERO)
	1848	# define Perl_fp_class_pzero(x) (fp_class(x)==FP_POS_ZERO)
	1849	# define Perl_fp_class_zero(x) (fp_class(x)==FP_NEG_ZERO\|\|fp_class(x)==FP_POS_ZERO)
	1850	#endif
	1851
	1852	#if !defined(Perl_fp_class) && defined(HAS_FPCLASSIFY)
	1853	# include <math.h>
	1854	# define Perl_fp_class(x) fpclassify(x)
	1855	# define Perl_fp_class_nan(x) (fp_classify(x)==FP_SNAN\|\|fp_classify(x)==FP_QNAN)
	1856	# define Perl_fp_class_inf(x) (fp_classify(x)==FP_INFINITE)
	1857	# define Perl_fp_class_norm(x) (fp_classify(x)==FP_NORMAL)
	1858	# define Perl_fp_class_denorm(x) (fp_classify(x)==FP_SUBNORMAL)
	1859	# define Perl_fp_class_zero(x) (fp_classify(x)==FP_ZERO)
	1860	#endif
	1861
	1862	#if !defined(Perl_fp_class) && defined(HAS_CLASS)
	1863	# include <math.h>
	1864	# ifndef _cplusplus
	1865	# define Perl_fp_class(x) class(x)
	1866	# else
	1867	# define Perl_fp_class(x) _class(x)
	1868	# endif
	1869	# define Perl_fp_class_snan(x) (Perl_fp_class(x)==FP_NANS)
	1870	# define Perl_fp_class_qnan(x) (Perl_fp_class(x)==FP_NANQ)
	1871	# define Perl_fp_class_nan(x) (Perl_fp_class(x)==FP_SNAN\|\|Perl_fp_class(x)==FP_QNAN)
	1872	# define Perl_fp_class_ninf(x) (Perl_fp_class(x)==FP_MINUS_INF)
	1873	# define Perl_fp_class_pinf(x) (Perl_fp_class(x)==FP_PLUS_INF)
	1874	# define Perl_fp_class_inf(x) (Perl_fp_class(x)==FP_MINUS_INF\|\|Perl_fp_class(x)==FP_PLUS_INF)
	1875	# define Perl_fp_class_nnorm(x) (Perl_fp_class(x)==FP_MINUS_NORM)
	1876	# define Perl_fp_class_pnorm(x) (Perl_fp_class(x)==FP_PLUS_NORM)
	1877	# define Perl_fp_class_norm(x) (Perl_fp_class(x)==FP_MINUS_NORM\|\|Perl_fp_class(x)==FP_PLUS_NORM)
	1878	# define Perl_fp_class_ndenorm(x) (Perl_fp_class(x)==FP_MINUS_DENORM)
	1879	# define Perl_fp_class_pdenorm(x) (Perl_fp_class(x)==FP_PLUS_DENORM)
	1880	# define Perl_fp_class_denorm(x) (Perl_fp_class(x)==FP_MINUS_DENORM\|\|Perl_fp_class(x)==FP_PLUS_DENORM)
	1881	# define Perl_fp_class_nzero(x) (Perl_fp_class(x)==FP_MINUS_ZERO)
	1882	# define Perl_fp_class_pzero(x) (Perl_fp_class(x)==FP_PLUS_ZERO)
	1883	# define Perl_fp_class_zero(x) (Perl_fp_class(x)==FP_MINUS_ZERO\|\|Perl_fp_class(x)==FP_PLUS_ZERO)
	1884	#endif
	1885
	1886	/* rumor has it that Win32 has _isnan() */
	1887
	1888	#ifndef Perl_isnan
	1889	# ifdef HAS_ISNAN
	1890	# define Perl_isnan(x) isnan((NV)x)
	1891	# else
	1892	# ifdef Perl_fp_class_nan
	1893	# define Perl_isnan(x) Perl_fp_class_nan(x)
	1894	# else
	1895	# ifdef HAS_UNORDERED
	1896	# define Perl_isnan(x) unordered((x), 0.0)
	1897	# else
	1898	# define Perl_isnan(x) ((x)!=(x))
	1899	# endif
	1900	# endif
	1901	# endif
	1902	#endif
	1903
	1904	#ifdef UNDER_CE
	1905	int isnan(double d);
	1906	#endif
	1907
	1908	#ifndef Perl_isinf
	1909	# ifdef HAS_ISINF
	1910	# define Perl_isinf(x) isinf((NV)x)
	1911	# else
	1912	# ifdef Perl_fp_class_inf
	1913	# define Perl_isinf(x) Perl_fp_class_inf(x)
	1914	# else
	1915	# define Perl_isinf(x) ((x)==NV_INF)
	1916	# endif
	1917	# endif
	1918	#endif
	1919
	1920	#ifndef Perl_isfinite
	1921	# ifdef HAS_FINITE
	1922	# define Perl_isfinite(x) finite((NV)x)
	1923	# else
	1924	# ifdef HAS_ISFINITE
	1925	# define Perl_isfinite(x) isfinite(x)
	1926	# else
	1927	# ifdef Perl_fp_class_finite
	1928	# define Perl_isfinite(x) Perl_fp_class_finite(x)
	1929	# else
	1930	# define Perl_isfinite(x) !(Perl_is_inf(x)\|\|Perl_is_nan(x))
	1931	# endif
	1932	# endif
	1933	# endif
	1934	#endif
	1935
	1936	/* The default is to use Perl's own atof() implementation (in numeric.c).
	1937	* Usually that is the one to use but for some platforms (e.g. UNICOS)
	1938	* it is however best to use the native implementation of atof.
	1939	* You can experiment with using your native one by -DUSE_PERL_ATOF=0.
	1940	* Some good tests to try out with either setting are t/base/num.t,
	1941	* t/op/numconvert.t, and t/op/pack.t. Note that if using long doubles
	1942	* you may need to be using a different function than atof! */
	1943
	1944	#ifndef USE_PERL_ATOF
	1945	# ifndef _UNICOS
	1946	# define USE_PERL_ATOF
	1947	# endif
	1948	#else
	1949	# if USE_PERL_ATOF == 0
	1950	# undef USE_PERL_ATOF
	1951	# endif
	1952	#endif
	1953
	1954	#ifdef USE_PERL_ATOF
	1955	# define Perl_atof(s) Perl_my_atof(s)
	1956	# define Perl_atof2(s, n) Perl_my_atof2(aTHX_ (s), &(n))
	1957	#else
	1958	# define Perl_atof(s) (NV)atof(s)
	1959	# define Perl_atof2(s, n) ((n) = atof(s))
	1960	#endif
	1961
	1962	/* Previously these definitions used hardcoded figures.
	1963	* It is hoped these formula are more portable, although
	1964	* no data one way or another is presently known to me.
	1965	* The "PERL_" names are used because these calculated constants
	1966	* do not meet the ANSI requirements for LONG_MAX, etc., which
	1967	* need to be constants acceptable to #if - kja
	1968	* define PERL_LONG_MAX 2147483647L
	1969	* define PERL_LONG_MIN (-LONG_MAX - 1)
	1970	* define PERL ULONG_MAX 4294967295L
	1971	*/
	1972
	1973	#ifdef I_LIMITS /* Needed for cast_xxx() functions below. */
	1974	# include <limits.h>
	1975	#endif
	1976	/* Included values.h above if necessary; still including limits.h down here,
	1977	* despite doing above, because math.h might have overriden... XXX - Allen */
	1978
	1979	/*
	1980	* Try to figure out max and min values for the integral types. THE CORRECT
	1981	* SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE. The
	1982	* following hacks are used if neither limits.h or values.h provide them:
	1983	* U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
	1984	* for types < int: (unsigned TYPE)~(unsigned)0
	1985	* The argument to ~ must be unsigned so that later signed->unsigned
	1986	* conversion can't modify the value's bit pattern (e.g. -0 -> +0),
	1987	* and it must not be smaller than int because ~ does integral promotion.
	1988	* <type>_MAX: (<type>) (U<type>_MAX >> 1)
	1989	* <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
	1990	* The latter is a hack which happens to work on some machines but
	1991	* does not catch any random system, or things like integer types
	1992	* with NaN if that is possible.
	1993	*
	1994	* All of the types are explicitly cast to prevent accidental loss of
	1995	* numeric range, and in the hope that they will be less likely to confuse
	1996	* over-eager optimizers.
	1997	*
	1998	*/
	1999
	2000	#define PERL_UCHAR_MIN ((unsigned char)0)
	2001
	2002	#ifdef UCHAR_MAX
	2003	# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
	2004	#else
	2005	# ifdef MAXUCHAR
	2006	# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
	2007	# else
	2008	# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
	2009	# endif
	2010	#endif
	2011
	2012	/*
	2013	* CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
	2014	* ambiguous. It may be equivalent to (signed char) or (unsigned char)
	2015	* depending on local options. Until Configure detects this (or at least
	2016	* detects whether the "signed" keyword is available) the CHAR ranges
	2017	* will not be included. UCHAR functions normally.
	2018	* - kja
	2019	*/
	2020
	2021	#define PERL_USHORT_MIN ((unsigned short)0)
	2022
	2023	#ifdef USHORT_MAX
	2024	# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
	2025	#else
	2026	# ifdef MAXUSHORT
	2027	# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
	2028	# else
	2029	# ifdef USHRT_MAX
	2030	# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
	2031	# else
	2032	# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
	2033	# endif
	2034	# endif
	2035	#endif
	2036
	2037	#ifdef SHORT_MAX
	2038	# define PERL_SHORT_MAX ((short)SHORT_MAX)
	2039	#else
	2040	# ifdef MAXSHORT /* Often used in <values.h> */
	2041	# define PERL_SHORT_MAX ((short)MAXSHORT)
	2042	# else
	2043	# ifdef SHRT_MAX
	2044	# define PERL_SHORT_MAX ((short)SHRT_MAX)
	2045	# else
	2046	# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
	2047	# endif
	2048	# endif
	2049	#endif
	2050
	2051	#ifdef SHORT_MIN
	2052	# define PERL_SHORT_MIN ((short)SHORT_MIN)
	2053	#else
	2054	# ifdef MINSHORT
	2055	# define PERL_SHORT_MIN ((short)MINSHORT)
	2056	# else
	2057	# ifdef SHRT_MIN
	2058	# define PERL_SHORT_MIN ((short)SHRT_MIN)
	2059	# else
	2060	# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
	2061	# endif
	2062	# endif
	2063	#endif
	2064
	2065	#ifdef UINT_MAX
	2066	# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
	2067	#else
	2068	# ifdef MAXUINT
	2069	# define PERL_UINT_MAX ((unsigned int)MAXUINT)
	2070	# else
	2071	# define PERL_UINT_MAX (~(unsigned int)0)
	2072	# endif
	2073	#endif
	2074
	2075	#define PERL_UINT_MIN ((unsigned int)0)
	2076
	2077	#ifdef INT_MAX
	2078	# define PERL_INT_MAX ((int)INT_MAX)
	2079	#else
	2080	# ifdef MAXINT /* Often used in <values.h> */
	2081	# define PERL_INT_MAX ((int)MAXINT)
	2082	# else
	2083	# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
	2084	# endif
	2085	#endif
	2086
	2087	#ifdef INT_MIN
	2088	# define PERL_INT_MIN ((int)INT_MIN)
	2089	#else
	2090	# ifdef MININT
	2091	# define PERL_INT_MIN ((int)MININT)
	2092	# else
	2093	# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
	2094	# endif
	2095	#endif
	2096
	2097	#ifdef ULONG_MAX
	2098	# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
	2099	#else
	2100	# ifdef MAXULONG
	2101	# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
	2102	# else
	2103	# define PERL_ULONG_MAX (~(unsigned long)0)
	2104	# endif
	2105	#endif
	2106
	2107	#define PERL_ULONG_MIN ((unsigned long)0L)
	2108
	2109	#ifdef LONG_MAX
	2110	# define PERL_LONG_MAX ((long)LONG_MAX)
	2111	#else
	2112	# ifdef MAXLONG /* Often used in <values.h> */
	2113	# define PERL_LONG_MAX ((long)MAXLONG)
	2114	# else
	2115	# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
	2116	# endif
	2117	#endif
	2118
	2119	#ifdef LONG_MIN
	2120	# define PERL_LONG_MIN ((long)LONG_MIN)
	2121	#else
	2122	# ifdef MINLONG
	2123	# define PERL_LONG_MIN ((long)MINLONG)
	2124	# else
	2125	# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
	2126	# endif
	2127	#endif
	2128
	2129	#ifdef UV_IS_QUAD
	2130
	2131	# define PERL_UQUAD_MAX (~(UV)0)
	2132	# define PERL_UQUAD_MIN ((UV)0)
	2133	# define PERL_QUAD_MAX ((IV) (PERL_UQUAD_MAX >> 1))
	2134	# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
	2135
	2136	#endif
	2137
	2138	#ifdef MYMALLOC
	2139	# include "malloc_ctl.h"
	2140	#endif
	2141
	2142	struct RExC_state_t;
	2143
	2144	typedef MEM_SIZE STRLEN;
	2145
	2146	typedef struct op OP;
	2147	typedef struct cop COP;
	2148	typedef struct unop UNOP;
	2149	typedef struct binop BINOP;
	2150	typedef struct listop LISTOP;
	2151	typedef struct logop LOGOP;
	2152	typedef struct pmop PMOP;
	2153	typedef struct svop SVOP;
	2154	typedef struct padop PADOP;
	2155	typedef struct pvop PVOP;
	2156	typedef struct loop LOOP;
	2157
	2158	typedef struct interpreter PerlInterpreter;
	2159
	2160	/* Amdahl's <ksync.h> has struct sv */
	2161	/* SGI's <sys/sema.h> has struct sv */
	2162	#if defined(UTS) \|\| defined(__sgi)
	2163	# define STRUCT_SV perl_sv
	2164	#else
	2165	# define STRUCT_SV sv
	2166	#endif
	2167	typedef struct STRUCT_SV SV;
	2168	typedef struct av AV;
	2169	typedef struct hv HV;
	2170	typedef struct cv CV;
	2171	typedef struct regexp REGEXP;
	2172	typedef struct gp GP;
	2173	typedef struct gv GV;
	2174	typedef struct io IO;
	2175	typedef struct context PERL_CONTEXT;
	2176	typedef struct block BLOCK;
	2177
	2178	typedef struct magic MAGIC;
	2179	typedef struct xpv XPV;
	2180	typedef struct xpviv XPVIV;
	2181	typedef struct xpvuv XPVUV;
	2182	typedef struct xpvnv XPVNV;
	2183	typedef struct xpvmg XPVMG;
	2184	typedef struct xpvlv XPVLV;
	2185	typedef struct xpvav XPVAV;
	2186	typedef struct xpvhv XPVHV;
	2187	typedef struct xpvgv XPVGV;
	2188	typedef struct xpvcv XPVCV;
	2189	typedef struct xpvbm XPVBM;
	2190	typedef struct xpvfm XPVFM;
	2191	typedef struct xpvio XPVIO;
	2192	typedef struct mgvtbl MGVTBL;
	2193	typedef union any ANY;
	2194	typedef struct ptr_tbl_ent PTR_TBL_ENT_t;
	2195	typedef struct ptr_tbl PTR_TBL_t;
	2196	typedef struct clone_params CLONE_PARAMS;
	2197
	2198	#include "handy.h"
	2199
	2200	#if defined(USE_LARGE_FILES) && !defined(NO_64_BIT_RAWIO)
	2201	# if LSEEKSIZE == 8 && !defined(USE_64_BIT_RAWIO)
	2202	# define USE_64_BIT_RAWIO /* implicit */
	2203	# endif
	2204	#endif
	2205
	2206	/* Notice the use of HAS_FSEEKO: now we are obligated to always use
	2207	* fseeko/ftello if possible. Don't go #defining ftell to ftello yourself,
	2208	* however, because operating systems like to do that themself. */
	2209	#ifndef FSEEKSIZE
	2210	# ifdef HAS_FSEEKO
	2211	# define FSEEKSIZE LSEEKSIZE
	2212	# else
	2213	# define FSEEKSIZE LONGSIZE
	2214	# endif
	2215	#endif
	2216
	2217	#if defined(USE_LARGE_FILES) && !defined(NO_64_BIT_STDIO)
	2218	# if FSEEKSIZE == 8 && !defined(USE_64_BIT_STDIO)
	2219	# define USE_64_BIT_STDIO /* implicit */
	2220	# endif
	2221	#endif
	2222
	2223	#ifdef USE_64_BIT_RAWIO
	2224	# ifdef HAS_OFF64_T
	2225	# undef Off_t
	2226	# define Off_t off64_t
	2227	# undef LSEEKSIZE
	2228	# define LSEEKSIZE 8
	2229	# endif
	2230	/* Most 64-bit environments have defines like _LARGEFILE_SOURCE that
	2231	* will trigger defines like the ones below. Some 64-bit environments,
	2232	* however, do not. Therefore we have to explicitly mix and match. */
	2233	# if defined(USE_OPEN64)
	2234	# define open open64
	2235	# endif
	2236	# if defined(USE_LSEEK64)
	2237	# define lseek lseek64
	2238	# else
	2239	# if defined(USE_LLSEEK)
	2240	# define lseek llseek
	2241	# endif
	2242	# endif
	2243	# if defined(USE_STAT64)
	2244	# define stat stat64
	2245	# endif
	2246	# if defined(USE_FSTAT64)
	2247	# define fstat fstat64
	2248	# endif
	2249	# if defined(USE_LSTAT64)
	2250	# define lstat lstat64
	2251	# endif
	2252	# if defined(USE_FLOCK64)
	2253	# define flock flock64
	2254	# endif
	2255	# if defined(USE_LOCKF64)
	2256	# define lockf lockf64
	2257	# endif
	2258	# if defined(USE_FCNTL64)
	2259	# define fcntl fcntl64
	2260	# endif
	2261	# if defined(USE_TRUNCATE64)
	2262	# define truncate truncate64
	2263	# endif
	2264	# if defined(USE_FTRUNCATE64)
	2265	# define ftruncate ftruncate64
	2266	# endif
	2267	#endif
	2268
	2269	#ifdef USE_64_BIT_STDIO
	2270	# ifdef HAS_FPOS64_T
	2271	# undef Fpos_t
	2272	# define Fpos_t fpos64_t
	2273	# endif
	2274	/* Most 64-bit environments have defines like _LARGEFILE_SOURCE that
	2275	* will trigger defines like the ones below. Some 64-bit environments,
	2276	* however, do not. */
	2277	# if defined(USE_FOPEN64)
	2278	# define fopen fopen64
	2279	# endif
	2280	# if defined(USE_FSEEK64)
	2281	# define fseek fseek64 /* don't do fseeko here, see perlio.c */
	2282	# endif
	2283	# if defined(USE_FTELL64)
	2284	# define ftell ftell64 /* don't do ftello here, see perlio.c */
	2285	# endif
	2286	# if defined(USE_FSETPOS64)
	2287	# define fsetpos fsetpos64
	2288	# endif
	2289	# if defined(USE_FGETPOS64)
	2290	# define fgetpos fgetpos64
	2291	# endif
	2292	# if defined(USE_TMPFILE64)
	2293	# define tmpfile tmpfile64
	2294	# endif
	2295	# if defined(USE_FREOPEN64)
	2296	# define freopen freopen64
	2297	# endif
	2298	#endif
	2299
	2300	#if defined(OS2) \|\| defined(MACOS_TRADITIONAL)
	2301	# include "iperlsys.h"
	2302	#endif
	2303
	2304	#if defined(__OPEN_VM)
	2305	# include "vmesa/vmesaish.h"
	2306	# define ISHISH "vmesa"
	2307	#endif
	2308
	2309	#ifdef DOSISH
	2310	# if defined(OS2)
	2311	# include "os2ish.h"
	2312	# else
	2313	# include "dosish.h"
	2314	# endif
	2315	# define ISHISH "dos"
	2316	#endif
	2317
	2318	#if defined(VMS)
	2319	# include "vmsish.h"
	2320	# include "embed.h"
	2321	# define ISHISH "vms"
	2322	#endif
	2323
	2324	#if defined(PLAN9)
	2325	# include "./plan9/plan9ish.h"
	2326	# define ISHISH "plan9"
	2327	#endif
	2328
	2329	#if defined(MPE)
	2330	# include "mpeix/mpeixish.h"
	2331	# define ISHISH "mpeix"
	2332	#endif
	2333
	2334	#if defined(__VOS__)
	2335	# ifdef __GNUC__
	2336	# include "./vos/vosish.h"
	2337	# else
	2338	# include "vos/vosish.h"
	2339	# endif
	2340	# define ISHISH "vos"
	2341	#endif
	2342
	2343	#if defined(EPOC)
	2344	# include "epocish.h"
	2345	# define ISHISH "epoc"
	2346	#endif
	2347
	2348	#ifdef __SYMBIAN32__
	2349	# include "symbian/symbianish.h"
	2350	# include "embed.h"
	2351	# define ISHISH "symbian"
	2352	#endif
	2353
	2354	#if defined(MACOS_TRADITIONAL)
	2355	# include "macos/macish.h"
	2356	# ifndef NO_ENVIRON_ARRAY
	2357	# define NO_ENVIRON_ARRAY
	2358	# endif
	2359	# define ISHISH "macos classic"
	2360	#endif
	2361
	2362	#if defined(__BEOS__)
	2363	# include "beos/beosish.h"
	2364	# define ISHISH "beos"
	2365	#endif
	2366
	2367	#ifndef ISHISH
	2368	# include "unixish.h"
	2369	# define ISHISH "unix"
	2370	#endif
	2371
	2372	/* NSIG logic from Configure --> */
	2373	/* Strange style to avoid deeply-nested #if/#else/#endif */
	2374	#ifndef NSIG
	2375	# ifdef _NSIG
	2376	# define NSIG (_NSIG)
	2377	# endif
	2378	#endif
	2379
	2380	#ifndef NSIG
	2381	# ifdef SIGMAX
	2382	# define NSIG (SIGMAX+1)
	2383	# endif
	2384	#endif
	2385
	2386	#ifndef NSIG
	2387	# ifdef SIG_MAX
	2388	# define NSIG (SIG_MAX+1)
	2389	# endif
	2390	#endif
	2391
	2392	#ifndef NSIG
	2393	# ifdef _SIG_MAX
	2394	# define NSIG (_SIG_MAX+1)
	2395	# endif
	2396	#endif
	2397
	2398	#ifndef NSIG
	2399	# ifdef MAXSIG
	2400	# define NSIG (MAXSIG+1)
	2401	# endif
	2402	#endif
	2403
	2404	#ifndef NSIG
	2405	# ifdef MAX_SIG
	2406	# define NSIG (MAX_SIG+1)
	2407	# endif
	2408	#endif
	2409
	2410	#ifndef NSIG
	2411	# ifdef SIGARRAYSIZE
	2412	# define NSIG SIGARRAYSIZE /* Assume ary[SIGARRAYSIZE] */
	2413	# endif
	2414	#endif
	2415
	2416	#ifndef NSIG
	2417	# ifdef _sys_nsig
	2418	# define NSIG (_sys_nsig) /* Solaris 2.5 */
	2419	# endif
	2420	#endif
	2421
	2422	/* Default to some arbitrary number that's big enough to get most
	2423	of the common signals.
	2424	*/
	2425	#ifndef NSIG
	2426	# define NSIG 50
	2427	#endif
	2428	/* <-- NSIG logic from Configure */
	2429
	2430	#ifndef NO_ENVIRON_ARRAY
	2431	# define USE_ENVIRON_ARRAY
	2432	#endif
	2433
	2434	/*
	2435	* initialise to avoid floating-point exceptions from overflow, etc
	2436	*/
	2437	#ifndef PERL_FPU_INIT
	2438	# ifdef HAS_FPSETMASK
	2439	# if HAS_FLOATINGPOINT_H
	2440	# include <floatingpoint.h>
	2441	# endif
	2442	# define PERL_FPU_INIT fpsetmask(0);
	2443	# else
	2444	# if defined(SIGFPE) && defined(SIG_IGN) && !defined(PERL_MICRO)
	2445	# define PERL_FPU_INIT PL_sigfpe_saved = (Sighandler_t) signal(SIGFPE, SIG_IGN);
	2446	# define PERL_FPU_PRE_EXEC { Sigsave_t xfpe; rsignal_save(SIGFPE, PL_sigfpe_saved, &xfpe);
	2447	# define PERL_FPU_POST_EXEC rsignal_restore(SIGFPE, &xfpe); }
	2448	# else
	2449	# define PERL_FPU_INIT
	2450
	2451	# endif
	2452	# endif
	2453	#endif
	2454	#ifndef PERL_FPU_PRE_EXEC
	2455	# define PERL_FPU_PRE_EXEC {
	2456	# define PERL_FPU_POST_EXEC }
	2457	#endif
	2458
	2459	#ifndef PERL_SYS_INIT3
	2460	# define PERL_SYS_INIT3(argvp,argcp,envp) PERL_SYS_INIT(argvp,argcp)
	2461	#endif
	2462
	2463	#ifndef PERL_WRITE_MSG_TO_CONSOLE
	2464	# define PERL_WRITE_MSG_TO_CONSOLE(io, msg, len) PerlIO_write(io, msg, len)
	2465	#endif
	2466
	2467	#ifndef MAXPATHLEN
	2468	# ifdef PATH_MAX
	2469	# ifdef _POSIX_PATH_MAX
	2470	# if PATH_MAX > _POSIX_PATH_MAX
	2471	/* POSIX 1990 (and pre) was ambiguous about whether PATH_MAX
	2472	* included the null byte or not. Later amendments of POSIX,
	2473	* XPG4, the Austin Group, and the Single UNIX Specification
	2474	* all explicitly include the null byte in the PATH_MAX.
	2475	* Ditto for _POSIX_PATH_MAX. */
	2476	# define MAXPATHLEN PATH_MAX
	2477	# else
	2478	# define MAXPATHLEN _POSIX_PATH_MAX
	2479	# endif
	2480	# else
	2481	# define MAXPATHLEN (PATH_MAX+1)
	2482	# endif
	2483	# else
	2484	# ifdef _POSIX_PATH_MAX
	2485	# define MAXPATHLEN _POSIX_PATH_MAX
	2486	# else
	2487	# define MAXPATHLEN 1024 /* Err on the large side. */
	2488	# endif
	2489	# endif
	2490	#endif
	2491
	2492	/* In case Configure was not used (we are using a "canned config"
	2493	* such as Win32, or a cross-compilation setup, for example) try going
	2494	* by the gcc major and minor versions. One useful URL is
	2495	* http://www.ohse.de/uwe/articles/gcc-attributes.html,
	2496	* but contrary to this information warn_unused_result seems
	2497	* not to be in gcc 3.3.5, at least. --jhi
	2498	* Set these up now otherwise we get confused when some of the <*thread.h>
	2499	* includes below indirectly pull in <perlio.h> (which needs to know if we
	2500	* have HASATTRIBUTE_FORMAT).
	2501	*/
	2502
	2503	#if defined __GNUC__
	2504	# if __GNUC__ >= 3 /* 3.0 -> / / XXX Verify this version */
	2505	# define HASATTRIBUTE_FORMAT
	2506	# endif
	2507	# if __GNUC__ >= 3 /* 3.0 -> */
	2508	# define HASATTRIBUTE_MALLOC
	2509	# endif
	2510	# if __GNUC__ == 3 && __GNUC_MINOR__ >= 3 \|\| __GNUC__ > 3 /* 3.3 -> */
	2511	# define HASATTRIBUTE_NONNULL
	2512	# endif
	2513	# if __GNUC__ == 2 && __GNUC_MINOR__ >= 5 \|\| __GNUC__ > 2 /* 2.5 -> */
	2514	# define HASATTRIBUTE_NORETURN
	2515	# endif
	2516	# if __GNUC__ >= 3 /* gcc 3.0 -> */
	2517	# define HASATTRIBUTE_PURE
	2518	# endif
	2519	# if __GNUC__ >= 3 /* gcc 3.0 -> / / XXX Verify this version */
	2520	# define HASATTRIBUTE_UNUSED
	2521	# endif
	2522	# if __GNUC__ == 3 && __GNUC_MINOR__ >= 4 \|\| __GNUC__ > 3 /* 3.4 -> */
	2523	# define HASATTRIBUTE_WARN_UNUSED_RESULT
	2524	# endif
	2525	#endif
	2526
	2527	/* USE_5005THREADS needs to be after unixish.h as <pthread.h> includes
	2528	* <sys/signal.h> which defines NSIG - which will stop inclusion of <signal.h>
	2529	* this results in many functions being undeclared which bothers C++
	2530	* May make sense to have threads after "*ish.h" anyway
	2531	*/
	2532
	2533	#if defined(USE_ITHREADS)
	2534	# ifdef NETWARE
	2535	# include <nw5thread.h>
	2536	# else
	2537	# ifdef FAKE_THREADS
	2538	# include "fakethr.h"
	2539	# else
	2540	# ifdef WIN32
	2541	# include <win32thread.h>
	2542	# else
	2543	# ifdef OS2
	2544	# include "os2thread.h"
	2545	# else
	2546	# ifdef I_MACH_CTHREADS
	2547	# include <mach/cthreads.h>
	2548	# if (defined(NeXT) \|\| defined(__NeXT__)) && defined(PERL_POLLUTE_MALLOC)
	2549	# define MUTEX_INIT_CALLS_MALLOC
	2550	# endif
	2551	typedef cthread_t perl_os_thread;
	2552	typedef mutex_t perl_mutex;
	2553	typedef condition_t perl_cond;
	2554	typedef void * perl_key;
	2555	# else /* Posix threads */
	2556	# ifdef I_PTHREAD
	2557	# include <pthread.h>
	2558	# endif
	2559	typedef pthread_t perl_os_thread;
	2560	typedef pthread_mutex_t perl_mutex;
	2561	typedef pthread_cond_t perl_cond;
	2562	typedef pthread_key_t perl_key;
	2563	# endif /* I_MACH_CTHREADS */
	2564	# endif /* OS2 */
	2565	# endif /* WIN32 */
	2566	# endif /* FAKE_THREADS */
	2567	#endif /* NETWARE */
	2568	#endif /* USE_ITHREADS */
	2569
	2570	#if defined(WIN32)
	2571	# include "win32.h"
	2572	#endif
	2573
	2574	#ifdef NETWARE
	2575	# include "netware.h"
	2576	#endif
	2577
	2578	#define STATUS_UNIX PL_statusvalue
	2579	#ifdef VMS
	2580	# define STATUS_NATIVE PL_statusvalue_vms
	2581	/*
	2582	* vaxc$errno is only guaranteed to be valid if errno == EVMSERR, otherwise
	2583	* it's contents can not be trusted. Unfortunately, Perl seems to check
	2584	* it on exit, so it when PL_statusvalue_vms is updated, vaxc$errno should
	2585	* be updated also.
	2586	*/
	2587	# include <stsdef.h>
	2588	# include <ssdef.h>
	2589	/* Presume this because if VMS changes it, it will require a new
	2590	* set of APIs for waiting on children for binary compatibility.
	2591	*/
	2592	# define child_offset_bits (8)
	2593	# ifndef C_FAC_POSIX
	2594	# define C_FAC_POSIX 0x35A000
	2595	# endif
	2596
	2597	/* STATUS_EXIT - validates and returns a NATIVE exit status code for the
	2598	* platform from the existing UNIX or Native status values.
	2599	*/
	2600
	2601	# define STATUS_EXIT \
	2602	(((I32)PL_statusvalue_vms == -1 ? SS$_ABORT : PL_statusvalue_vms) \| \
	2603	(VMSISH_HUSHED ? STS$M_INHIB_MSG : 0))
	2604
	2605
	2606	/* STATUS_NATIVE_CHILD_SET - Calculate UNIX status that matches the child
	2607	* exit code and shifts the UNIX value over the correct number of bits to
	2608	* be a child status. Usually the number of bits is 8, but that could be
	2609	* platform dependent. The NATIVE status code is presumed to have either
	2610	* from a child process.
	2611	*/
	2612
	2613	/* This is complicated. The child processes return a true native VMS
	2614	status which must be saved. But there is an assumption in Perl that
	2615	the UNIX child status has some relationship to errno values, so
	2616	Perl tries to translate it to text in some of the tests.
	2617	In order to get the string translation correct, for the error, errno
	2618	must be EVMSERR, but that generates a different text message
	2619	than what the test programs are expecting. So an errno value must
	2620	be derived from the native status value when an error occurs.
	2621	That will hide the true native status message. With this version of
	2622	perl, the true native child status can always be retrieved so that
	2623	is not a problem. But in this case, Pl_statusvalue and errno may
	2624	have different values in them.
	2625	*/
	2626
	2627	# define STATUS_NATIVE_CHILD_SET(n) \
	2628	STMT_START { \
	2629	I32 evalue = (I32)n; \
	2630	if (evalue == EVMSERR) { \
	2631	PL_statusvalue_vms = vaxc$errno; \
	2632	PL_statusvalue = evalue; \
	2633	} else { \
	2634	PL_statusvalue_vms = evalue; \
	2635	if (evalue == -1) { \
	2636	PL_statusvalue = -1; \
	2637	PL_statusvalue_vms = SS$_ABORT; /* Should not happen */ \
	2638	} else \
	2639	PL_statusvalue = Perl_vms_status_to_unix(evalue, 1); \
	2640	set_vaxc_errno(evalue); \
	2641	if ((PL_statusvalue_vms & C_FAC_POSIX) == C_FAC_POSIX) \
	2642	set_errno(EVMSERR); \
	2643	else set_errno(Perl_vms_status_to_unix(evalue, 0)); \
	2644	PL_statusvalue = PL_statusvalue << child_offset_bits; \
	2645	} \
	2646	} STMT_END
	2647
	2648	# ifdef VMSISH_STATUS
	2649	# define STATUS_CURRENT (VMSISH_STATUS ? STATUS_NATIVE : STATUS_UNIX)
	2650	# else
	2651	# define STATUS_CURRENT STATUS_UNIX
	2652	# endif
	2653
	2654	/* STATUS_UNIX_SET - takes a UNIX/POSIX errno value and attempts to update
	2655	* the NATIVE status to an equivalent value. Can not be used to translate
	2656	* exit code values as exit code values are not guaranteed to have any
	2657	* relationship at all to errno values.
	2658	* This is used when Perl is forcing errno to have a specific value.
	2659	*/
	2660	# define STATUS_UNIX_SET(n) \
	2661	STMT_START { \
	2662	I32 evalue = (I32)n; \
	2663	PL_statusvalue = evalue; \
	2664	if (PL_statusvalue != -1) { \
	2665	if (PL_statusvalue != EVMSERR) { \
	2666	PL_statusvalue &= 0xFFFF; \
	2667	if (MY_POSIX_EXIT) \
	2668	PL_statusvalue_vms=PL_statusvalue ? SS$_ABORT : SS$_NORMAL;\
	2669	else PL_statusvalue_vms = Perl_unix_status_to_vms(evalue); \
	2670	} \
	2671	else { \
	2672	PL_statusvalue_vms = vaxc$errno; \
	2673	} \
	2674	} \
	2675	else PL_statusvalue_vms = SS$_ABORT; \
	2676	set_vaxc_errno(PL_statusvalue_vms); \
	2677	} STMT_END
	2678
	2679	/* STATUS_UNIX_EXIT_SET - Takes a UNIX/POSIX exit code and sets
	2680	* the NATIVE error status based on it. It does not assume that
	2681	* the UNIX/POSIX exit codes have any relationship to errno, except
	2682	* that 0 indicates a success. When in the default mode to comply
	2683	* with the Perl VMS documentation, any other code sets the NATIVE
	2684	* status to a failure code of SS$_ABORT.
	2685	*
	2686	* In the new POSIX EXIT mode, native status will be set so that the
	2687	* actual exit code will can be retrieved by the calling program or
	2688	* shell.
	2689	*
	2690	* If the exit code is not clearly a UNIX parent or child exit status,
	2691	* it will be passed through as a VMS status.
	2692	*/
	2693
	2694	# define STATUS_UNIX_EXIT_SET(n) \
	2695	STMT_START { \
	2696	I32 evalue = (I32)n; \
	2697	PL_statusvalue = evalue; \
	2698	if (evalue != -1) { \
	2699	if (evalue <= 0xFF00) { \
	2700	if (evalue > 0xFF) \
	2701	evalue = (evalue >> child_offset_bits) & 0xFF; \
	2702	if (evalue == 0) \
	2703	PL_statusvalue_vms == SS$_NORMAL; \
	2704	else \
	2705	if (MY_POSIX_EXIT) \
	2706	PL_statusvalue_vms = \
	2707	(C_FAC_POSIX \| (evalue << 3 ) \| (evalue == 1)? \
	2708	(STS$K_ERROR \| STS$M_INHIB_MSG) : 1); \
	2709	else \
	2710	PL_statusvalue_vms = SS$_ABORT; \
	2711	} else { /* forgive them Perl, for they have sinned */ \
	2712	if (evalue != EVMSERR) PL_statusvalue_vms = evalue; \
	2713	else PL_statusvalue_vms = vaxc$errno; \
	2714	/* And obviously used a VMS status value instead of UNIX */ \
	2715	PL_statusvalue = EVMSERR; \
	2716	} \
	2717	} \
	2718	else PL_statusvalue_vms = SS$_ABORT; \
	2719	set_vaxc_errno(PL_statusvalue_vms); \
	2720	} STMT_END
	2721
	2722	/* STATUS_EXIT_SET - Takes a NATIVE/UNIX/POSIX exit code
	2723	* and sets the NATIVE error status based on it. This special case
	2724	* is needed to maintain compatibility with past VMS behavior.
	2725	*
	2726	* In the default mode on VMS, this number is passed through as
	2727	* both the NATIVE and UNIX status. Which makes it different
	2728	* that the STATUS_UNIX_EXIT_SET.
	2729	*
	2730	* In the new POSIX EXIT mode, native status will be set so that the
	2731	* actual exit code will can be retrieved by the calling program or
	2732	* shell.
	2733	*
	2734	*/
	2735
	2736	# define STATUS_EXIT_SET(n) \
	2737	STMT_START { \
	2738	I32 evalue = (I32)n; \
	2739	PL_statusvalue = evalue; \
	2740	if (MY_POSIX_EXIT) \
	2741	PL_statusvalue_vms = \
	2742	(C_FAC_POSIX \| (evalue << 3 ) \| (evalue == 1)? \
	2743	(STS$K_ERROR \| STS$M_INHIB_MSG) : 1); \
	2744	else \
	2745	PL_statusvalue_vms = evalue ? evalue : SS$_NORMAL; \
	2746	set_vaxc_errno(PL_statusvalue_vms); \
	2747	} STMT_END
	2748
	2749
	2750	/* This macro forces a success status */
	2751	# define STATUS_ALL_SUCCESS \
	2752	(PL_statusvalue = 0, PL_statusvalue_vms = SS$_NORMAL)
	2753
	2754	/* This macro forces a failure status */
	2755	# define STATUS_ALL_FAILURE (PL_statusvalue = 1, \
	2756	vaxc$errno = PL_statusvalue_vms = MY_POSIX_EXIT ? \
	2757	(C_FAC_POSIX \| (1 << 3) \| STS$K_ERROR \| STS$M_INHIB_MSG) : SS$_ABORT)
	2758
	2759	#else
	2760	# define STATUS_NATIVE PL_statusvalue_posix
	2761	# if defined(WCOREDUMP)
	2762	# define STATUS_NATIVE_CHILD_SET(n) \
	2763	STMT_START { \
	2764	PL_statusvalue_posix = (n); \
	2765	if (PL_statusvalue_posix == -1) \
	2766	PL_statusvalue = -1; \
	2767	else { \
	2768	PL_statusvalue = \
	2769	(WIFEXITED(PL_statusvalue_posix) ? (WEXITSTATUS(PL_statusvalue_posix) << 8) : 0) \| \
	2770	(WIFSIGNALED(PL_statusvalue_posix) ? (WTERMSIG(PL_statusvalue_posix) & 0x7F) : 0) \| \
	2771	(WIFSIGNALED(PL_statusvalue_posix) && WCOREDUMP(PL_statusvalue_posix) ? 0x80 : 0); \
	2772	} \
	2773	} STMT_END
	2774	# elif defined(WIFEXITED)
	2775	# define STATUS_NATIVE_CHILD_SET(n) \
	2776	STMT_START { \
	2777	PL_statusvalue_posix = (n); \
	2778	if (PL_statusvalue_posix == -1) \
	2779	PL_statusvalue = -1; \
	2780	else { \
	2781	PL_statusvalue = \
	2782	(WIFEXITED(PL_statusvalue_posix) ? (WEXITSTATUS(PL_statusvalue_posix) << 8) : 0) \| \
	2783	(WIFSIGNALED(PL_statusvalue_posix) ? (WTERMSIG(PL_statusvalue_posix) & 0x7F) : 0); \
	2784	} \
	2785	} STMT_END
	2786	# else
	2787	# define STATUS_NATIVE_CHILD_SET(n) \
	2788	STMT_START { \
	2789	PL_statusvalue_posix = (n); \
	2790	if (PL_statusvalue_posix == -1) \
	2791	PL_statusvalue = -1; \
	2792	else { \
	2793	PL_statusvalue = \
	2794	PL_statusvalue_posix & 0xFFFF; \
	2795	} \
	2796	} STMT_END
	2797	# endif
	2798	# define STATUS_UNIX_SET(n) \
	2799	STMT_START { \
	2800	PL_statusvalue = (n); \
	2801	if (PL_statusvalue != -1) \
	2802	PL_statusvalue &= 0xFFFF; \
	2803	} STMT_END
	2804	# define STATUS_UNIX_EXIT_SET(n) STATUS_UNIX_SET(n)
	2805	# define STATUS_EXIT_SET(n) STATUS_UNIX_SET(n)
	2806	# define STATUS_CURRENT STATUS_UNIX
	2807	# define STATUS_EXIT STATUS_UNIX
	2808	# define STATUS_ALL_SUCCESS (PL_statusvalue = 0, PL_statusvalue_posix = 0)
	2809	# define STATUS_ALL_FAILURE (PL_statusvalue = 1, PL_statusvalue_posix = 1)
	2810	#endif
	2811
	2812	/* flags in PL_exit_flags for nature of exit() */
	2813	#define PERL_EXIT_EXPECTED 0x01
	2814	#define PERL_EXIT_DESTRUCT_END 0x02 /* Run END in perl_destruct */
	2815
	2816	#ifndef MEMBER_TO_FPTR
	2817	# define MEMBER_TO_FPTR(name) name
	2818	#endif
	2819
	2820	/* format to use for version numbers in file/directory names */
	2821	/* XXX move to Configure? */
	2822	#ifndef PERL_FS_VER_FMT
	2823	# define PERL_FS_VER_FMT "%d.%d.%d"
	2824	#endif
	2825
	2826	/* This defines a way to flush all output buffers. This may be a
	2827	* performance issue, so we allow people to disable it. Also, if
	2828	* we are using stdio, there are broken implementations of fflush(NULL)
	2829	* out there, Solaris being the most prominent.
	2830	*/
	2831	#ifndef PERL_FLUSHALL_FOR_CHILD
	2832	# if defined(USE_PERLIO) \|\| defined(FFLUSH_NULL) \|\| defined(USE_SFIO)
	2833	# define PERL_FLUSHALL_FOR_CHILD PerlIO_flush((PerlIO*)NULL)
	2834	# else
	2835	# ifdef FFLUSH_ALL
	2836	# define PERL_FLUSHALL_FOR_CHILD my_fflush_all()
	2837	# else
	2838	# define PERL_FLUSHALL_FOR_CHILD NOOP
	2839	# endif
	2840	# endif
	2841	#endif
	2842
	2843	#ifndef PERL_WAIT_FOR_CHILDREN
	2844	# define PERL_WAIT_FOR_CHILDREN NOOP
	2845	#endif
	2846
	2847	/* the traditional thread-unsafe notion of "current interpreter". */
	2848	#ifndef PERL_SET_INTERP
	2849	# define PERL_SET_INTERP(i) (PL_curinterp = (PerlInterpreter*)(i))
	2850	#endif
	2851
	2852	#ifndef PERL_GET_INTERP
	2853	# define PERL_GET_INTERP (PL_curinterp)
	2854	#endif
	2855
	2856	#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_GET_THX)
	2857	# ifdef MULTIPLICITY
	2858	# define PERL_GET_THX ((PerlInterpreter *)PERL_GET_CONTEXT)
	2859	# endif
	2860	# define PERL_SET_THX(t) PERL_SET_CONTEXT(t)
	2861	#endif
	2862
	2863	/*
	2864	This replaces the previous %_ "hack" by the "%p" hacks.
	2865	All that is required is that the perl source does not
	2866	use "%-p" or "%-<number>p" or "%<number>p" formats.
	2867	These formats will still work in perl code.
	2868	See comments in sv.c for futher details.
	2869
	2870	-DvdNUMBER=<number> can be used to redefine VDf
	2871
	2872	-DvdNUMBER=0 reverts VDf to "vd", as in perl5.8.7,
	2873	which works properly but gives compiler warnings
	2874
	2875	Robin Barker 2005-07-14
	2876	*/
	2877
	2878	#ifndef SVf_
	2879	# define SVf_(n) "-" STRINGIFY(n) "p"
	2880	#endif
	2881
	2882	#ifndef SVf
	2883	# define SVf "-p"
	2884	#endif
	2885
	2886	#ifndef SVf32
	2887	# define SVf32 SVf_(32)
	2888	#endif
	2889
	2890	#ifndef SVf256
	2891	# define SVf256 SVf_(256)
	2892	#endif
	2893
	2894	#ifndef vdNUMBER
	2895	# define vdNUMBER 1
	2896	#endif
	2897
	2898	#ifndef VDf
	2899	# if vdNUMBER
	2900	# define VDf STRINGIFY(vdNUMBER) "p"
	2901	# else
	2902	# define VDf "vd"
	2903	# endif
	2904	#endif
	2905
	2906	#ifndef UVf
	2907	# define UVf UVuf
	2908	#endif
	2909
	2910	#ifdef HASATTRIBUTE_FORMAT
	2911	# define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
	2912	#endif
	2913	#ifdef HASATTRIBUTE_MALLOC
	2914	# define __attribute__malloc__ __attribute__((__malloc__))
	2915	#endif
	2916	#ifdef HASATTRIBUTE_NONNULL
	2917	# define __attribute__nonnull__(a) __attribute__((nonnull(a)))
	2918	#endif
	2919	#ifdef HASATTRIBUTE_NORETURN
	2920	# define __attribute__noreturn__ __attribute__((noreturn))
	2921	#endif
	2922	#ifdef HASATTRIBUTE_PURE
	2923	# define __attribute__pure__ __attribute__((pure))
	2924	#endif
	2925	#ifdef HASATTRIBUTE_UNUSED
	2926	# define __attribute__unused__ __attribute__((unused))
	2927	#endif
	2928	#ifdef HASATTRIBUTE_WARN_UNUSED_RESULT
	2929	# define __attribute__warn_unused_result__ __attribute__((warn_unused_result))
	2930	#endif
	2931
	2932	/* If we haven't defined the attributes yet, define them to blank. */
	2933	#ifndef __attribute__format__
	2934	# define __attribute__format__(x,y,z)
	2935	#endif
	2936	#ifndef __attribute__malloc__
	2937	# define __attribute__malloc__
	2938	#endif
	2939	#ifndef __attribute__nonnull__
	2940	# define __attribute__nonnull__(a)
	2941	#endif
	2942	#ifndef __attribute__noreturn__
	2943	# define __attribute__noreturn__
	2944	#endif
	2945	#ifndef __attribute__pure__
	2946	# define __attribute__pure__
	2947	#endif
	2948	#ifndef __attribute__unused__
	2949	# define __attribute__unused__
	2950	#endif
	2951	#ifndef __attribute__warn_unused_result__
	2952	# define __attribute__warn_unused_result__
	2953	#endif
	2954
	2955	/* For functions that are marked as __attribute__noreturn__, it's not
	2956	appropriate to call return. In either case, include the lint directive.
	2957	*/
	2958	#ifdef HASATTRIBUTE_NORETURN
	2959	# define NORETURN_FUNCTION_END /* NOT REACHED */
	2960	#else
	2961	# define NORETURN_FUNCTION_END /* NOT REACHED */ return 0
	2962	#endif
	2963
	2964	/* Some unistd.h's give a prototype for pause() even though
	2965	HAS_PAUSE ends up undefined. This causes the #define
	2966	below to be rejected by the compiler. Sigh.
	2967	*/
	2968	#ifdef HAS_PAUSE
	2969	#define Pause pause
	2970	#else
	2971	#define Pause() sleep((32767<<16)+32767)
	2972	#endif
	2973
	2974	#ifndef IOCPARM_LEN
	2975	# ifdef IOCPARM_MASK
	2976	/* on BSDish systems we're safe */
	2977	# define IOCPARM_LEN(x) (((x) >> 16) & IOCPARM_MASK)
	2978	# else
	2979	# if defined(_IOC_SIZE) && defined(__GLIBC__)
	2980	/* on Linux systems we're safe */
	2981	# define IOCPARM_LEN(x) _IOC_SIZE(x)
	2982	# else
	2983	/* otherwise guess at what's safe */
	2984	# define IOCPARM_LEN(x) 256
	2985	# endif
	2986	# endif
	2987	#endif
	2988
	2989	#if defined(__CYGWIN__)
	2990	/* USEMYBINMODE
	2991	* This symbol, if defined, indicates that the program should
	2992	* use the routine my_binmode(FILE *fp, char iotype, int mode) to insure
	2993	* that a file is in "binary" mode -- that is, that no translation
	2994	* of bytes occurs on read or write operations.
	2995	*/
	2996	# define USEMYBINMODE /**/
	2997	# include <io.h> /* for setmode() prototype */
	2998	# define my_binmode(fp, iotype, mode) \
	2999	(PerlLIO_setmode(fileno(fp), mode) != -1 ? TRUE : FALSE)
	3000	#endif
	3001
	3002	#ifdef __CYGWIN__
	3003	void init_os_extras(void);
	3004	#endif
	3005
	3006	#ifdef UNION_ANY_DEFINITION
	3007	UNION_ANY_DEFINITION;
	3008	#else
	3009	union any {
	3010	void* any_ptr;
	3011	I32 any_i32;
	3012	IV any_iv;
	3013	long any_long;
	3014	bool any_bool;
	3015	void (any_dptr) (void);
	3016	void (any_dxptr) (pTHX_ void);
	3017	};
	3018	#endif
	3019
	3020	typedef I32 (filter_t) (pTHX_ int, SV , int);
	3021
	3022	#define FILTER_READ(idx, sv, len) filter_read(idx, sv, len)
	3023	#define FILTER_DATA(idx) (AvARRAY(PL_rsfp_filters)[idx])
	3024	#define FILTER_ISREADER(idx) (idx >= AvFILLp(PL_rsfp_filters))
	3025
	3026	#if defined(_AIX) && !defined(_AIX43)
	3027	#if defined(USE_REENTRANT) \|\| defined(_REENTRANT) \|\| defined(_THREAD_SAFE)
	3028	/* We cannot include <crypt.h> to get the struct crypt_data
	3029	* because of setkey prototype problems when threading */
	3030	typedef struct crypt_data { /* straight from /usr/include/crypt.h */
	3031	/* From OSF, Not needed in AIX
	3032	char C[28], D[28];
	3033	*/
	3034	char E[48];
	3035	char KS[16][48];
	3036	char block[66];
	3037	char iobuf[16];
	3038	} CRYPTD;
	3039	#endif /* threading */
	3040	#endif /* AIX */
	3041
	3042	#if !defined(OS2) && !defined(MACOS_TRADITIONAL)
	3043	# include "iperlsys.h"
	3044	#endif
	3045
	3046	/* [perl #22371] Algorimic Complexity Attack on Perl 5.6.1, 5.8.0.
	3047	* Note that the USE_HASH_SEED and USE_HASH_SEED_EXPLICIT are NOT
	3048	* defined by Configure, despite their names being similar to the
	3049	* other defines like USE_ITHREADS. Configure in fact knows nothing
	3050	* about the randomised hashes. Therefore to enable/disable the hash
	3051	* randomisation defines use the Configure -Accflags=... instead. */
	3052	#if !defined(NO_HASH_SEED) && !defined(USE_HASH_SEED) && !defined(USE_HASH_SEED_EXPLICIT)
	3053	# define USE_HASH_SEED
	3054	#endif
	3055
	3056	#include "regexp.h"
	3057	#include "sv.h"
	3058	#include "util.h"
	3059	#include "form.h"
	3060	#include "gv.h"
	3061	#include "pad.h"
	3062	#include "cv.h"
	3063	#include "opnames.h"
	3064	#include "op.h"
	3065	#include "cop.h"
	3066	#include "av.h"
	3067	#include "hv.h"
	3068	#include "mg.h"
	3069	#include "scope.h"
	3070	#include "warnings.h"
	3071	#include "utf8.h"
	3072
	3073	/* Current curly descriptor */
	3074	typedef struct curcur CURCUR;
	3075	struct curcur {
	3076	int parenfloor; /* how far back to strip paren data */
	3077	int cur; /* how many instances of scan we've matched */
	3078	int min; /* the minimal number of scans to match */
	3079	int max; /* the maximal number of scans to match */
	3080	int minmod; /* whether to work our way up or down */
	3081	regnode * scan; /* the thing to match */
	3082	regnode * next; /* what has to match after it */
	3083	char * lastloc; /* where we started matching this scan */
	3084	CURCUR * oldcc; /* current curly before we started this one */
	3085	};
	3086
	3087	typedef struct _sublex_info SUBLEXINFO;
	3088	struct _sublex_info {
	3089	I32 super_state; /* lexer state to save */
	3090	I32 sub_inwhat; /* "lex_inwhat" to use */
	3091	OP sub_op; / "lex_op" to use */
	3092	char super_bufptr; / PL_bufptr that was */
	3093	char super_bufend; / PL_bufend that was */
	3094	};
	3095
	3096	typedef struct magic_state MGS; /* struct magic_state defined in mg.c */
	3097
	3098	struct scan_data_t; /* Used in S_* functions in regcomp.c */
	3099	struct regnode_charclass_class; /* Used in S_* functions in regcomp.c */
	3100
	3101	typedef I32 CHECKPOINT;
	3102
	3103	/* Keep next first in this structure, because sv_free_arenas take
	3104	advantage of this to share code between the pte arenas and the SV
	3105	body arenas */
	3106	struct ptr_tbl_ent {
	3107	struct ptr_tbl_ent* next;
	3108	const void* oldval;
	3109	void* newval;
	3110	};
	3111
	3112	struct ptr_tbl {
	3113	struct ptr_tbl_ent** tbl_ary;
	3114	UV tbl_max;
	3115	UV tbl_items;
	3116	};
	3117
	3118	#if defined(iAPX286) \|\| defined(M_I286) \|\| defined(I80286)
	3119	# define I286
	3120	#endif
	3121
	3122	#if defined(htonl) && !defined(HAS_HTONL)
	3123	#define HAS_HTONL
	3124	#endif
	3125	#if defined(htons) && !defined(HAS_HTONS)
	3126	#define HAS_HTONS
	3127	#endif
	3128	#if defined(ntohl) && !defined(HAS_NTOHL)
	3129	#define HAS_NTOHL
	3130	#endif
	3131	#if defined(ntohs) && !defined(HAS_NTOHS)
	3132	#define HAS_NTOHS
	3133	#endif
	3134	#ifndef HAS_HTONL
	3135	#if (BYTEORDER & 0xffff) != 0x4321
	3136	#define HAS_HTONS
	3137	#define HAS_HTONL
	3138	#define HAS_NTOHS
	3139	#define HAS_NTOHL
	3140	#define MYSWAP
	3141	#define htons my_swap
	3142	#define htonl my_htonl
	3143	#define ntohs my_swap
	3144	#define ntohl my_ntohl
	3145	#endif
	3146	#else
	3147	#if (BYTEORDER & 0xffff) == 0x4321
	3148	#undef HAS_HTONS
	3149	#undef HAS_HTONL
	3150	#undef HAS_NTOHS
	3151	#undef HAS_NTOHL
	3152	#endif
	3153	#endif
	3154
	3155	/*
	3156	* Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
	3157	* -DWS
	3158	*/
	3159	#if BYTEORDER != 0x1234
	3160	# define HAS_VTOHL
	3161	# define HAS_VTOHS
	3162	# define HAS_HTOVL
	3163	# define HAS_HTOVS
	3164	# if BYTEORDER == 0x4321 \|\| BYTEORDER == 0x87654321
	3165	# define vtohl(x) ((((x)&0xFF)<<24) \
	3166	+(((x)>>24)&0xFF) \
	3167	+(((x)&0x0000FF00)<<8) \
	3168	+(((x)&0x00FF0000)>>8) )
	3169	# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
	3170	# define htovl(x) vtohl(x)
	3171	# define htovs(x) vtohs(x)
	3172	# endif
	3173	/* otherwise default to functions in util.c */
	3174	#ifndef htovs
	3175	short htovs(short n);
	3176	short vtohs(short n);
	3177	long htovl(long n);
	3178	long vtohl(long n);
	3179	#endif
	3180	#endif
	3181
	3182	/* *MAX Plus 1. A floating point value.
	3183	Hopefully expressed in a way that dodgy floating point can't mess up.
	3184	>> 2 rather than 1, so that value is safely less than I32_MAX after 1
	3185	is added to it
	3186	May find that some broken compiler will want the value cast to I32.
	3187	[after the shift, as signed >> may not be as secure as unsigned >>]
	3188	*/
	3189	#define I32_MAX_P1 (2.0 * (1 + (((U32)I32_MAX) >> 1)))
	3190	#define U32_MAX_P1 (4.0 * (1 + ((U32_MAX) >> 2)))
	3191	/* For compilers that can't correctly cast NVs over 0x7FFFFFFF (or
	3192	0x7FFFFFFFFFFFFFFF) to an unsigned integer. In the future, sizeof(UV)
	3193	may be greater than sizeof(IV), so don't assume that half max UV is max IV.
	3194	*/
	3195	#define U32_MAX_P1_HALF (2.0 * (1 + ((U32_MAX) >> 2)))
	3196
	3197	#define UV_MAX_P1 (4.0 * (1 + ((UV_MAX) >> 2)))
	3198	#define IV_MAX_P1 (2.0 * (1 + (((UV)IV_MAX) >> 1)))
	3199	#define UV_MAX_P1_HALF (2.0 * (1 + ((UV_MAX) >> 2)))
	3200
	3201	/* This may look like unnecessary jumping through hoops, but converting
	3202	out of range floating point values to integers is undefined behaviour,
	3203	and it is starting to bite.
	3204	*/
	3205	#ifndef CAST_INLINE
	3206	#define I_32(what) (cast_i32((NV)(what)))
	3207	#define U_32(what) (cast_ulong((NV)(what)))
	3208	#define I_V(what) (cast_iv((NV)(what)))
	3209	#define U_V(what) (cast_uv((NV)(what)))
	3210	#else
	3211	#define I_32(n) ((n) < I32_MAX_P1 ? ((n) < I32_MIN ? I32_MIN : (I32) (n)) \
	3212	: ((n) < U32_MAX_P1 ? (I32)(U32) (n) \
	3213	: ((n) > 0 ? (I32) U32_MAX : 0 /* NaN */)))
	3214	#define U_32(n) ((n) < 0.0 ? ((n) < I32_MIN ? (UV) I32_MIN : (U32)(I32) (n)) \
	3215	: ((n) < U32_MAX_P1 ? (U32) (n) \
	3216	: ((n) > 0 ? U32_MAX : 0 /* NaN */)))
	3217	#define I_V(n) ((n) < IV_MAX_P1 ? ((n) < IV_MIN ? IV_MIN : (IV) (n)) \
	3218	: ((n) < UV_MAX_P1 ? (IV)(UV) (n) \
	3219	: ((n) > 0 ? (IV)UV_MAX : 0 /* NaN */)))
	3220	#define U_V(n) ((n) < 0.0 ? ((n) < IV_MIN ? (UV) IV_MIN : (UV)(IV) (n)) \
	3221	: ((n) < UV_MAX_P1 ? (UV) (n) \
	3222	: ((n) > 0 ? UV_MAX : 0 /* NaN */)))
	3223	#endif
	3224
	3225	#define U_S(what) ((U16)U_32(what))
	3226	#define U_I(what) ((unsigned int)U_32(what))
	3227	#define U_L(what) U_32(what)
	3228
	3229	/* These do not care about the fractional part, only about the range. */
	3230	#define NV_WITHIN_IV(nv) (I_V(nv) >= IV_MIN && I_V(nv) <= IV_MAX)
	3231	#define NV_WITHIN_UV(nv) ((nv)>=0.0 && U_V(nv) >= UV_MIN && U_V(nv) <= UV_MAX)
	3232
	3233	/* Used with UV/IV arguments: */
	3234	/* XXXX: need to speed it up */
	3235	#define CLUMP_2UV(iv) ((iv) < 0 ? 0 : (UV)(iv))
	3236	#define CLUMP_2IV(uv) ((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv))
	3237
	3238	#ifndef MAXSYSFD
	3239	# define MAXSYSFD 2
	3240	#endif
	3241
	3242	#ifndef __cplusplus
	3243	#if !(defined(UNDER_CE) \|\| defined(SYMBIAN))
	3244	Uid_t getuid (void);
	3245	Uid_t geteuid (void);
	3246	Gid_t getgid (void);
	3247	Gid_t getegid (void);
	3248	#endif
	3249	#endif
	3250
	3251	#ifndef Perl_debug_log
	3252	# define Perl_debug_log PerlIO_stderr()
	3253	#endif
	3254
	3255	#ifndef Perl_error_log
	3256	# define Perl_error_log (PL_stderrgv \
	3257	&& isGV(PL_stderrgv) \
	3258	&& GvIOp(PL_stderrgv) \
	3259	&& IoOFP(GvIOp(PL_stderrgv)) \
	3260	? IoOFP(GvIOp(PL_stderrgv)) \
	3261	: PerlIO_stderr())
	3262	#endif
	3263
	3264
	3265	#define DEBUG_p_FLAG 0x00000001 /* 1 */
	3266	#define DEBUG_s_FLAG 0x00000002 /* 2 */
	3267	#define DEBUG_l_FLAG 0x00000004 /* 4 */
	3268	#define DEBUG_t_FLAG 0x00000008 /* 8 */
	3269	#define DEBUG_o_FLAG 0x00000010 /* 16 */
	3270	#define DEBUG_c_FLAG 0x00000020 /* 32 */
	3271	#define DEBUG_P_FLAG 0x00000040 /* 64 */
	3272	#define DEBUG_m_FLAG 0x00000080 /* 128 */
	3273	#define DEBUG_f_FLAG 0x00000100 /* 256 */
	3274	#define DEBUG_r_FLAG 0x00000200 /* 512 */
	3275	#define DEBUG_x_FLAG 0x00000400 /* 1024 */
	3276	#define DEBUG_u_FLAG 0x00000800 /* 2048 */
	3277	/* spare */
	3278	#define DEBUG_H_FLAG 0x00002000 /* 8192 */
	3279	#define DEBUG_X_FLAG 0x00004000 /* 16384 */
	3280	#define DEBUG_D_FLAG 0x00008000 /* 32768 */
	3281	#define DEBUG_S_FLAG 0x00010000 /* 65536 */
	3282	#define DEBUG_T_FLAG 0x00020000 /* 131072 */
	3283	#define DEBUG_R_FLAG 0x00040000 /* 262144 */
	3284	#define DEBUG_J_FLAG 0x00080000 /* 524288 */
	3285	#define DEBUG_v_FLAG 0x00100000 /1048576 /
	3286	#define DEBUG_C_FLAG 0x00200000 /2097152 /
	3287	#define DEBUG_A_FLAG 0x00400000 /4194304 /
	3288	#define DEBUG_q_FLAG 0x00800000 /8388608 /
	3289	#define DEBUG_MASK 0x00FFEFFF /* mask of all the standard flags */
	3290
	3291	#define DEBUG_DB_RECURSE_FLAG 0x40000000
	3292	#define DEBUG_TOP_FLAG 0x80000000 /* XXX what's this for ??? Signal
	3293	that something was done? */
	3294
	3295	# define DEBUG_p_TEST_ (PL_debug & DEBUG_p_FLAG)
	3296	# define DEBUG_s_TEST_ (PL_debug & DEBUG_s_FLAG)
	3297	# define DEBUG_l_TEST_ (PL_debug & DEBUG_l_FLAG)
	3298	# define DEBUG_t_TEST_ (PL_debug & DEBUG_t_FLAG)
	3299	# define DEBUG_o_TEST_ (PL_debug & DEBUG_o_FLAG)
	3300	# define DEBUG_c_TEST_ (PL_debug & DEBUG_c_FLAG)
	3301	# define DEBUG_P_TEST_ (PL_debug & DEBUG_P_FLAG)
	3302	# define DEBUG_m_TEST_ (PL_debug & DEBUG_m_FLAG)
	3303	# define DEBUG_f_TEST_ (PL_debug & DEBUG_f_FLAG)
	3304	# define DEBUG_r_TEST_ (PL_debug & DEBUG_r_FLAG)
	3305	# define DEBUG_x_TEST_ (PL_debug & DEBUG_x_FLAG)
	3306	# define DEBUG_u_TEST_ (PL_debug & DEBUG_u_FLAG)
	3307	# define DEBUG_H_TEST_ (PL_debug & DEBUG_H_FLAG)
	3308	# define DEBUG_X_TEST_ (PL_debug & DEBUG_X_FLAG)
	3309	# define DEBUG_D_TEST_ (PL_debug & DEBUG_D_FLAG)
	3310	# define DEBUG_S_TEST_ (PL_debug & DEBUG_S_FLAG)
	3311	# define DEBUG_T_TEST_ (PL_debug & DEBUG_T_FLAG)
	3312	# define DEBUG_R_TEST_ (PL_debug & DEBUG_R_FLAG)
	3313	# define DEBUG_J_TEST_ (PL_debug & DEBUG_J_FLAG)
	3314	# define DEBUG_v_TEST_ (PL_debug & DEBUG_v_FLAG)
	3315	# define DEBUG_C_TEST_ (PL_debug & DEBUG_C_FLAG)
	3316	# define DEBUG_A_TEST_ (PL_debug & DEBUG_A_FLAG)
	3317	# define DEBUG_q_TEST_ (PL_debug & DEBUG_q_FLAG)
	3318	# define DEBUG_Xv_TEST_ (DEBUG_X_TEST_ && DEBUG_v_TEST_)
	3319
	3320	#ifdef DEBUGGING
	3321
	3322	# define DEBUG_p_TEST DEBUG_p_TEST_
	3323	# define DEBUG_s_TEST DEBUG_s_TEST_
	3324	# define DEBUG_l_TEST DEBUG_l_TEST_
	3325	# define DEBUG_t_TEST DEBUG_t_TEST_
	3326	# define DEBUG_o_TEST DEBUG_o_TEST_
	3327	# define DEBUG_c_TEST DEBUG_c_TEST_
	3328	# define DEBUG_P_TEST DEBUG_P_TEST_
	3329	# define DEBUG_m_TEST DEBUG_m_TEST_
	3330	# define DEBUG_f_TEST DEBUG_f_TEST_
	3331	# define DEBUG_r_TEST DEBUG_r_TEST_
	3332	# define DEBUG_x_TEST DEBUG_x_TEST_
	3333	# define DEBUG_u_TEST DEBUG_u_TEST_
	3334	# define DEBUG_H_TEST DEBUG_H_TEST_
	3335	# define DEBUG_X_TEST DEBUG_X_TEST_
	3336	# define DEBUG_Xv_TEST DEBUG_Xv_TEST_
	3337	# define DEBUG_D_TEST DEBUG_D_TEST_
	3338	# define DEBUG_S_TEST DEBUG_S_TEST_
	3339	# define DEBUG_T_TEST DEBUG_T_TEST_
	3340	# define DEBUG_R_TEST DEBUG_R_TEST_
	3341	# define DEBUG_J_TEST DEBUG_J_TEST_
	3342	# define DEBUG_v_TEST DEBUG_v_TEST_
	3343	# define DEBUG_C_TEST DEBUG_C_TEST_
	3344	# define DEBUG_A_TEST DEBUG_A_TEST_
	3345	# define DEBUG_q_TEST DEBUG_q_TEST_
	3346
	3347	# define PERL_DEB(a) a
	3348	# define PERL_DEBUG(a) if (PL_debug) a
	3349	# define DEBUG_p(a) if (DEBUG_p_TEST) a
	3350	# define DEBUG_s(a) if (DEBUG_s_TEST) a
	3351	# define DEBUG_l(a) if (DEBUG_l_TEST) a
	3352	# define DEBUG_t(a) if (DEBUG_t_TEST) a
	3353	# define DEBUG_o(a) if (DEBUG_o_TEST) a
	3354	# define DEBUG_c(a) if (DEBUG_c_TEST) a
	3355	# define DEBUG_P(a) if (DEBUG_P_TEST) a
	3356
	3357	/* Temporarily turn off memory debugging in case the a
	3358	* does memory allocation, either directly or indirectly. */
	3359	# define DEBUG_m(a) \
	3360	STMT_START { \
	3361	if (PERL_GET_INTERP) { dTHX; if (DEBUG_m_TEST) {PL_debug&=~DEBUG_m_FLAG; a; PL_debug\|=DEBUG_m_FLAG;} } \
	3362	} STMT_END
	3363
	3364	# define DEBUG__(t, a) \
	3365	STMT_START { \
	3366	if (t) STMT_START {a;} STMT_END; \
	3367	} STMT_END
	3368
	3369	# define DEBUG_f(a) DEBUG__(DEBUG_f_TEST, a)
	3370	# define DEBUG_r(a) DEBUG__(DEBUG_r_TEST, a)
	3371	# define DEBUG_x(a) DEBUG__(DEBUG_x_TEST, a)
	3372	# define DEBUG_u(a) DEBUG__(DEBUG_u_TEST, a)
	3373	# define DEBUG_H(a) DEBUG__(DEBUG_H_TEST, a)
	3374	# define DEBUG_X(a) DEBUG__(DEBUG_X_TEST, a)
	3375	# define DEBUG_Xv(a) DEBUG__(DEBUG_Xv_TEST, a)
	3376	# define DEBUG_D(a) DEBUG__(DEBUG_D_TEST, a)
	3377
	3378	# define DEBUG_S(a)
	3379
	3380	# define DEBUG_T(a) DEBUG__(DEBUG_T_TEST, a)
	3381	# define DEBUG_R(a) DEBUG__(DEBUG_R_TEST, a)
	3382	# define DEBUG_v(a) DEBUG__(DEBUG_v_TEST, a)
	3383	# define DEBUG_C(a) DEBUG__(DEBUG_C_TEST, a)
	3384	# define DEBUG_A(a) DEBUG__(DEBUG_A_TEST, a)
	3385	# define DEBUG_q(a) DEBUG__(DEBUG_q_TEST, a)
	3386
	3387	#else /* DEBUGGING */
	3388
	3389	# define DEBUG_p_TEST (0)
	3390	# define DEBUG_s_TEST (0)
	3391	# define DEBUG_l_TEST (0)
	3392	# define DEBUG_t_TEST (0)
	3393	# define DEBUG_o_TEST (0)
	3394	# define DEBUG_c_TEST (0)
	3395	# define DEBUG_P_TEST (0)
	3396	# define DEBUG_m_TEST (0)
	3397	# define DEBUG_f_TEST (0)
	3398	# define DEBUG_r_TEST (0)
	3399	# define DEBUG_x_TEST (0)
	3400	# define DEBUG_u_TEST (0)
	3401	# define DEBUG_H_TEST (0)
	3402	# define DEBUG_X_TEST (0)
	3403	# define DEBUG_Xv_TEST (0)
	3404	# define DEBUG_D_TEST (0)
	3405	# define DEBUG_S_TEST (0)
	3406	# define DEBUG_T_TEST (0)
	3407	# define DEBUG_R_TEST (0)
	3408	# define DEBUG_J_TEST (0)
	3409	# define DEBUG_v_TEST (0)
	3410	# define DEBUG_C_TEST (0)
	3411	# define DEBUG_A_TEST (0)
	3412	# define DEBUG_q_TEST (0)
	3413
	3414	# define PERL_DEB(a)
	3415	# define PERL_DEBUG(a)
	3416	# define DEBUG_p(a)
	3417	# define DEBUG_s(a)
	3418	# define DEBUG_l(a)
	3419	# define DEBUG_t(a)
	3420	# define DEBUG_o(a)
	3421	# define DEBUG_c(a)
	3422	# define DEBUG_P(a)
	3423	# define DEBUG_m(a)
	3424	# define DEBUG_f(a)
	3425	# define DEBUG_r(a)
	3426	# define DEBUG_x(a)
	3427	# define DEBUG_u(a)
	3428	# define DEBUG_H(a)
	3429	# define DEBUG_X(a)
	3430	# define DEBUG_Xv(a)
	3431	# define DEBUG_D(a)
	3432	# define DEBUG_S(a)
	3433	# define DEBUG_T(a)
	3434	# define DEBUG_R(a)
	3435	# define DEBUG_v(a)
	3436	# define DEBUG_C(a)
	3437	# define DEBUG_A(a)
	3438	# define DEBUG_q(a)
	3439	#endif /* DEBUGGING */
	3440
	3441
	3442	#define DEBUG_SCOPE(where) \
	3443	DEBUG_l(WITH_THR(Perl_deb(aTHX_ "%s scope %ld at %s:%d\n", \
	3444	where, (long)PL_scopestack_ix, __FILE__, __LINE__)));
	3445
	3446
	3447
	3448
	3449	/* These constants should be used in preference to raw characters
	3450	* when using magic. Note that some perl guts still assume
	3451	* certain character properties of these constants, namely that
	3452	* isUPPER() and toLOWER() may do useful mappings.
	3453	*
	3454	* Update the magic_names table in dump.c when adding/amending these
	3455	*/
	3456
	3457	#define PERL_MAGIC_sv '\0' /* Special scalar variable */
	3458	#define PERL_MAGIC_overload 'A' /* %OVERLOAD hash */
	3459	#define PERL_MAGIC_overload_elem 'a' /* %OVERLOAD hash element */
	3460	#define PERL_MAGIC_overload_table 'c' /* Holds overload table (AMT) on stash */
	3461	#define PERL_MAGIC_bm 'B' /* Boyer-Moore (fast string search) */
	3462	#define PERL_MAGIC_regdata 'D' /* Regex match position data
	3463	(@+ and @- vars) */
	3464	#define PERL_MAGIC_regdatum 'd' /* Regex match position data element */
	3465	#define PERL_MAGIC_env 'E' /* %ENV hash */
	3466	#define PERL_MAGIC_envelem 'e' /* %ENV hash element */
	3467	#define PERL_MAGIC_fm 'f' /* Formline ('compiled' format) */
	3468	#define PERL_MAGIC_regex_global 'g' /* m//g target / study()ed string */
	3469	#define PERL_MAGIC_isa 'I' /* @ISA array */
	3470	#define PERL_MAGIC_isaelem 'i' /* @ISA array element */
	3471	#define PERL_MAGIC_nkeys 'k' /* scalar(keys()) lvalue */
	3472	#define PERL_MAGIC_dbfile 'L' /* Debugger %_<filename */
	3473	#define PERL_MAGIC_dbline 'l' /* Debugger %_<filename element */
	3474	#define PERL_MAGIC_mutex 'm' /* for lock op */
	3475	#define PERL_MAGIC_shared 'N' /* Shared between threads */
	3476	#define PERL_MAGIC_shared_scalar 'n' /* Shared between threads */
	3477	#define PERL_MAGIC_collxfrm 'o' /* Locale transformation */
	3478	#define PERL_MAGIC_tied 'P' /* Tied array or hash */
	3479	#define PERL_MAGIC_tiedelem 'p' /* Tied array or hash element */
	3480	#define PERL_MAGIC_tiedscalar 'q' /* Tied scalar or handle */
	3481	#define PERL_MAGIC_qr 'r' /* precompiled qr// regex */
	3482	#define PERL_MAGIC_sig 'S' /* %SIG hash */
	3483	#define PERL_MAGIC_sigelem 's' /* %SIG hash element */
	3484	#define PERL_MAGIC_taint 't' /* Taintedness */
	3485	#define PERL_MAGIC_uvar 'U' /* Available for use by extensions */
	3486	#define PERL_MAGIC_uvar_elem 'u' /* Reserved for use by extensions */
	3487	#define PERL_MAGIC_vec 'v' /* vec() lvalue */
	3488	#define PERL_MAGIC_vstring 'V' /* SV was vstring literal */
	3489	#define PERL_MAGIC_utf8 'w' /* Cached UTF-8 information */
	3490	#define PERL_MAGIC_substr 'x' /* substr() lvalue */
	3491	#define PERL_MAGIC_defelem 'y' /* Shadow "foreach" iterator variable /
	3492	smart parameter vivification */
	3493	#define PERL_MAGIC_glob '' / GV (typeglob) */
	3494	#define PERL_MAGIC_arylen '#' /* Array length ($#ary) */
	3495	#define PERL_MAGIC_pos '.' /* pos() lvalue */
	3496	#define PERL_MAGIC_backref '<' /* for weak ref data */
	3497	#define PERL_MAGIC_symtab ':' /* extra data for symbol tables */
	3498	#define PERL_MAGIC_rhash '%' /* extra data for restricted hashes */
	3499	#define PERL_MAGIC_arylen_p '@' /* to move arylen out of XPVAV */
	3500	#define PERL_MAGIC_ext '~' /* Available for use by extensions */
	3501
	3502
	3503	#ifndef assert /* <assert.h> might have been included somehow */
	3504	#define assert(what) PERL_DEB( \
	3505	((what) ? ((void) 0) : \
	3506	(Perl_croak(aTHX_ "Assertion %s failed: file \"" __FILE__ \
	3507	"\", line %d", STRINGIFY(what), __LINE__), \
	3508	PerlProc_exit(1), \
	3509	(void) 0)))
	3510	#endif
	3511
	3512	struct ufuncs {
	3513	I32 (uf_val)(pTHX_ IV, SV);
	3514	I32 (uf_set)(pTHX_ IV, SV);
	3515	IV uf_index;
	3516	};
	3517
	3518	/* In pre-5.7-Perls the PERL_MAGIC_uvar magic didn't get the thread context.
	3519	* XS code wanting to be backward compatible can do something
	3520	* like the following:
	3521
	3522	#ifndef PERL_MG_UFUNC
	3523	#define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv)
	3524	#endif
	3525
	3526	static PERL_MG_UFUNC(foo_get, index, val)
	3527	{
	3528	sv_setsv(val, ...);
	3529	return TRUE;
	3530	}
	3531
	3532	-- Doug MacEachern
	3533
	3534	*/
	3535
	3536	#ifndef PERL_MG_UFUNC
	3537	#define PERL_MG_UFUNC(name,ix,sv) I32 name(pTHX_ IV ix, SV *sv)
	3538	#endif
	3539
	3540	/* Fix these up for __STDC__ */
	3541	#ifndef DONT_DECLARE_STD
	3542	char mktemp (char);
	3543	#ifndef atof
	3544	double atof (const char*);
	3545	#endif
	3546	#endif
	3547
	3548	#ifndef STANDARD_C
	3549	/* All of these are in stdlib.h or time.h for ANSI C */
	3550	Time_t time();
	3551	struct tm gmtime(), localtime();
	3552	#if defined(OEMVS) \|\| defined(__OPEN_VM)
	3553	char (strchr)(), (strrchr)();
	3554	char (strcpy)(), (strcat)();
	3555	#else
	3556	char strchr(), strrchr();
	3557	char strcpy(), strcat();
	3558	#endif
	3559	#endif /* ! STANDARD_C */
	3560
	3561
	3562	#ifdef I_MATH
	3563	# include <math.h>
	3564	#else
	3565	START_EXTERN_C
	3566	double exp (double);
	3567	double log (double);
	3568	double log10 (double);
	3569	double sqrt (double);
	3570	double frexp (double,int*);
	3571	double ldexp (double,int);
	3572	double modf (double,double*);
	3573	double sin (double);
	3574	double cos (double);
	3575	double atan2 (double,double);
	3576	double pow (double,double);
	3577	END_EXTERN_C
	3578	#endif
	3579
	3580	#if !defined(NV_INF) && defined(USE_LONG_DOUBLE) && defined(LDBL_INFINITY)
	3581	# define NV_INF LDBL_INFINITY
	3582	#endif
	3583	#if !defined(NV_INF) && defined(DBL_INFINITY)
	3584	# define NV_INF (NV)DBL_INFINITY
	3585	#endif
	3586	#if !defined(NV_INF) && defined(INFINITY)
	3587	# define NV_INF (NV)INFINITY
	3588	#endif
	3589	#if !defined(NV_INF) && defined(INF)
	3590	# define NV_INF (NV)INF
	3591	#endif
	3592	#if !defined(NV_INF) && defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
	3593	# define NV_INF (NV)HUGE_VALL
	3594	#endif
	3595	#if !defined(NV_INF) && defined(HUGE_VAL)
	3596	# define NV_INF (NV)HUGE_VAL
	3597	#endif
	3598
	3599	#if !defined(NV_NAN) && defined(USE_LONG_DOUBLE)
	3600	# if !defined(NV_NAN) && defined(LDBL_NAN)
	3601	# define NV_NAN LDBL_NAN
	3602	# endif
	3603	# if !defined(NV_NAN) && defined(LDBL_QNAN)
	3604	# define NV_NAN LDBL_QNAN
	3605	# endif
	3606	# if !defined(NV_NAN) && defined(LDBL_SNAN)
	3607	# define NV_NAN LDBL_SNAN
	3608	# endif
	3609	#endif
	3610	#if !defined(NV_NAN) && defined(DBL_NAN)
	3611	# define NV_NAN (NV)DBL_NAN
	3612	#endif
	3613	#if !defined(NV_NAN) && defined(DBL_QNAN)
	3614	# define NV_NAN (NV)DBL_QNAN
	3615	#endif
	3616	#if !defined(NV_NAN) && defined(DBL_SNAN)
	3617	# define NV_NAN (NV)DBL_SNAN
	3618	#endif
	3619	#if !defined(NV_NAN) && defined(QNAN)
	3620	# define NV_NAN (NV)QNAN
	3621	#endif
	3622	#if !defined(NV_NAN) && defined(SNAN)
	3623	# define NV_NAN (NV)SNAN
	3624	#endif
	3625	#if !defined(NV_NAN) && defined(NAN)
	3626	# define NV_NAN (NV)NAN
	3627	#endif
	3628
	3629	#ifndef __cplusplus
	3630	# if defined(NeXT) \|\| defined(__NeXT__) /* or whatever catches all NeXTs */
	3631	char crypt (); / Maybe more hosts will need the unprototyped version */
	3632	# else
	3633	# if !defined(WIN32) && !defined(VMS)
	3634	#ifndef crypt
	3635	char crypt (const char, const char*);
	3636	#endif
	3637	# endif /* !WIN32 */
	3638	# endif /* !NeXT && !__NeXT__ */
	3639	# ifndef DONT_DECLARE_STD
	3640	# ifndef getenv
	3641	char getenv (const char);
	3642	# endif /* !getenv */
	3643	# if !defined(HAS_LSEEK_PROTO) && !defined(EPOC) && !defined(__hpux)
	3644	# ifdef _FILE_OFFSET_BITS
	3645	# if _FILE_OFFSET_BITS == 64
	3646	Off_t lseek (int,Off_t,int);
	3647	# endif
	3648	# endif
	3649	# endif
	3650	# endif /* !DONT_DECLARE_STD */
	3651	#ifndef getlogin
	3652	char *getlogin (void);
	3653	#endif
	3654	#endif /* !__cplusplus */
	3655
	3656	/* Fixme on VMS. This needs to be a run-time, not build time options */
	3657	/* Also rename() is affected by this */
	3658	#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
	3659	#define UNLINK unlnk
	3660	I32 unlnk (const char*);
	3661	#else
	3662	#define UNLINK PerlLIO_unlink
	3663	#endif
	3664
	3665	/* some versions of glibc are missing the setresuid() proto */
	3666	#if defined(HAS_SETRESUID) && !defined(HAS_SETRESUID_PROTO)
	3667	int setresuid(uid_t ruid, uid_t euid, uid_t suid);
	3668	#endif
	3669	/* some versions of glibc are missing the setresgid() proto */
	3670	#if defined(HAS_SETRESGID) && !defined(HAS_SETRESGID_PROTO)
	3671	int setresgid(gid_t rgid, gid_t egid, gid_t sgid);
	3672	#endif
	3673
	3674	#ifndef HAS_SETREUID
	3675	# ifdef HAS_SETRESUID
	3676	# define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
	3677	# define HAS_SETREUID
	3678	# endif
	3679	#endif
	3680	#ifndef HAS_SETREGID
	3681	# ifdef HAS_SETRESGID
	3682	# define setregid(r,e) setresgid(r,e,(Gid_t)-1)
	3683	# define HAS_SETREGID
	3684	# endif
	3685	#endif
	3686
	3687	/* Sighandler_t defined in iperlsys.h */
	3688
	3689	#ifdef HAS_SIGACTION
	3690	typedef struct sigaction Sigsave_t;
	3691	#else
	3692	typedef Sighandler_t Sigsave_t;
	3693	#endif
	3694
	3695	#define SCAN_DEF 0
	3696	#define SCAN_TR 1
	3697	#define SCAN_REPL 2
	3698
	3699	#ifdef DEBUGGING
	3700	# ifndef register
	3701	# define register
	3702	# endif
	3703	# define RUNOPS_DEFAULT Perl_runops_debug
	3704	#else
	3705	# define RUNOPS_DEFAULT Perl_runops_standard
	3706	#endif
	3707
	3708	#ifdef MYMALLOC
	3709	# ifdef MUTEX_INIT_CALLS_MALLOC
	3710	# define MALLOC_INIT \
	3711	STMT_START { \
	3712	PL_malloc_mutex = NULL; \
	3713	MUTEX_INIT(&PL_malloc_mutex); \
	3714	} STMT_END
	3715	# define MALLOC_TERM \
	3716	STMT_START { \
	3717	perl_mutex tmp = PL_malloc_mutex; \
	3718	PL_malloc_mutex = NULL; \
	3719	MUTEX_DESTROY(&tmp); \
	3720	} STMT_END
	3721	# else
	3722	# define MALLOC_INIT MUTEX_INIT(&PL_malloc_mutex)
	3723	# define MALLOC_TERM MUTEX_DESTROY(&PL_malloc_mutex)
	3724	# endif
	3725	#else
	3726	# define MALLOC_INIT
	3727	# define MALLOC_TERM
	3728	#endif
	3729
	3730
	3731	typedef int (CPERLscope(*runops_proc_t)) (pTHX);
	3732	typedef void (CPERLscope(share_proc_t)) (pTHX_ SV sv);
	3733	typedef int (CPERLscope(*thrhook_proc_t)) (pTHX);
	3734	typedef OP* (CPERLscope(*PPADDR_t)[]) (pTHX);
	3735
	3736	/* _ (for $_) must be first in the following list (DEFSV requires it) */
	3737	#define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=\|~:\001\005!@"
	3738
	3739	/* NeXT has problems with crt0.o globals */
	3740	#if defined(__DYNAMIC__) && \
	3741	(defined(NeXT) \|\| defined(__NeXT__) \|\| defined(PERL_DARWIN))
	3742	# if defined(NeXT) \|\| defined(__NeXT)
	3743	# include <mach-o/dyld.h>
	3744	# define environ (*environ_pointer)
	3745	EXT char *** environ_pointer;
	3746	# else
	3747	# if defined(PERL_DARWIN) && defined(PERL_CORE)
	3748	# include <crt_externs.h> /* for the env array */
	3749	# define environ (*_NSGetEnviron())
	3750	# endif
	3751	# endif
	3752	#else
	3753	/* VMS and some other platforms don't use the environ array */
	3754	# ifdef USE_ENVIRON_ARRAY
	3755	# if !defined(DONT_DECLARE_STD) \|\| \
	3756	(defined(__svr4__) && defined(__GNUC__) && defined(sun)) \|\| \
	3757	defined(__sgi) \|\| \
	3758	defined(__DGUX)
	3759	extern char ** environ; /* environment variables supplied via exec */
	3760	# endif
	3761	# endif
	3762	#endif
	3763
	3764	START_EXTERN_C
	3765
	3766	/* handy constants */
	3767	EXTCONST char PL_warn_uninit[]
	3768	INIT("Use of uninitialized value%s%s%s");
	3769	EXTCONST char PL_warn_nosemi[]
	3770	INIT("Semicolon seems to be missing");
	3771	EXTCONST char PL_warn_reserved[]
	3772	INIT("Unquoted string \"%s\" may clash with future reserved word");
	3773	EXTCONST char PL_warn_nl[]
	3774	INIT("Unsuccessful %s on filename containing newline");
	3775	EXTCONST char PL_no_wrongref[]
	3776	INIT("Can't use %s ref as %s ref");
	3777	EXTCONST char PL_no_symref[]
	3778	INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
	3779	EXTCONST char PL_no_symref_sv[]
	3780	INIT("Can't use string (\"%" SVf32 "\") as %s ref while \"strict refs\" in use");
	3781	EXTCONST char PL_no_usym[]
	3782	INIT("Can't use an undefined value as %s reference");
	3783	EXTCONST char PL_no_aelem[]
	3784	INIT("Modification of non-creatable array value attempted, subscript %d");
	3785	EXTCONST char PL_no_helem_sv[]
	3786	INIT("Modification of non-creatable hash value attempted, subscript \""SVf"\"");
	3787	EXTCONST char PL_no_modify[]
	3788	INIT("Modification of a read-only value attempted");
	3789	EXTCONST char PL_no_mem[]
	3790	INIT("Out of memory!\n");
	3791	EXTCONST char PL_no_security[]
	3792	INIT("Insecure dependency in %s%s");
	3793	EXTCONST char PL_no_sock_func[]
	3794	INIT("Unsupported socket function \"%s\" called");
	3795	EXTCONST char PL_no_dir_func[]
	3796	INIT("Unsupported directory function \"%s\" called");
	3797	EXTCONST char PL_no_func[]
	3798	INIT("The %s function is unimplemented");
	3799	EXTCONST char PL_no_myglob[]
	3800	INIT("\"my\" variable %s can't be in a package");
	3801	EXTCONST char PL_no_localize_ref[]
	3802	INIT("Can't localize through a reference");
	3803	#ifdef PERL_MALLOC_WRAP
	3804	EXTCONST char PL_memory_wrap[]
	3805	INIT("panic: memory wrap");
	3806	#endif
	3807
	3808	EXTCONST char PL_uuemap[65]
	3809	INIT("`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_");
	3810
	3811
	3812	#ifdef DOINIT
	3813	EXTCONST char* const PL_sig_name[] = { SIG_NAME };
	3814	EXTCONST int PL_sig_num[] = { SIG_NUM };
	3815	#else
	3816	EXTCONST char* const PL_sig_name[];
	3817	EXTCONST int PL_sig_num[];
	3818	#endif
	3819
	3820	/* fast conversion and case folding tables */
	3821
	3822	#ifdef DOINIT
	3823	#ifdef EBCDIC
	3824	EXTCONST unsigned char PL_fold[] = { /* fast EBCDIC case folding table */
	3825	0, 1, 2, 3, 4, 5, 6, 7,
	3826	8, 9, 10, 11, 12, 13, 14, 15,
	3827	16, 17, 18, 19, 20, 21, 22, 23,
	3828	24, 25, 26, 27, 28, 29, 30, 31,
	3829	32, 33, 34, 35, 36, 37, 38, 39,
	3830	40, 41, 42, 43, 44, 45, 46, 47,
	3831	48, 49, 50, 51, 52, 53, 54, 55,
	3832	56, 57, 58, 59, 60, 61, 62, 63,
	3833	64, 65, 66, 67, 68, 69, 70, 71,
	3834	72, 73, 74, 75, 76, 77, 78, 79,
	3835	80, 81, 82, 83, 84, 85, 86, 87,
	3836	88, 89, 90, 91, 92, 93, 94, 95,
	3837	96, 97, 98, 99, 100, 101, 102, 103,
	3838	104, 105, 106, 107, 108, 109, 110, 111,
	3839	112, 113, 114, 115, 116, 117, 118, 119,
	3840	120, 121, 122, 123, 124, 125, 126, 127,
	3841	128, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
	3842	'H', 'I', 138, 139, 140, 141, 142, 143,
	3843	144, 'J', 'K', 'L', 'M', 'N', 'O', 'P',
	3844	'Q', 'R', 154, 155, 156, 157, 158, 159,
	3845	160, 161, 'S', 'T', 'U', 'V', 'W', 'X',
	3846	'Y', 'Z', 170, 171, 172, 173, 174, 175,
	3847	176, 177, 178, 179, 180, 181, 182, 183,
	3848	184, 185, 186, 187, 188, 189, 190, 191,
	3849	192, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
	3850	'h', 'i', 202, 203, 204, 205, 206, 207,
	3851	208, 'j', 'k', 'l', 'm', 'n', 'o', 'p',
	3852	'q', 'r', 218, 219, 220, 221, 222, 223,
	3853	224, 225, 's', 't', 'u', 'v', 'w', 'x',
	3854	'y', 'z', 234, 235, 236, 237, 238, 239,
	3855	240, 241, 242, 243, 244, 245, 246, 247,
	3856	248, 249, 250, 251, 252, 253, 254, 255
	3857	};
	3858	#else /* ascii rather than ebcdic */
	3859	EXTCONST unsigned char PL_fold[] = {
	3860	0, 1, 2, 3, 4, 5, 6, 7,
	3861	8, 9, 10, 11, 12, 13, 14, 15,
	3862	16, 17, 18, 19, 20, 21, 22, 23,
	3863	24, 25, 26, 27, 28, 29, 30, 31,
	3864	32, 33, 34, 35, 36, 37, 38, 39,
	3865	40, 41, 42, 43, 44, 45, 46, 47,
	3866	48, 49, 50, 51, 52, 53, 54, 55,
	3867	56, 57, 58, 59, 60, 61, 62, 63,
	3868	64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
	3869	'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
	3870	'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
	3871	'x', 'y', 'z', 91, 92, 93, 94, 95,
	3872	96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
	3873	'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
	3874	'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
	3875	'X', 'Y', 'Z', 123, 124, 125, 126, 127,
	3876	128, 129, 130, 131, 132, 133, 134, 135,
	3877	136, 137, 138, 139, 140, 141, 142, 143,
	3878	144, 145, 146, 147, 148, 149, 150, 151,
	3879	152, 153, 154, 155, 156, 157, 158, 159,
	3880	160, 161, 162, 163, 164, 165, 166, 167,
	3881	168, 169, 170, 171, 172, 173, 174, 175,
	3882	176, 177, 178, 179, 180, 181, 182, 183,
	3883	184, 185, 186, 187, 188, 189, 190, 191,
	3884	192, 193, 194, 195, 196, 197, 198, 199,
	3885	200, 201, 202, 203, 204, 205, 206, 207,
	3886	208, 209, 210, 211, 212, 213, 214, 215,
	3887	216, 217, 218, 219, 220, 221, 222, 223,
	3888	224, 225, 226, 227, 228, 229, 230, 231,
	3889	232, 233, 234, 235, 236, 237, 238, 239,
	3890	240, 241, 242, 243, 244, 245, 246, 247,
	3891	248, 249, 250, 251, 252, 253, 254, 255
	3892	};
	3893	#endif /* !EBCDIC */
	3894	#else
	3895	EXTCONST unsigned char PL_fold[];
	3896	#endif
	3897
	3898	#ifndef PERL_GLOBAL_STRUCT /* or perlvars.h */
	3899	#ifdef DOINIT
	3900	EXT unsigned char PL_fold_locale[] = { /* Unfortunately not EXTCONST. */
	3901	0, 1, 2, 3, 4, 5, 6, 7,
	3902	8, 9, 10, 11, 12, 13, 14, 15,
	3903	16, 17, 18, 19, 20, 21, 22, 23,
	3904	24, 25, 26, 27, 28, 29, 30, 31,
	3905	32, 33, 34, 35, 36, 37, 38, 39,
	3906	40, 41, 42, 43, 44, 45, 46, 47,
	3907	48, 49, 50, 51, 52, 53, 54, 55,
	3908	56, 57, 58, 59, 60, 61, 62, 63,
	3909	64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
	3910	'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
	3911	'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
	3912	'x', 'y', 'z', 91, 92, 93, 94, 95,
	3913	96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
	3914	'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
	3915	'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
	3916	'X', 'Y', 'Z', 123, 124, 125, 126, 127,
	3917	128, 129, 130, 131, 132, 133, 134, 135,
	3918	136, 137, 138, 139, 140, 141, 142, 143,
	3919	144, 145, 146, 147, 148, 149, 150, 151,
	3920	152, 153, 154, 155, 156, 157, 158, 159,
	3921	160, 161, 162, 163, 164, 165, 166, 167,
	3922	168, 169, 170, 171, 172, 173, 174, 175,
	3923	176, 177, 178, 179, 180, 181, 182, 183,
	3924	184, 185, 186, 187, 188, 189, 190, 191,
	3925	192, 193, 194, 195, 196, 197, 198, 199,
	3926	200, 201, 202, 203, 204, 205, 206, 207,
	3927	208, 209, 210, 211, 212, 213, 214, 215,
	3928	216, 217, 218, 219, 220, 221, 222, 223,
	3929	224, 225, 226, 227, 228, 229, 230, 231,
	3930	232, 233, 234, 235, 236, 237, 238, 239,
	3931	240, 241, 242, 243, 244, 245, 246, 247,
	3932	248, 249, 250, 251, 252, 253, 254, 255
	3933	};
	3934	#else
	3935	EXT unsigned char PL_fold_locale[]; /* Unfortunately not EXTCONST. */
	3936	#endif
	3937	#endif /* !PERL_GLOBAL_STRUCT */
	3938
	3939	#ifdef DOINIT
	3940	#ifdef EBCDIC
	3941	EXTCONST unsigned char PL_freq[] = {/* EBCDIC frequencies for mixed English/C */
	3942	1, 2, 84, 151, 154, 155, 156, 157,
	3943	165, 246, 250, 3, 158, 7, 18, 29,
	3944	40, 51, 62, 73, 85, 96, 107, 118,
	3945	129, 140, 147, 148, 149, 150, 152, 153,
	3946	255, 6, 8, 9, 10, 11, 12, 13,
	3947	14, 15, 24, 25, 26, 27, 28, 226,
	3948	29, 30, 31, 32, 33, 43, 44, 45,
	3949	46, 47, 48, 49, 50, 76, 77, 78,
	3950	79, 80, 81, 82, 83, 84, 85, 86,
	3951	87, 94, 95, 234, 181, 233, 187, 190,
	3952	180, 96, 97, 98, 99, 100, 101, 102,
	3953	104, 112, 182, 174, 236, 232, 229, 103,
	3954	228, 226, 114, 115, 116, 117, 118, 119,
	3955	120, 121, 122, 235, 176, 230, 194, 162,
	3956	130, 131, 132, 133, 134, 135, 136, 137,
	3957	138, 139, 201, 205, 163, 217, 220, 224,
	3958	5, 248, 227, 244, 242, 255, 241, 231,
	3959	240, 253, 16, 197, 19, 20, 21, 187,
	3960	23, 169, 210, 245, 237, 249, 247, 239,
	3961	168, 252, 34, 196, 36, 37, 38, 39,
	3962	41, 42, 251, 254, 238, 223, 221, 213,
	3963	225, 177, 52, 53, 54, 55, 56, 57,
	3964	58, 59, 60, 61, 63, 64, 65, 66,
	3965	67, 68, 69, 70, 71, 72, 74, 75,
	3966	205, 208, 186, 202, 200, 218, 198, 179,
	3967	178, 214, 88, 89, 90, 91, 92, 93,
	3968	217, 166, 170, 207, 199, 209, 206, 204,
	3969	160, 212, 105, 106, 108, 109, 110, 111,
	3970	203, 113, 216, 215, 192, 175, 193, 243,
	3971	172, 161, 123, 124, 125, 126, 127, 128,
	3972	222, 219, 211, 195, 188, 193, 185, 184,
	3973	191, 183, 141, 142, 143, 144, 145, 146
	3974	};
	3975	#else /* ascii rather than ebcdic */
	3976	EXTCONST unsigned char PL_freq[] = { /* letter frequencies for mixed English/C */
	3977	1, 2, 84, 151, 154, 155, 156, 157,
	3978	165, 246, 250, 3, 158, 7, 18, 29,
	3979	40, 51, 62, 73, 85, 96, 107, 118,
	3980	129, 140, 147, 148, 149, 150, 152, 153,
	3981	255, 182, 224, 205, 174, 176, 180, 217,
	3982	233, 232, 236, 187, 235, 228, 234, 226,
	3983	222, 219, 211, 195, 188, 193, 185, 184,
	3984	191, 183, 201, 229, 181, 220, 194, 162,
	3985	163, 208, 186, 202, 200, 218, 198, 179,
	3986	178, 214, 166, 170, 207, 199, 209, 206,
	3987	204, 160, 212, 216, 215, 192, 175, 173,
	3988	243, 172, 161, 190, 203, 189, 164, 230,
	3989	167, 248, 227, 244, 242, 255, 241, 231,
	3990	240, 253, 169, 210, 245, 237, 249, 247,
	3991	239, 168, 252, 251, 254, 238, 223, 221,
	3992	213, 225, 177, 197, 171, 196, 159, 4,
	3993	5, 6, 8, 9, 10, 11, 12, 13,
	3994	14, 15, 16, 17, 19, 20, 21, 22,
	3995	23, 24, 25, 26, 27, 28, 30, 31,
	3996	32, 33, 34, 35, 36, 37, 38, 39,
	3997	41, 42, 43, 44, 45, 46, 47, 48,
	3998	49, 50, 52, 53, 54, 55, 56, 57,
	3999	58, 59, 60, 61, 63, 64, 65, 66,
	4000	67, 68, 69, 70, 71, 72, 74, 75,
	4001	76, 77, 78, 79, 80, 81, 82, 83,
	4002	86, 87, 88, 89, 90, 91, 92, 93,
	4003	94, 95, 97, 98, 99, 100, 101, 102,
	4004	103, 104, 105, 106, 108, 109, 110, 111,
	4005	112, 113, 114, 115, 116, 117, 119, 120,
	4006	121, 122, 123, 124, 125, 126, 127, 128,
	4007	130, 131, 132, 133, 134, 135, 136, 137,
	4008	138, 139, 141, 142, 143, 144, 145, 146
	4009	};
	4010	#endif
	4011	#else
	4012	EXTCONST unsigned char PL_freq[];
	4013	#endif
	4014
	4015	#ifdef DEBUGGING
	4016	#ifdef DOINIT
	4017	EXTCONST char* const PL_block_type[] = {
	4018	"NULL",
	4019	"SUB",
	4020	"EVAL",
	4021	"LOOP",
	4022	"SUBST",
	4023	"BLOCK",
	4024	};
	4025	#else
	4026	EXTCONST char* PL_block_type[];
	4027	#endif
	4028	#endif
	4029
	4030	END_EXTERN_C
	4031
	4032	/*****************************************************************************/
	4033	/* This lexer/parser stuff is currently global since yacc is hard to reenter */
	4034	/*****************************************************************************/
	4035	/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
	4036
	4037	#ifdef __Lynx__
	4038	/* LynxOS defines these in scsi.h which is included via ioctl.h */
	4039	#ifdef FORMAT
	4040	#undef FORMAT
	4041	#endif
	4042	#ifdef SPACE
	4043	#undef SPACE
	4044	#endif
	4045	#endif
	4046
	4047	/* Win32 defines a type 'WORD' in windef.h. This conflicts with the enumerator
	4048	* 'WORD' defined in perly.h. The yytokentype enum is only a debugging aid, so
	4049	* it's not really needed.
	4050	*/
	4051	#if defined(WIN32)
	4052	# define YYTOKENTYPE
	4053	#endif
	4054	#include "perly.h"
	4055
	4056	#define LEX_NOTPARSING 11 /* borrowed from toke.c */
	4057
	4058	typedef enum {
	4059	XOPERATOR,
	4060	XTERM,
	4061	XREF,
	4062	XSTATE,
	4063	XBLOCK,
	4064	XATTRBLOCK,
	4065	XATTRTERM,
	4066	XTERMBLOCK,
	4067	XTERMORDORDOR /* evil hack */
	4068	/* update exp_name[] in toke.c if adding to this enum */
	4069	} expectation;
	4070
	4071	enum { /* pass one of these to get_vtbl */
	4072	want_vtbl_sv,
	4073	want_vtbl_env,
	4074	want_vtbl_envelem,
	4075	want_vtbl_sig,
	4076	want_vtbl_sigelem,
	4077	want_vtbl_pack,
	4078	want_vtbl_packelem,
	4079	want_vtbl_dbline,
	4080	want_vtbl_isa,
	4081	want_vtbl_isaelem,
	4082	want_vtbl_arylen,
	4083	want_vtbl_glob,
	4084	want_vtbl_mglob,
	4085	want_vtbl_nkeys,
	4086	want_vtbl_taint,
	4087	want_vtbl_substr,
	4088	want_vtbl_vec,
	4089	want_vtbl_pos,
	4090	want_vtbl_bm,
	4091	want_vtbl_fm,
	4092	want_vtbl_uvar,
	4093	want_vtbl_defelem,
	4094	want_vtbl_regexp,
	4095	want_vtbl_collxfrm,
	4096	want_vtbl_amagic,
	4097	want_vtbl_amagicelem,
	4098	want_vtbl_regdata,
	4099	want_vtbl_regdatum,
	4100	want_vtbl_backref,
	4101	want_vtbl_utf8,
	4102	want_vtbl_symtab,
	4103	want_vtbl_arylen_p
	4104	};
	4105
	4106	/* Note: the lowest 8 bits are reserved for
	4107	stuffing into op->op_private */
	4108	#define HINT_PRIVATE_MASK 0x000000ff
	4109	#define HINT_INTEGER 0x00000001 /* integer pragma */
	4110	#define HINT_STRICT_REFS 0x00000002 /* strict pragma */
	4111	#define HINT_LOCALE 0x00000004 /* locale pragma */
	4112	#define HINT_BYTES 0x00000008 /* bytes pragma */
	4113	/* #define HINT_notused10 0x00000010 */
	4114	/* Note: 20,40,80 used for NATIVE_HINTS */
	4115	/* currently defined by vms/vmsish.h */
	4116
	4117	#define HINT_BLOCK_SCOPE 0x00000100
	4118	#define HINT_STRICT_SUBS 0x00000200 /* strict pragma */
	4119	#define HINT_STRICT_VARS 0x00000400 /* strict pragma */
	4120
	4121	/* The HINT_NEW_* constants are used by the overload pragma */
	4122	#define HINT_NEW_INTEGER 0x00001000
	4123	#define HINT_NEW_FLOAT 0x00002000
	4124	#define HINT_NEW_BINARY 0x00004000
	4125	#define HINT_NEW_STRING 0x00008000
	4126	#define HINT_NEW_RE 0x00010000
	4127	#define HINT_LOCALIZE_HH 0x00020000 /* %^H needs to be copied */
	4128
	4129	#define HINT_RE_TAINT 0x00100000 /* re pragma */
	4130	#define HINT_RE_EVAL 0x00200000 /* re pragma */
	4131
	4132	#define HINT_FILETEST_ACCESS 0x00400000 /* filetest pragma */
	4133	#define HINT_UTF8 0x00800000 /* utf8 pragma */
	4134
	4135	/* assertions pragma */
	4136	#define HINT_ASSERTING 0x01000000
	4137	#define HINT_ASSERTIONSSEEN 0x02000000
	4138
	4139	/* The following are stored in $sort::hints, not in PL_hints */
	4140	#define HINT_SORT_SORT_BITS 0x000000FF /* allow 256 different ones */
	4141	#define HINT_SORT_QUICKSORT 0x00000001
	4142	#define HINT_SORT_MERGESORT 0x00000002
	4143	#define HINT_SORT_STABLE 0x00000100 /* sort styles (currently one) */
	4144
	4145	/* Various states of the input record separator SV (rs) */
	4146	#define RsSNARF(sv) (! SvOK(sv))
	4147	#define RsSIMPLE(sv) (SvOK(sv) && (! SvPOK(sv) \|\| SvCUR(sv)))
	4148	#define RsPARA(sv) (SvPOK(sv) && ! SvCUR(sv))
	4149	#define RsRECORD(sv) (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
	4150
	4151	/* A struct for keeping various DEBUGGING related stuff,
	4152	* neatly packed. Currently only scratch variables for
	4153	* constructing debug output are included. Needed always,
	4154	* not just when DEBUGGING, though, because of the re extension. c*/
	4155	struct perl_debug_pad {
	4156	SV pad[3];
	4157	};
	4158
	4159	#define PERL_DEBUG_PAD(i) &(PL_debug_pad.pad[i])
	4160	#define PERL_DEBUG_PAD_ZERO(i) (SvPVX(PERL_DEBUG_PAD(i))[0] = 0, \
	4161	(((XPV*) SvANY(PERL_DEBUG_PAD(i)))->xpv_cur = 0), \
	4162	PERL_DEBUG_PAD(i))
	4163
	4164	/* Enable variables which are pointers to functions */
	4165	typedef void (CPERLscope(peep_t))(pTHX_ OP o);
	4166	typedef regexp(CPERLscope(regcomp_t)) (pTHX_ char* exp, char* xend, PMOP* pm);
	4167	typedef I32 (CPERLscope(regexec_t)) (pTHX_ regexp prog, char* stringarg,
	4168	char* strend, char* strbeg, I32 minend,
	4169	SV* screamer, void* data, U32 flags);
	4170	typedef char* (CPERLscope(re_intuit_start_t)) (pTHX_ regexp prog, SV *sv,
	4171	char strpos, char strend,
	4172	U32 flags,
	4173	struct re_scream_pos_data_s *d);
	4174	typedef SV* (CPERLscope(re_intuit_string_t)) (pTHX_ regexp prog);
	4175	typedef void (CPERLscope(regfree_t)) (pTHX_ struct regexp r);
	4176
	4177	typedef void (DESTRUCTORFUNC_NOCONTEXT_t) (void);
	4178	typedef void (DESTRUCTORFUNC_t) (pTHX_ void);
	4179	typedef void (SVFUNC_t) (pTHX_ SV);
	4180	typedef I32 (SVCOMPARE_t) (pTHX_ SV, SV*);
	4181	typedef void (*XSINIT_t) (pTHX);
	4182	typedef void (ATEXIT_t) (pTHX_ void);
	4183	typedef void (XSUBADDR_t) (pTHX_ CV );
	4184
	4185	/* Set up PERLVAR macros for populating structs */
	4186	#define PERLVAR(var,type) type var;
	4187	#define PERLVARA(var,n,type) type var[n];
	4188	#define PERLVARI(var,type,init) type var;
	4189	#define PERLVARIC(var,type,init) type var;
	4190	#define PERLVARISC(var,init) const char var[sizeof(init)];
	4191
	4192	typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
	4193	typedef OP* (CPERLscope(Perl_check_t)) (pTHX_ OP);
	4194
	4195	/* Interpreter exitlist entry */
	4196	typedef struct exitlistentry {
	4197	void (fn) (pTHX_ void);
	4198	void *ptr;
	4199	} PerlExitListEntry;
	4200
	4201	/* if you only have signal() and it resets on each signal, FAKE_PERSISTENT_SIGNAL_HANDLERS fixes */
	4202	/* These have to be before perlvars.h */
	4203	#if !defined(HAS_SIGACTION) && defined(VMS)
	4204	# define FAKE_PERSISTENT_SIGNAL_HANDLERS
	4205	#endif
	4206	/* if we're doing kill() with sys$sigprc on VMS, FAKE_DEFAULT_SIGNAL_HANDLERS */
	4207	#if defined(KILL_BY_SIGPRC)
	4208	# define FAKE_DEFAULT_SIGNAL_HANDLERS
	4209	#endif
	4210
	4211	#ifdef PERL_GLOBAL_STRUCT
	4212	struct perl_vars {
	4213	# include "perlvars.h"
	4214	};
	4215
	4216	# ifdef PERL_CORE
	4217	# ifndef PERL_GLOBAL_STRUCT_PRIVATE
	4218	EXT struct perl_vars PL_Vars;
	4219	EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars);
	4220	# undef PERL_GET_VARS
	4221	# define PERL_GET_VARS() PL_VarsPtr
	4222	# endif /* !PERL_GLOBAL_STRUCT_PRIVATE */
	4223	# else /* PERL_CORE */
	4224	# if !defined(__GNUC__) \|\| !defined(WIN32)
	4225	EXT
	4226	# endif /* WIN32 */
	4227	struct perl_vars *PL_VarsPtr;
	4228	# define PL_Vars (*((PL_VarsPtr) \
	4229	? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars(aTHX))))
	4230	# endif /* PERL_CORE */
	4231	#endif /* PERL_GLOBAL_STRUCT */
	4232
	4233	#if defined(MULTIPLICITY)
	4234	/* If we have multiple interpreters define a struct
	4235	holding variables which must be per-interpreter
	4236	If we don't have threads anything that would have
	4237	be per-thread is per-interpreter.
	4238	*/
	4239
	4240	struct interpreter {
	4241	# include "thrdvar.h"
	4242	# include "intrpvar.h"
	4243	/*
	4244	* The following is a buffer where new variables must
	4245	* be defined to maintain binary compatibility with previous versions
	4246	*/
	4247	PERLVARA(object_compatibility,30, char)
	4248	};
	4249
	4250	#else
	4251	struct interpreter {
	4252	char broiled;
	4253	};
	4254	#endif /* MULTIPLICITY */
	4255
	4256	typedef void *Thread;
	4257
	4258	/* Done with PERLVAR macros for now ... */
	4259	#undef PERLVAR
	4260	#undef PERLVARA
	4261	#undef PERLVARI
	4262	#undef PERLVARIC
	4263	#undef PERLVARISC
	4264
	4265	struct tempsym; /* defined in pp_pack.c */
	4266
	4267	#include "thread.h"
	4268	#include "pp.h"
	4269
	4270	#ifndef PERL_CALLCONV
	4271	# define PERL_CALLCONV
	4272	#endif
	4273	#undef PERL_CKDEF
	4274	#undef PERL_PPDEF
	4275	#define PERL_CKDEF(s) PERL_CALLCONV OP s (pTHX_ OP o);
	4276	#define PERL_PPDEF(s) PERL_CALLCONV OP *s (pTHX);
	4277
	4278	#include "proto.h"
	4279
	4280	/* this has structure inits, so it cannot be included before here */
	4281	#include "opcode.h"
	4282
	4283	/* The following must follow proto.h as #defines mess up syntax */
	4284
	4285	#if !defined(PERL_FOR_X2P)
	4286	# include "embedvar.h"
	4287	#endif
	4288
	4289	/* Now include all the 'global' variables
	4290	* If we don't have threads or multiple interpreters
	4291	* these include variables that would have been their struct-s
	4292	*/
	4293
	4294	#define PERLVAR(var,type) EXT type PL_##var;
	4295	#define PERLVARA(var,n,type) EXT type PL_##var[n];
	4296	#define PERLVARI(var,type,init) EXT type PL_##var INIT(init);
	4297	#define PERLVARIC(var,type,init) EXTCONST type PL_##var INIT(init);
	4298	#define PERLVARISC(var,init) EXTCONST char PL_##var[sizeof(init)] INIT(init);
	4299
	4300	#if !defined(MULTIPLICITY)
	4301	START_EXTERN_C
	4302	# include "intrpvar.h"
	4303	# include "thrdvar.h"
	4304	END_EXTERN_C
	4305	#endif
	4306
	4307	#if defined(WIN32)
	4308	/* Now all the config stuff is setup we can include embed.h */
	4309	# include "embed.h"
	4310	#endif
	4311
	4312	#ifndef PERL_GLOBAL_STRUCT
	4313	START_EXTERN_C
	4314
	4315	# include "perlvars.h"
	4316
	4317	END_EXTERN_C
	4318	#endif
	4319
	4320	#undef PERLVAR
	4321	#undef PERLVARA
	4322	#undef PERLVARI
	4323	#undef PERLVARIC
	4324
	4325	START_EXTERN_C
	4326
	4327	#ifdef DOINIT
	4328	# define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var = {a,b,c,d,e,f,g}
	4329	# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var = {(int ()(pTHX_ SV , MAGIC ))a,b,c,d,e,f,g} / Like MGVTBL_SET but with the get magic having a const MG* */
	4330	#else
	4331	# define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var
	4332	# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var
	4333	#endif
	4334
	4335	MGVTBL_SET(
	4336	PL_vtbl_sv,
	4337	MEMBER_TO_FPTR(Perl_magic_get),
	4338	MEMBER_TO_FPTR(Perl_magic_set),
	4339	MEMBER_TO_FPTR(Perl_magic_len),
	4340	NULL,
	4341	NULL,
	4342	NULL,
	4343	NULL
	4344	);
	4345
	4346	MGVTBL_SET(
	4347	PL_vtbl_env,
	4348	NULL,
	4349	MEMBER_TO_FPTR(Perl_magic_set_all_env),
	4350	NULL,
	4351	MEMBER_TO_FPTR(Perl_magic_clear_all_env),
	4352	NULL,
	4353	NULL,
	4354	NULL
	4355	);
	4356
	4357	MGVTBL_SET(
	4358	PL_vtbl_envelem,
	4359	NULL,
	4360	MEMBER_TO_FPTR(Perl_magic_setenv),
	4361	NULL,
	4362	MEMBER_TO_FPTR(Perl_magic_clearenv),
	4363	NULL,
	4364	NULL,
	4365	NULL
	4366	);
	4367
	4368	MGVTBL_SET(
	4369	PL_vtbl_sig,
	4370	NULL,
	4371	NULL,
	4372	NULL,
	4373	NULL,
	4374	NULL,
	4375	NULL,
	4376	NULL
	4377	);
	4378
	4379	#ifdef PERL_MICRO
	4380	MGVTBL_SET(
	4381	PL_vtbl_sigelem,
	4382	NULL, NULL, NULL, NULL, NULL, NULL, NULL
	4383	);
	4384
	4385	#else
	4386	MGVTBL_SET(
	4387	PL_vtbl_sigelem,
	4388	MEMBER_TO_FPTR(Perl_magic_getsig),
	4389	MEMBER_TO_FPTR(Perl_magic_setsig),
	4390	NULL,
	4391	MEMBER_TO_FPTR(Perl_magic_clearsig),
	4392	NULL,
	4393	NULL,
	4394	NULL
	4395	);
	4396	#endif
	4397
	4398	MGVTBL_SET(
	4399	PL_vtbl_pack,
	4400	NULL,
	4401	NULL,
	4402	MEMBER_TO_FPTR(Perl_magic_sizepack),
	4403	MEMBER_TO_FPTR(Perl_magic_wipepack),
	4404	NULL,
	4405	NULL,
	4406	NULL
	4407	);
	4408
	4409	MGVTBL_SET(
	4410	PL_vtbl_packelem,
	4411	MEMBER_TO_FPTR(Perl_magic_getpack),
	4412	MEMBER_TO_FPTR(Perl_magic_setpack),
	4413	NULL,
	4414	MEMBER_TO_FPTR(Perl_magic_clearpack),
	4415	NULL,
	4416	NULL,
	4417	NULL
	4418	);
	4419
	4420	MGVTBL_SET(
	4421	PL_vtbl_dbline,
	4422	NULL,
	4423	MEMBER_TO_FPTR(Perl_magic_setdbline),
	4424	NULL,
	4425	NULL,
	4426	NULL,
	4427	NULL,
	4428	NULL
	4429	);
	4430
	4431	MGVTBL_SET(
	4432	PL_vtbl_isa,
	4433	NULL,
	4434	MEMBER_TO_FPTR(Perl_magic_setisa),
	4435	NULL,
	4436	MEMBER_TO_FPTR(Perl_magic_setisa),
	4437	NULL,
	4438	NULL,
	4439	NULL
	4440	);
	4441
	4442	MGVTBL_SET(
	4443	PL_vtbl_isaelem,
	4444	NULL,
	4445	MEMBER_TO_FPTR(Perl_magic_setisa),
	4446	NULL,
	4447	NULL,
	4448	NULL,
	4449	NULL,
	4450	NULL
	4451	);
	4452
	4453	MGVTBL_SET_CONST_MAGIC_GET(
	4454	PL_vtbl_arylen,
	4455	MEMBER_TO_FPTR(Perl_magic_getarylen),
	4456	MEMBER_TO_FPTR(Perl_magic_setarylen),
	4457	NULL,
	4458	NULL,
	4459	NULL,
	4460	NULL,
	4461	NULL
	4462	);
	4463
	4464	MGVTBL_SET(
	4465	PL_vtbl_arylen_p,
	4466	NULL,
	4467	NULL,
	4468	NULL,
	4469	NULL,
	4470	MEMBER_TO_FPTR(Perl_magic_freearylen_p),
	4471	NULL,
	4472	NULL
	4473	);
	4474
	4475	MGVTBL_SET(
	4476	PL_vtbl_glob,
	4477	MEMBER_TO_FPTR(Perl_magic_getglob),
	4478	MEMBER_TO_FPTR(Perl_magic_setglob),
	4479	NULL,
	4480	NULL,
	4481	NULL,
	4482	NULL,
	4483	NULL
	4484	);
	4485
	4486	MGVTBL_SET(
	4487	PL_vtbl_mglob,
	4488	NULL,
	4489	MEMBER_TO_FPTR(Perl_magic_setmglob),
	4490	NULL,
	4491	NULL,
	4492	NULL,
	4493	NULL,
	4494	NULL
	4495	);
	4496
	4497	MGVTBL_SET(
	4498	PL_vtbl_nkeys,
	4499	MEMBER_TO_FPTR(Perl_magic_getnkeys),
	4500	MEMBER_TO_FPTR(Perl_magic_setnkeys),
	4501	NULL,
	4502	NULL,
	4503	NULL,
	4504	NULL,
	4505	NULL
	4506	);
	4507
	4508	MGVTBL_SET(
	4509	PL_vtbl_taint,
	4510	MEMBER_TO_FPTR(Perl_magic_gettaint),
	4511	MEMBER_TO_FPTR(Perl_magic_settaint),
	4512	NULL,
	4513	NULL,
	4514	NULL,
	4515	NULL,
	4516	NULL
	4517	);
	4518
	4519	MGVTBL_SET(
	4520	PL_vtbl_substr,
	4521	MEMBER_TO_FPTR(Perl_magic_getsubstr),
	4522	MEMBER_TO_FPTR(Perl_magic_setsubstr),
	4523	NULL,
	4524	NULL,
	4525	NULL,
	4526	NULL,
	4527	NULL
	4528	);
	4529
	4530	MGVTBL_SET(
	4531	PL_vtbl_vec,
	4532	MEMBER_TO_FPTR(Perl_magic_getvec),
	4533	MEMBER_TO_FPTR(Perl_magic_setvec),
	4534	NULL,
	4535	NULL,
	4536	NULL,
	4537	NULL,
	4538	NULL
	4539	);
	4540
	4541	MGVTBL_SET(
	4542	PL_vtbl_pos,
	4543	MEMBER_TO_FPTR(Perl_magic_getpos),
	4544	MEMBER_TO_FPTR(Perl_magic_setpos),
	4545	NULL,
	4546	NULL,
	4547	NULL,
	4548	NULL,
	4549	NULL
	4550	);
	4551
	4552	MGVTBL_SET(
	4553	PL_vtbl_bm,
	4554	NULL,
	4555	MEMBER_TO_FPTR(Perl_magic_setbm),
	4556	NULL,
	4557	NULL,
	4558	NULL,
	4559	NULL,
	4560	NULL
	4561	);
	4562
	4563	MGVTBL_SET(
	4564	PL_vtbl_fm,
	4565	NULL,
	4566	MEMBER_TO_FPTR(Perl_magic_setfm),
	4567	NULL,
	4568	NULL,
	4569	NULL,
	4570	NULL,
	4571	NULL
	4572	);
	4573
	4574	MGVTBL_SET(
	4575	PL_vtbl_uvar,
	4576	MEMBER_TO_FPTR(Perl_magic_getuvar),
	4577	MEMBER_TO_FPTR(Perl_magic_setuvar),
	4578	NULL,
	4579	NULL,
	4580	NULL,
	4581	NULL,
	4582	NULL
	4583	);
	4584
	4585	MGVTBL_SET(
	4586	PL_vtbl_defelem,
	4587	MEMBER_TO_FPTR(Perl_magic_getdefelem),
	4588	MEMBER_TO_FPTR(Perl_magic_setdefelem),
	4589	NULL,
	4590	NULL,
	4591	NULL,
	4592	NULL,
	4593	NULL
	4594	);
	4595
	4596	MGVTBL_SET(
	4597	PL_vtbl_regexp,
	4598	NULL,
	4599	MEMBER_TO_FPTR(Perl_magic_setregexp),
	4600	NULL,
	4601	NULL,
	4602	MEMBER_TO_FPTR(Perl_magic_freeregexp),
	4603	NULL,
	4604	NULL
	4605	);
	4606
	4607	MGVTBL_SET(
	4608	PL_vtbl_regdata,
	4609	NULL,
	4610	NULL,
	4611	MEMBER_TO_FPTR(Perl_magic_regdata_cnt),
	4612	NULL,
	4613	NULL,
	4614	NULL,
	4615	NULL
	4616	);
	4617
	4618	MGVTBL_SET(
	4619	PL_vtbl_regdatum,
	4620	MEMBER_TO_FPTR(Perl_magic_regdatum_get),
	4621	MEMBER_TO_FPTR(Perl_magic_regdatum_set),
	4622	NULL,
	4623	NULL,
	4624	NULL,
	4625	NULL,
	4626	NULL
	4627	);
	4628
	4629	MGVTBL_SET(
	4630	PL_vtbl_amagic,
	4631	NULL,
	4632	MEMBER_TO_FPTR(Perl_magic_setamagic),
	4633	NULL,
	4634	NULL,
	4635	MEMBER_TO_FPTR(Perl_magic_setamagic),
	4636	NULL,
	4637	NULL
	4638	);
	4639
	4640	MGVTBL_SET(
	4641	PL_vtbl_amagicelem,
	4642	NULL,
	4643	MEMBER_TO_FPTR(Perl_magic_setamagic),
	4644	NULL,
	4645	NULL,
	4646	MEMBER_TO_FPTR(Perl_magic_setamagic),
	4647	NULL,
	4648	NULL
	4649	);
	4650
	4651	MGVTBL_SET(
	4652	PL_vtbl_backref,
	4653	NULL,
	4654	NULL,
	4655	NULL,
	4656	NULL,
	4657	MEMBER_TO_FPTR(Perl_magic_killbackrefs),
	4658	NULL,
	4659	NULL
	4660	);
	4661
	4662	MGVTBL_SET(
	4663	PL_vtbl_ovrld,
	4664	NULL,
	4665	NULL,
	4666	NULL,
	4667	NULL,
	4668	MEMBER_TO_FPTR(Perl_magic_freeovrld),
	4669	NULL,
	4670	NULL
	4671	);
	4672
	4673	MGVTBL_SET(
	4674	PL_vtbl_utf8,
	4675	NULL,
	4676	MEMBER_TO_FPTR(Perl_magic_setutf8),
	4677	NULL,
	4678	NULL,
	4679	NULL,
	4680	NULL,
	4681	NULL
	4682	);
	4683	#ifdef USE_LOCALE_COLLATE
	4684	MGVTBL_SET(
	4685	PL_vtbl_collxfrm,
	4686	NULL,
	4687	MEMBER_TO_FPTR(Perl_magic_setcollxfrm),
	4688	NULL,
	4689	NULL,
	4690	NULL,
	4691	NULL,
	4692	NULL
	4693	);
	4694	#endif
	4695
	4696
	4697	enum {
	4698	fallback_amg, abs_amg,
	4699	bool__amg, nomethod_amg,
	4700	string_amg, numer_amg,
	4701	add_amg, add_ass_amg,
	4702	subtr_amg, subtr_ass_amg,
	4703	mult_amg, mult_ass_amg,
	4704	div_amg, div_ass_amg,
	4705	modulo_amg, modulo_ass_amg,
	4706	pow_amg, pow_ass_amg,
	4707	lshift_amg, lshift_ass_amg,
	4708	rshift_amg, rshift_ass_amg,
	4709	band_amg, band_ass_amg,
	4710	bor_amg, bor_ass_amg,
	4711	bxor_amg, bxor_ass_amg,
	4712	lt_amg, le_amg,
	4713	gt_amg, ge_amg,
	4714	eq_amg, ne_amg,
	4715	ncmp_amg, scmp_amg,
	4716	slt_amg, sle_amg,
	4717	sgt_amg, sge_amg,
	4718	seq_amg, sne_amg,
	4719	not_amg, compl_amg,
	4720	inc_amg, dec_amg,
	4721	atan2_amg, cos_amg,
	4722	sin_amg, exp_amg,
	4723	log_amg, sqrt_amg,
	4724	repeat_amg, repeat_ass_amg,
	4725	concat_amg, concat_ass_amg,
	4726	copy_amg, neg_amg,
	4727	to_sv_amg, to_av_amg,
	4728	to_hv_amg, to_gv_amg,
	4729	to_cv_amg, iter_amg,
	4730	int_amg, DESTROY_amg,
	4731	max_amg_code
	4732	/* Do not leave a trailing comma here. C9X allows it, C89 doesn't. */
	4733	};
	4734
	4735	#define NofAMmeth max_amg_code
	4736	#define AMG_id2name(id) (PL_AMG_names[id]+1)
	4737
	4738	#ifdef DOINIT
	4739	EXTCONST char * const PL_AMG_names[NofAMmeth] = {
	4740	/* Names kept in the symbol table. fallback => "()", the rest has
	4741	"(" prepended. The only other place in perl which knows about
	4742	this convention is AMG_id2name (used for debugging output and
	4743	'nomethod' only), the only other place which has it hardwired is
	4744	overload.pm. */
	4745	"()", "(abs", /* "fallback" should be the first. */
	4746	"(bool", "(nomethod",
	4747	"(\"\"", "(0+",
	4748	"(+", "(+=",
	4749	"(-", "(-=",
	4750	"(", "(=",
	4751	"(/", "(/=",
	4752	"(%", "(%=",
	4753	"(", "(=",
	4754	"(<<", "(<<=",
	4755	"(>>", "(>>=",
	4756	"(&", "(&=",
	4757	"(\|", "(\|=",
	4758	"(^", "(^=",
	4759	"(<", "(<=",
	4760	"(>", "(>=",
	4761	"(==", "(!=",
	4762	"(<=>", "(cmp",
	4763	"(lt", "(le",
	4764	"(gt", "(ge",
	4765	"(eq", "(ne",
	4766	"(!", "(~",
	4767	"(++", "(--",
	4768	"(atan2", "(cos",
	4769	"(sin", "(exp",
	4770	"(log", "(sqrt",
	4771	"(x", "(x=",
	4772	"(.", "(.=",
	4773	"(=", "(neg",
	4774	"(${}", "(@{}",
	4775	"(%{}", "(*{}",
	4776	"(&{}", "(<>",
	4777	"(int", "DESTROY",
	4778	};
	4779	#else
	4780	EXTCONST char * PL_AMG_names[NofAMmeth];
	4781	#endif /* def INITAMAGIC */
	4782
	4783	END_EXTERN_C
	4784
	4785	struct am_table {
	4786	U32 was_ok_sub;
	4787	long was_ok_am;
	4788	U32 flags;
	4789	CV* table[NofAMmeth];
	4790	long fallback;
	4791	};
	4792	struct am_table_short {
	4793	U32 was_ok_sub;
	4794	long was_ok_am;
	4795	U32 flags;
	4796	};
	4797	typedef struct am_table AMT;
	4798	typedef struct am_table_short AMTS;
	4799
	4800	#define AMGfallNEVER 1
	4801	#define AMGfallNO 2
	4802	#define AMGfallYES 3
	4803
	4804	#define AMTf_AMAGIC 1
	4805	#define AMTf_OVERLOADED 2
	4806	#define AMT_AMAGIC(amt) ((amt)->flags & AMTf_AMAGIC)
	4807	#define AMT_AMAGIC_on(amt) ((amt)->flags \|= AMTf_AMAGIC)
	4808	#define AMT_AMAGIC_off(amt) ((amt)->flags &= ~AMTf_AMAGIC)
	4809	#define AMT_OVERLOADED(amt) ((amt)->flags & AMTf_OVERLOADED)
	4810	#define AMT_OVERLOADED_on(amt) ((amt)->flags \|= AMTf_OVERLOADED)
	4811	#define AMT_OVERLOADED_off(amt) ((amt)->flags &= ~AMTf_OVERLOADED)
	4812
	4813	#define StashHANDLER(stash,meth) gv_handler((stash),CAT2(meth,_amg))
	4814
	4815	/*
	4816	* some compilers like to redefine cos et alia as faster
	4817	* (and less accurate?) versions called F_cos et cetera (Quidquid
	4818	* latine dictum sit, altum viditur.) This trick collides with
	4819	* the Perl overloading (amg). The following #defines fool both.
	4820	*/
	4821
	4822	#ifdef _FASTMATH
	4823	# ifdef atan2
	4824	# define F_atan2_amg atan2_amg
	4825	# endif
	4826	# ifdef cos
	4827	# define F_cos_amg cos_amg
	4828	# endif
	4829	# ifdef exp
	4830	# define F_exp_amg exp_amg
	4831	# endif
	4832	# ifdef log
	4833	# define F_log_amg log_amg
	4834	# endif
	4835	# ifdef pow
	4836	# define F_pow_amg pow_amg
	4837	# endif
	4838	# ifdef sin
	4839	# define F_sin_amg sin_amg
	4840	# endif
	4841	# ifdef sqrt
	4842	# define F_sqrt_amg sqrt_amg
	4843	# endif
	4844	#endif /* _FASTMATH */
	4845
	4846	#define PERLDB_ALL (PERLDBf_SUB \| PERLDBf_LINE \| \
	4847	PERLDBf_NOOPT \| PERLDBf_INTER \| \
	4848	PERLDBf_SUBLINE\| PERLDBf_SINGLE\| \
	4849	PERLDBf_NAMEEVAL\| PERLDBf_NAMEANON )
	4850	/* No _NONAME, _GOTO, _ASSERTION */
	4851	#define PERLDBf_SUB 0x01 /* Debug sub enter/exit */
	4852	#define PERLDBf_LINE 0x02 /* Keep line # */
	4853	#define PERLDBf_NOOPT 0x04 /* Switch off optimizations */
	4854	#define PERLDBf_INTER 0x08 /* Preserve more data for
	4855	later inspections */
	4856	#define PERLDBf_SUBLINE 0x10 /* Keep subr source lines */
	4857	#define PERLDBf_SINGLE 0x20 /* Start with single-step on */
	4858	#define PERLDBf_NONAME 0x40 /* For _SUB: no name of the subr */
	4859	#define PERLDBf_GOTO 0x80 /* Report goto: call DB::goto */
	4860	#define PERLDBf_NAMEEVAL 0x100 /* Informative names for evals */
	4861	#define PERLDBf_NAMEANON 0x200 /* Informative names for anon subs */
	4862	#define PERLDBf_ASSERTION 0x400 /* Debug assertion subs enter/exit */
	4863
	4864	#define PERLDB_SUB (PL_perldb && (PL_perldb & PERLDBf_SUB))
	4865	#define PERLDB_LINE (PL_perldb && (PL_perldb & PERLDBf_LINE))
	4866	#define PERLDB_NOOPT (PL_perldb && (PL_perldb & PERLDBf_NOOPT))
	4867	#define PERLDB_INTER (PL_perldb && (PL_perldb & PERLDBf_INTER))
	4868	#define PERLDB_SUBLINE (PL_perldb && (PL_perldb & PERLDBf_SUBLINE))
	4869	#define PERLDB_SINGLE (PL_perldb && (PL_perldb & PERLDBf_SINGLE))
	4870	#define PERLDB_SUB_NN (PL_perldb && (PL_perldb & (PERLDBf_NONAME)))
	4871	#define PERLDB_GOTO (PL_perldb && (PL_perldb & PERLDBf_GOTO))
	4872	#define PERLDB_NAMEEVAL (PL_perldb && (PL_perldb & PERLDBf_NAMEEVAL))
	4873	#define PERLDB_NAMEANON (PL_perldb && (PL_perldb & PERLDBf_NAMEANON))
	4874	#define PERLDB_ASSERTION (PL_perldb && (PL_perldb & PERLDBf_ASSERTION))
	4875
	4876	#ifdef USE_LOCALE_NUMERIC
	4877
	4878	#define SET_NUMERIC_STANDARD() \
	4879	set_numeric_standard();
	4880
	4881	#define SET_NUMERIC_LOCAL() \
	4882	set_numeric_local();
	4883
	4884	#define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE)
	4885	#define IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE)
	4886
	4887	#define IN_LOCALE \
	4888	(IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
	4889
	4890	#define STORE_NUMERIC_LOCAL_SET_STANDARD() \
	4891	bool was_local = PL_numeric_local && IN_LOCALE; \
	4892	if (was_local) SET_NUMERIC_STANDARD();
	4893
	4894	#define STORE_NUMERIC_STANDARD_SET_LOCAL() \
	4895	bool was_standard = PL_numeric_standard && IN_LOCALE; \
	4896	if (was_standard) SET_NUMERIC_LOCAL();
	4897
	4898	#define RESTORE_NUMERIC_LOCAL() \
	4899	if (was_local) SET_NUMERIC_LOCAL();
	4900
	4901	#define RESTORE_NUMERIC_STANDARD() \
	4902	if (was_standard) SET_NUMERIC_STANDARD();
	4903
	4904	#define Atof my_atof
	4905
	4906	#else /* !USE_LOCALE_NUMERIC */
	4907
	4908	#define SET_NUMERIC_STANDARD() /**/
	4909	#define SET_NUMERIC_LOCAL() /**/
	4910	#define IS_NUMERIC_RADIX(a, b) (0)
	4911	#define STORE_NUMERIC_LOCAL_SET_STANDARD() /**/
	4912	#define STORE_NUMERIC_STANDARD_SET_LOCAL() /**/
	4913	#define RESTORE_NUMERIC_LOCAL() /**/
	4914	#define RESTORE_NUMERIC_STANDARD() /**/
	4915	#define Atof my_atof
	4916	#define IN_LOCALE_RUNTIME 0
	4917
	4918	#endif /* !USE_LOCALE_NUMERIC */
	4919
	4920	#if !defined(Strtol) && defined(USE_64_BIT_INT) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG
	4921	# ifdef __hpux
	4922	# define strtoll __strtoll /* secret handshake */
	4923	# endif
	4924	# ifdef WIN64
	4925	# define strtoll _strtoi64 /* secret handshake */
	4926	# endif
	4927	# if !defined(Strtol) && defined(HAS_STRTOLL)
	4928	# define Strtol strtoll
	4929	# endif
	4930	# if !defined(Strtol) && defined(HAS_STRTOQ)
	4931	# define Strtol strtoq
	4932	# endif
	4933	/* is there atoq() anywhere? */
	4934	#endif
	4935	#if !defined(Strtol) && defined(HAS_STRTOL)
	4936	# define Strtol strtol
	4937	#endif
	4938	#ifndef Atol
	4939	/* It would be more fashionable to use Strtol() to define atol()
	4940	* (as is done for Atoul(), see below) but for backward compatibility
	4941	* we just assume atol(). */
	4942	# if defined(USE_64_BIT_INT) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG && defined(HAS_ATOLL)
	4943	# ifdef WIN64
	4944	# define atoll _atoi64 /* secret handshake */
	4945	# endif
	4946	# define Atol atoll
	4947	# else
	4948	# define Atol atol
	4949	# endif
	4950	#endif
	4951
	4952	#if !defined(Strtoul) && defined(USE_64_BIT_INT) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG
	4953	# ifdef __hpux
	4954	# define strtoull __strtoull /* secret handshake */
	4955	# endif
	4956	# ifdef WIN64
	4957	# define strtoull _strtoui64 /* secret handshake */
	4958	# endif
	4959	# if !defined(Strtoul) && defined(HAS_STRTOULL)
	4960	# define Strtoul strtoull
	4961	# endif
	4962	# if !defined(Strtoul) && defined(HAS_STRTOUQ)
	4963	# define Strtoul strtouq
	4964	# endif
	4965	/* is there atouq() anywhere? */
	4966	#endif
	4967	#if !defined(Strtoul) && defined(HAS_STRTOUL)
	4968	# define Strtoul strtoul
	4969	#endif
	4970	#if !defined(Strtoul) && defined(HAS_STRTOL) /* Last resort. */
	4971	# define Strtoul(s, e, b) strchr((s), '-') ? ULONG_MAX : (unsigned long)strtol((s), (e), (b))
	4972	#endif
	4973	#ifndef Atoul
	4974	# define Atoul(s) Strtoul(s, (char **)NULL, 10)
	4975	#endif
	4976
	4977
	4978	/* if these never got defined, they need defaults */
	4979	#ifndef PERL_SET_CONTEXT
	4980	# define PERL_SET_CONTEXT(i) PERL_SET_INTERP(i)
	4981	#endif
	4982
	4983	#ifndef PERL_GET_CONTEXT
	4984	# define PERL_GET_CONTEXT PERL_GET_INTERP
	4985	#endif
	4986
	4987	#ifndef PERL_GET_THX
	4988	# define PERL_GET_THX ((void*)NULL)
	4989	#endif
	4990
	4991	#ifndef PERL_SET_THX
	4992	# define PERL_SET_THX(t) NOOP
	4993	#endif
	4994
	4995	#ifndef PERL_SCRIPT_MODE
	4996	#define PERL_SCRIPT_MODE "r"
	4997	#endif
	4998
	4999	/*
	5000	* Some operating systems are stingy with stack allocation,
	5001	* so perl may have to guard against stack overflow.
	5002	*/
	5003	#ifndef PERL_STACK_OVERFLOW_CHECK
	5004	#define PERL_STACK_OVERFLOW_CHECK() NOOP
	5005	#endif
	5006
	5007	/*
	5008	* Some nonpreemptive operating systems find it convenient to
	5009	* check for asynchronous conditions after each op execution.
	5010	* Keep this check simple, or it may slow down execution
	5011	* massively.
	5012	*/
	5013
	5014	#ifndef PERL_MICRO
	5015	# ifndef PERL_ASYNC_CHECK
	5016	# define PERL_ASYNC_CHECK() if (PL_sig_pending) despatch_signals()
	5017	# endif
	5018	#endif
	5019
	5020	#ifndef PERL_ASYNC_CHECK
	5021	# define PERL_ASYNC_CHECK() NOOP
	5022	#endif
	5023
	5024	/*
	5025	* On some operating systems, a memory allocation may succeed,
	5026	* but put the process too close to the system's comfort limit.
	5027	* In this case, PERL_ALLOC_CHECK frees the pointer and sets
	5028	* it to NULL.
	5029	*/
	5030	#ifndef PERL_ALLOC_CHECK
	5031	#define PERL_ALLOC_CHECK(p) NOOP
	5032	#endif
	5033
	5034	#ifdef HAS_SEM
	5035	# include <sys/ipc.h>
	5036	# include <sys/sem.h>
	5037	# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
	5038	union semun {
	5039	int val;
	5040	struct semid_ds *buf;
	5041	unsigned short *array;
	5042	};
	5043	# endif
	5044	# ifdef USE_SEMCTL_SEMUN
	5045	# ifdef IRIX32_SEMUN_BROKEN_BY_GCC
	5046	union gccbug_semun {
	5047	int val;
	5048	struct semid_ds *buf;
	5049	unsigned short *array;
	5050	char __dummy[5];
	5051	};
	5052	# define semun gccbug_semun
	5053	# endif
	5054	# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
	5055	# else
	5056	# ifdef USE_SEMCTL_SEMID_DS
	5057	# ifdef EXTRA_F_IN_SEMUN_BUF
	5058	# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buff)
	5059	# else
	5060	# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
	5061	# endif
	5062	# endif
	5063	# endif
	5064	#endif
	5065
	5066	/*
	5067	* Boilerplate macros for initializing and accessing interpreter-local
	5068	* data from C. All statics in extensions should be reworked to use
	5069	* this, if you want to make the extension thread-safe. See ext/re/re.xs
	5070	* for an example of the use of these macros, and perlxs.pod for more.
	5071	*
	5072	* Code that uses these macros is responsible for the following:
	5073	* 1. #define MY_CXT_KEY to a unique string, e.g.
	5074	* "DynaLoader::_guts" XS_VERSION
	5075	* 2. Declare a typedef named my_cxt_t that is a structure that contains
	5076	* all the data that needs to be interpreter-local.
	5077	* 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
	5078	* 4. Use the MY_CXT_INIT macro such that it is called exactly once
	5079	* (typically put in the BOOT: section).
	5080	* 5. Use the members of the my_cxt_t structure everywhere as
	5081	* MY_CXT.member.
	5082	* 6. Use the dMY_CXT macro (a declaration) in all the functions that
	5083	* access MY_CXT.
	5084	*/
	5085
	5086	#if defined(PERL_IMPLICIT_CONTEXT)
	5087
	5088	/* This must appear in all extensions that define a my_cxt_t structure,
	5089	* right after the definition (i.e. at file scope). The non-threads
	5090	* case below uses it to declare the data as static. */
	5091	#define START_MY_CXT
	5092
	5093	/* Fetches the SV that keeps the per-interpreter data. */
	5094	#define dMY_CXT_SV \
	5095	SV my_cxt_sv = hv_fetch(PL_modglobal, MY_CXT_KEY, \
	5096	sizeof(MY_CXT_KEY)-1, TRUE)
	5097
	5098	/* This declaration should be used within all functions that use the
	5099	* interpreter-local data. */
	5100	#define dMY_CXT \
	5101	dMY_CXT_SV; \
	5102	my_cxt_t my_cxtp = INT2PTR(my_cxt_t, SvUV(my_cxt_sv))
	5103
	5104	/* Creates and zeroes the per-interpreter data.
	5105	* (We allocate my_cxtp in a Perl SV so that it will be released when
	5106	* the interpreter goes away.) */
	5107	#define MY_CXT_INIT \
	5108	dMY_CXT_SV; \
	5109	/* newSV() allocates one more than needed */ \
	5110	my_cxt_t my_cxtp = (my_cxt_t)SvPVX(newSV(sizeof(my_cxt_t)-1));\
	5111	Zero(my_cxtp, 1, my_cxt_t); \
	5112	sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
	5113
	5114	/* Clones the per-interpreter data. */
	5115	#define MY_CXT_CLONE \
	5116	dMY_CXT_SV; \
	5117	my_cxt_t my_cxtp = (my_cxt_t)SvPVX(newSV(sizeof(my_cxt_t)-1));\
	5118	Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
	5119	sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
	5120
	5121	/* This macro must be used to access members of the my_cxt_t structure.
	5122	* e.g. MYCXT.some_data */
	5123	#define MY_CXT (*my_cxtp)
	5124
	5125	/* Judicious use of these macros can reduce the number of times dMY_CXT
	5126	* is used. Use is similar to pTHX, aTHX etc. */
	5127	#define pMY_CXT my_cxt_t *my_cxtp
	5128	#define pMY_CXT_ pMY_CXT,
	5129	#define _pMY_CXT ,pMY_CXT
	5130	#define aMY_CXT my_cxtp
	5131	#define aMY_CXT_ aMY_CXT,
	5132	#define _aMY_CXT ,aMY_CXT
	5133
	5134	#else /* USE_ITHREADS */
	5135
	5136	#define START_MY_CXT static my_cxt_t my_cxt;
	5137	#define dMY_CXT_SV dNOOP
	5138	#define dMY_CXT dNOOP
	5139	#define MY_CXT_INIT NOOP
	5140	#define MY_CXT_CLONE NOOP
	5141	#define MY_CXT my_cxt
	5142
	5143	#define pMY_CXT void
	5144	#define pMY_CXT_
	5145	#define _pMY_CXT
	5146	#define aMY_CXT
	5147	#define aMY_CXT_
	5148	#define _aMY_CXT
	5149
	5150	#endif /* !defined(USE_ITHREADS) */
	5151
	5152	#ifdef I_FCNTL
	5153	# include <fcntl.h>
	5154	#endif
	5155
	5156	#ifdef __Lynx__
	5157	# include <fcntl.h>
	5158	#endif
	5159
	5160	#ifdef I_SYS_FILE
	5161	# include <sys/file.h>
	5162	#endif
	5163
	5164	#if defined(HAS_FLOCK) && !defined(HAS_FLOCK_PROTO)
	5165	int flock(int fd, int op);
	5166	#endif
	5167
	5168	#ifndef O_RDONLY
	5169	/* Assume UNIX defaults */
	5170	# define O_RDONLY 0000
	5171	# define O_WRONLY 0001
	5172	# define O_RDWR 0002
	5173	# define O_CREAT 0100
	5174	#endif
	5175
	5176	#ifndef O_BINARY
	5177	# define O_BINARY 0
	5178	#endif
	5179
	5180	#ifndef O_TEXT
	5181	# define O_TEXT 0
	5182	#endif
	5183
	5184	#if O_TEXT != O_BINARY
	5185	/* If you have different O_TEXT and O_BINARY and you are a CLRF shop,
	5186	* that is, you are somehow DOSish. */
	5187	# if defined(__BEOS__) \|\| defined(__VOS__) \|\| defined(__CYGWIN__)
	5188	/* BeOS has O_TEXT != O_BINARY but O_TEXT and O_BINARY have no effect;
	5189	* BeOS is always UNIXoid (LF), not DOSish (CRLF). */
	5190	/* VOS has O_TEXT != O_BINARY, and they have effect,
	5191	* but VOS always uses LF, never CRLF. */
	5192	/* If you have O_TEXT different from your O_BINARY but you still are
	5193	* not a CRLF shop. */
	5194	# undef PERLIO_USING_CRLF
	5195	# else
	5196	/* If you really are DOSish. */
	5197	# define PERLIO_USING_CRLF 1
	5198	# endif
	5199	#endif
	5200
	5201	#ifdef IAMSUID
	5202
	5203	#ifdef I_SYS_STATVFS
	5204	# if defined(PERL_SCO) && !defined(_SVID3)
	5205	# define _SVID3
	5206	# endif
	5207	# include <sys/statvfs.h> /* for f?statvfs() */
	5208	#endif
	5209	#ifdef I_SYS_MOUNT
	5210	# include <sys/mount.h> /* for BSD f?statfs() /
	5211	#endif
	5212	#ifdef I_MNTENT
	5213	# include <mntent.h> /* for getmntent() */
	5214	#endif
	5215	#ifdef I_SYS_STATFS
	5216	# include <sys/statfs.h> /* for some statfs() */
	5217	#endif
	5218	#ifdef I_SYS_VFS
	5219	# ifdef __sgi
	5220	# define sv IRIX_sv /* kludge: IRIX has an sv of its own */
	5221	# endif
	5222	# include <sys/vfs.h> /* for some statfs() */
	5223	# ifdef __sgi
	5224	# undef IRIX_sv
	5225	# endif
	5226	#endif
	5227	#ifdef I_USTAT
	5228	# include <ustat.h> /* for ustat() */
	5229	#endif
	5230
	5231	#if !defined(PERL_MOUNT_NOSUID) && defined(MOUNT_NOSUID)
	5232	# define PERL_MOUNT_NOSUID MOUNT_NOSUID
	5233	#endif
	5234	#if !defined(PERL_MOUNT_NOSUID) && defined(MNT_NOSUID)
	5235	# define PERL_MOUNT_NOSUID MNT_NOSUID
	5236	#endif
	5237	#if !defined(PERL_MOUNT_NOSUID) && defined(MS_NOSUID)
	5238	# define PERL_MOUNT_NOSUID MS_NOSUID
	5239	#endif
	5240	#if !defined(PERL_MOUNT_NOSUID) && defined(M_NOSUID)
	5241	# define PERL_MOUNT_NOSUID M_NOSUID
	5242	#endif
	5243
	5244	#if !defined(PERL_MOUNT_NOEXEC) && defined(MOUNT_NOEXEC)
	5245	# define PERL_MOUNT_NOEXEC MOUNT_NOEXEC
	5246	#endif
	5247	#if !defined(PERL_MOUNT_NOEXEC) && defined(MNT_NOEXEC)
	5248	# define PERL_MOUNT_NOEXEC MNT_NOEXEC
	5249	#endif
	5250	#if !defined(PERL_MOUNT_NOEXEC) && defined(MS_NOEXEC)
	5251	# define PERL_MOUNT_NOEXEC MS_NOEXEC
	5252	#endif
	5253	#if !defined(PERL_MOUNT_NOEXEC) && defined(M_NOEXEC)
	5254	# define PERL_MOUNT_NOEXEC M_NOEXEC
	5255	#endif
	5256
	5257	#endif /* IAMSUID */
	5258
	5259	#ifdef I_LIBUTIL
	5260	# include <libutil.h> /* setproctitle() in some FreeBSDs */
	5261	#endif
	5262
	5263	#ifndef EXEC_ARGV_CAST
	5264	#define EXEC_ARGV_CAST(x) x
	5265	#endif
	5266
	5267	#define IS_NUMBER_IN_UV 0x01 /* number within UV range (maybe not
	5268	int). value returned in pointed-
	5269	to UV */
	5270	#define IS_NUMBER_GREATER_THAN_UV_MAX 0x02 /* pointed to UV undefined */
	5271	#define IS_NUMBER_NOT_INT 0x04 /* saw . or E notation */
	5272	#define IS_NUMBER_NEG 0x08 /* leading minus sign */
	5273	#define IS_NUMBER_INFINITY 0x10 /* this is big */
	5274	#define IS_NUMBER_NAN 0x20 /* this is not */
	5275
	5276	#define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send)
	5277
	5278	/* Input flags: */
	5279	#define PERL_SCAN_ALLOW_UNDERSCORES 0x01 /* grok_??? accept _ in numbers */
	5280	#define PERL_SCAN_DISALLOW_PREFIX 0x02 /* grok_??? reject 0x in hex etc */
	5281	#define PERL_SCAN_SILENT_ILLDIGIT 0x04 /* grok_??? not warn about illegal digits */
	5282	/* Output flags: */
	5283	#define PERL_SCAN_GREATER_THAN_UV_MAX 0x02 /* should this merge with above? */
	5284
	5285	/* to let user control profiling */
	5286	#ifdef PERL_GPROF_CONTROL
	5287	extern void moncontrol(int);
	5288	#define PERL_GPROF_MONCONTROL(x) moncontrol(x)
	5289	#else
	5290	#define PERL_GPROF_MONCONTROL(x)
	5291	#endif
	5292
	5293	#ifdef UNDER_CE
	5294	#include "wince.h"
	5295	#endif
	5296
	5297	/* ISO 6429 NEL - C1 control NExt Line */
	5298	/* See http://www.unicode.org/unicode/reports/tr13/ */
	5299	#ifdef EBCDIC /* In EBCDIC NEL is just an alias for LF */
	5300	# if '^' == 95 /* CP 1047: MVS OpenEdition - OS/390 - z/OS */
	5301	# define NEXT_LINE_CHAR 0x15
	5302	# else /* CDRA */
	5303	# define NEXT_LINE_CHAR 0x25
	5304	# endif
	5305	#else
	5306	# define NEXT_LINE_CHAR 0x85
	5307	#endif
	5308
	5309	/* The UTF-8 bytes of the Unicode LS and PS, U+2028 and U+2029 */
	5310	#define UNICODE_LINE_SEPA_0 0xE2
	5311	#define UNICODE_LINE_SEPA_1 0x80
	5312	#define UNICODE_LINE_SEPA_2 0xA8
	5313	#define UNICODE_PARA_SEPA_0 0xE2
	5314	#define UNICODE_PARA_SEPA_1 0x80
	5315	#define UNICODE_PARA_SEPA_2 0xA9
	5316
	5317	#ifndef PIPESOCK_MODE
	5318	# define PIPESOCK_MODE
	5319	#endif
	5320
	5321	#ifndef SOCKET_OPEN_MODE
	5322	# define SOCKET_OPEN_MODE PIPESOCK_MODE
	5323	#endif
	5324
	5325	#ifndef PIPE_OPEN_MODE
	5326	# define PIPE_OPEN_MODE PIPESOCK_MODE
	5327	#endif
	5328
	5329	#define PERL_MAGIC_UTF8_CACHESIZE 2
	5330
	5331	#define PERL_UNICODE_STDIN_FLAG 0x0001
	5332	#define PERL_UNICODE_STDOUT_FLAG 0x0002
	5333	#define PERL_UNICODE_STDERR_FLAG 0x0004
	5334	#define PERL_UNICODE_IN_FLAG 0x0008
	5335	#define PERL_UNICODE_OUT_FLAG 0x0010
	5336	#define PERL_UNICODE_ARGV_FLAG 0x0020
	5337	#define PERL_UNICODE_LOCALE_FLAG 0x0040
	5338	#define PERL_UNICODE_WIDESYSCALLS_FLAG 0x0080 /* for Sarathy */
	5339
	5340	#define PERL_UNICODE_STD_FLAG \
	5341	(PERL_UNICODE_STDIN_FLAG \| \
	5342	PERL_UNICODE_STDOUT_FLAG \| \
	5343	PERL_UNICODE_STDERR_FLAG)
	5344
	5345	#define PERL_UNICODE_INOUT_FLAG \
	5346	(PERL_UNICODE_IN_FLAG \| \
	5347	PERL_UNICODE_OUT_FLAG)
	5348
	5349	#define PERL_UNICODE_DEFAULT_FLAGS \
	5350	(PERL_UNICODE_STD_FLAG \| \
	5351	PERL_UNICODE_INOUT_FLAG \| \
	5352	PERL_UNICODE_LOCALE_FLAG)
	5353
	5354	#define PERL_UNICODE_ALL_FLAGS 0x00ff
	5355
	5356	#define PERL_UNICODE_STDIN 'I'
	5357	#define PERL_UNICODE_STDOUT 'O'
	5358	#define PERL_UNICODE_STDERR 'E'
	5359	#define PERL_UNICODE_STD 'S'
	5360	#define PERL_UNICODE_IN 'i'
	5361	#define PERL_UNICODE_OUT 'o'
	5362	#define PERL_UNICODE_INOUT 'D'
	5363	#define PERL_UNICODE_ARGV 'A'
	5364	#define PERL_UNICODE_LOCALE 'L'
	5365	#define PERL_UNICODE_WIDESYSCALLS 'W'
	5366
	5367	#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
	5368
	5369	/* From sigaction(2) (FreeBSD man page):
	5370	* \| Signal routines normally execute with the signal that
	5371	* \| caused their invocation blocked, but other signals may
	5372	* \| yet occur.
	5373	* Emulation of this behavior (from within Perl) is enabled
	5374	* by defining PERL_BLOCK_SIGNALS.
	5375	*/
	5376	#define PERL_BLOCK_SIGNALS
	5377
	5378	#if defined(HAS_SIGPROCMASK) && defined(PERL_BLOCK_SIGNALS)
	5379	# define PERL_BLOCKSIG_ADD(set,sig) \
	5380	sigset_t set; sigemptyset(&(set)); sigaddset(&(set), sig)
	5381	# define PERL_BLOCKSIG_BLOCK(set) \
	5382	sigprocmask(SIG_BLOCK, &(set), NULL)
	5383	# define PERL_BLOCKSIG_UNBLOCK(set) \
	5384	sigprocmask(SIG_UNBLOCK, &(set), NULL)
	5385	#endif /* HAS_SIGPROCMASK && PERL_BLOCK_SIGNALS */
	5386
	5387	/* How about the old style of sigblock()? */
	5388
	5389	#ifndef PERL_BLOCKSIG_ADD
	5390	# define PERL_BLOCKSIG_ADD(set, sig) NOOP
	5391	#endif
	5392	#ifndef PERL_BLOCKSIG_BLOCK
	5393	# define PERL_BLOCKSIG_BLOCK(set) NOOP
	5394	#endif
	5395	#ifndef PERL_BLOCKSIG_UNBLOCK
	5396	# define PERL_BLOCKSIG_UNBLOCK(set) NOOP
	5397	#endif
	5398
	5399	/* Use instead of abs() since abs() forces its argument to be an int,
	5400	* but also beware since this evaluates its argument twice, so no x++. */
	5401	#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
	5402
	5403	#if defined(__DECC) && defined(__osf__)
	5404	#pragma message disable (mainparm) /* Perl uses the envp in main(). */
	5405	#endif
	5406
	5407	#define do_open(g, n, l, a, rm, rp, sf) \
	5408	do_openn(g, n, l, a, rm, rp, sf, (SV **) NULL, 0)
	5409	#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
	5410	# define do_exec(cmd) do_exec3(cmd,0,0)
	5411	#endif
	5412	#ifdef OS2
	5413	# define do_aexec Perl_do_aexec
	5414	#else
	5415	# define do_aexec(really, mark,sp) do_aexec5(really, mark, sp, 0, 0)
	5416	#endif
	5417
	5418	/* and finally... */
	5419	#define PERL_PATCHLEVEL_H_IMPLICIT
	5420	#include "patchlevel.h"
	5421	#undef PERL_PATCHLEVEL_H_IMPLICIT
	5422
	5423	/* Mention
	5424
	5425	NV_PRESERVES_UV
	5426
	5427	HAS_MKSTEMP
	5428	HAS_MKSTEMPS
	5429	HAS_MKDTEMP
	5430
	5431	HAS_GETCWD
	5432
	5433	HAS_MMAP
	5434	HAS_MPROTECT
	5435	HAS_MSYNC
	5436	HAS_MADVISE
	5437	HAS_MUNMAP
	5438	I_SYSMMAN
	5439	Mmap_t
	5440
	5441	NVef
	5442	NVff
	5443	NVgf
	5444
	5445	HAS_UALARM
	5446	HAS_USLEEP
	5447
	5448	HAS_SETITIMER
	5449	HAS_GETITIMER
	5450
	5451	HAS_SENDMSG
	5452	HAS_RECVMSG
	5453	HAS_READV
	5454	HAS_WRITEV
	5455	I_SYSUIO
	5456	HAS_STRUCT_MSGHDR
	5457	HAS_STRUCT_CMSGHDR
	5458
	5459	HAS_NL_LANGINFO
	5460
	5461	HAS_DIRFD
	5462
	5463	so that Configure picks them up. */
	5464
	5465	#endif /* Include guard */
	5466