/* thdrvar.h
*
* Copyright (C) 1999, 2000, 2001, 2002, by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
*/
/*
=head1 Global Variables
*/
/***********************************************/
/* Global only to current thread */
/***********************************************/
/* Don't forget to re-run embed.pl to propagate changes! */
/* The 'T' prefix is only needed for vars that need appropriate #defines
* generated when built with or without USE_5005THREADS. It is also used
* to generate the appropriate export list for win32.
*
* When building without USE_5005THREADS, these variables will be truly global.
* When building without USE_5005THREADS but with MULTIPLICITY, these variables
* will be global per-interpreter. */
/* Important ones in the first cache line (if alignment is done right) */
#ifdef USE_5005THREADS
#endif
#ifdef OP_IN_REGISTER
#else
#endif
when LEAVEing scopes we've ENTERed */
/*
=for apidoc Amn|STRLEN|PL_na
A convenience variable which is typically used with C<SvPV> when one
doesn't care about the length of the string. It is usually more efficient
to either declare a local variable and use that instead or to use the
C<SvPV_nolen> macro.
=cut
*/
Not Applicable */
/* stat stuff */
#ifdef HAS_TIMES
#endif
/* Fields used by magic variables such as $@, $/ and so on */
PERLVAR(Tnrs, SV *) /* placeholder: unused since 5.8.0 (5.7.2 patch #12027 for bug ID 20010815.012) */
/*
=for apidoc mn|SV*|PL_rs
The input record separator - C<$/> in Perl space.
=for apidoc mn|GV*|PL_last_in_gv
The GV which was last used for a filehandle input operation. (C<< <FH> >>)
=for apidoc mn|SV*|PL_ofs_sv
The output field separator - C<$,> in Perl space.
=cut
*/
/* Stashes */
#ifdef PERL_FLEXIBLE_EXCEPTIONS
#endif
/* statics "owned" by various functions */
/* sort stuff */
/* float buffer */
PERLVAR(Tefloatbuf, char*)
/* regex stuff */
/* from regexec.c renamed was data */
/* Pointer to peephole optimizer */
/* Pointer to REx compiler */
/* Pointer to REx executer */
/* Pointer to optimized REx executer */
/* Pointer to optimized REx string */
/* Pointer to REx free()er */
was interpolated. */
PERLVARI(Twatchaddr, char **, 0)
/* Note that the variables below are all explicitly referenced in the code
* as thr->whatever and therefore don't need the 'T' prefix. */
#ifdef USE_5005THREADS
/* Circular linked list of threads */
#ifdef HAVE_THREAD_INTERN
PERLVAR(i, struct thread_intern)
/* Platform-dependent internals */
#endif
#endif /* USE_5005THREADS */