Revision 10724,
901 bytes
checked in by ghudson, 27 years ago
(diff) |
This commit was generated by cvs2svn to compensate for changes in r10723,
which included commits to RCS files with non-trunk default branches.
|
Line | |
---|
1 | /* INTERN.h |
---|
2 | * |
---|
3 | * Copyright (c) 1991-1997, Larry Wall |
---|
4 | * |
---|
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. |
---|
7 | * |
---|
8 | */ |
---|
9 | |
---|
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 | */ |
---|
16 | #undef EXT |
---|
17 | #undef dEXT |
---|
18 | #undef EXTCONST |
---|
19 | #undef dEXTCONST |
---|
20 | #if defined(VMS) && !defined(__GNUC__) |
---|
21 | # define EXT globaldef {"$GLOBAL_RW_VARS"} noshare |
---|
22 | # define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare |
---|
23 | # define EXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly |
---|
24 | # define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly |
---|
25 | #else |
---|
26 | # define EXT |
---|
27 | # define dEXT |
---|
28 | # define EXTCONST const |
---|
29 | # define dEXTCONST const |
---|
30 | #endif |
---|
31 | |
---|
32 | #undef INIT |
---|
33 | #define INIT(x) = x |
---|
34 | |
---|
35 | #define DOINIT |
---|
Note: See
TracBrowser
for help on using the repository browser.