source: trunk/essentials/dev-lang/perl/reentr.h@ 3314

Last change on this file since 3314 was 3181, checked in by bird, 19 years ago

perl 5.8.8

File size: 25.5 KB
Line 
1/* -*- buffer-read-only: t -*-
2 *
3 * reentr.h
4 *
5 * Copyright (C) 2002, 2003, 2005 by Larry Wall and others
6 *
7 * You may distribute under the terms of either the GNU General Public
8 * License or the Artistic License, as specified in the README file.
9 *
10 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
11 * This file is built by reentr.pl from data in reentr.pl.
12 */
13
14#ifndef REENTR_H
15#define REENTR_H
16
17#ifdef USE_REENTRANT_API
18
19#ifdef PERL_CORE
20# define PL_REENTRANT_RETINT PL_reentrant_retint
21#endif
22
23/* Deprecations: some platforms have the said reentrant interfaces
24 * but they are declared obsolete and are not to be used. Often this
25 * means that the platform has threadsafed the interfaces (hopefully).
26 * All this is OS version dependent, so we are of course fooling ourselves.
27 * If you know of more deprecations on some platforms, please add your own. */
28
29#ifdef __hpux
30# undef HAS_CRYPT_R
31# undef HAS_DRAND48_R
32# undef HAS_ENDGRENT_R
33# undef HAS_ENDPWENT_R
34# undef HAS_GETGRENT_R
35# undef HAS_GETPWENT_R
36# undef HAS_SETLOCALE_R
37# undef HAS_SRAND48_R
38# undef HAS_STRERROR_R
39# define NETDB_R_OBSOLETE
40#endif
41
42#if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */
43# undef HAS_CRYPT_R
44# undef HAS_STRERROR_R
45# define NETDB_R_OBSOLETE
46#endif
47
48#ifdef NETDB_R_OBSOLETE
49# undef HAS_ENDHOSTENT_R
50# undef HAS_ENDNETENT_R
51# undef HAS_ENDPROTOENT_R
52# undef HAS_ENDSERVENT_R
53# undef HAS_GETHOSTBYADDR_R
54# undef HAS_GETHOSTBYNAME_R