perl 5.003_01: perly.c vms/perly_c.vms
[p5sagit/p5-mst-13.2.git] / EXTERN.h
CommitLineData
a0d0e21e 1/* EXTERN.h
a687059c 2 *
a0d0e21e 3 * Copyright (c) 1991-1994, Larry Wall
a687059c 4 *
132b68a5 5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
8d063cd8 7 *
8d063cd8 8 */
9
4633a7c4 10/*
11 * EXT designates a global var which is defined in perl.h
12 * dEXT designates a global var which is defined in another
13 * file, so we can't count on finding it in perl.h
14 * (this practice should be avoided).
15 */
8d063cd8 16#undef EXT
4633a7c4 17#undef dEXT
18#if defined(VMS) && !defined(__GNUC__)
19# define EXT globalref
20# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
21#else
22# define EXT extern
23# define dEXT
24#endif
8d063cd8 25
26#undef INIT
27#define INIT(x)
28
29#undef DOINIT