Commit | Line | Data |
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 |