Viewing file:  modperl_perl_includes.h (3.83 KB) -rw-rw-rw-
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#ifndef MODPERL_PERL_INCLUDES_H
#define MODPERL_PERL_INCLUDES_H
/* header files for Perl */
#ifndef PERL_NO_GET_CONTEXT
# define PERL_NO_GET_CONTEXT
#endif
#define PERLIO_NOT_STDIO 0
#include "config.h"
/*
* sizeof(struct PerlInterpreter) changes #ifdef USE_LARGE_FILES
* apache-2.0 cannot be compiled with lfs because of sendfile.h
* the PERL_CORE optimization is a no-no in this case
*/
#if defined(USE_ITHREADS) && !defined(USE_LARGE_FILES)
# define PERL_CORE
#endif
#ifdef MP_SOURCE_SCAN
/* XXX: C::Scan does not properly remove __attribute__ within
* function prototypes; so we just rip them all out via cpp
*/
# undef __attribute__
# define __attribute__(arg)
# ifdef MP_SOURCE_SCAN_NEED_ITHREADS
/* just need to have pTHX_ defined for proper prototypes */
# define USE_ITHREADS
# endif
#endif
#ifdef WIN32
# define uid_t perl_uid_t
# define gid_t perl_gid_t
# ifdef exit
# undef exit
# endif
#endif
/* needed starting from 5.8.2 to access the PERL_HASH_INTERNAL macro
* in hv.h. we use it in modperl_util.c */
#define PERL_HASH_INTERNAL_ACCESS
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#if defined(WIN32) && defined(USE_LARGE_FILES)
# ifdef malloc
# undef malloc
# endif
# ifdef free
# undef free
# endif
#endif
#include "modperl_perl_unembed.h"
/* avoiding -Wall warning */
#undef dNOOP
#define dNOOP extern int __attribute__ ((unused)) Perl___notused
#ifndef G_METHOD
# define G_METHOD 64
#endif
#ifndef PERL_MAGIC_tied
# define PERL_MAGIC_tied 'P'
#endif
#ifndef PERL_MAGIC_tiedscalar
# define PERL_MAGIC_tiedscalar 'q'
#endif
#ifndef PERL_MAGIC_ext
# define PERL_MAGIC_ext '~'
#endif
#if defined(__APPLE__) && !defined(PERL_CORE) && !defined(environ)
# include <crt_externs.h>
# define environ (*_NSGetEnviron())
#endif
/* sv_copypv was added in perl 5.7.3 */
#ifndef sv_copypv
# define sv_copypv(dsv, ssv) \
STMT_START { \
STRLEN len; \
char *s; \
s = SvPV(ssv, len); \
sv_setpvn(dsv, s, len); \
if (SvUTF8(ssv)) { \
SvUTF8_on(dsv); \
} \
else { \
SvUTF8_off(dsv); \
} \
} STMT_END
#endif
/* perl bug workaround: with USE_ITHREADS perl leaks pthread_key_t on
* every reload of libperl.{a,so} (it's allocated on the very first
* perl_alloc() and never freed). This becomes a problem on apache
* restart: if the OS limit is 1024, 1024 restarts later things will
* start crashing */
/* XXX: once and if it's fixed in perl, we need to disable it for the
* versions that have it fixed, otherwise it'll crash because it'll be
* freed twice */
#ifdef USE_ITHREADS
#define MP_PERL_FREE_THREAD_KEY_WORKAROUND \
if (PL_curinterp) { \
FREE_THREAD_KEY; \
PL_curinterp = NULL; \
}
#else
#define MP_PERL_FREE_THREAD_KEY_WORKAROUND
#endif
#endif /* MODPERL_PERL_INCLUDES_H */
|