diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-08-07 21:09:03 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-11 11:38:46 +0200 |
| commit | 115ff745268490ae5fb5ecaee00be54172e302e0 (patch) | |
| tree | 18788de5ba03a4598d0cdd3b776e2dd257df050f /win32/perllib.c | |
| parent | e469e61f2b416389b7fb67acaf0d21735066e6ee (diff) | |
| download | perl-115ff745268490ae5fb5ecaee00be54172e302e0.tar.gz | |
Simplify embedvar.h, removing a level of macro indirection for PL_* variables.
For the default (non-multiplicity) configuration, PERLVAR*() macros now
directly expand their arguments to tokens such as C<PL_defgv>, instead of
expanding to C<PL_Idefgv>. This removes over 350 lines from F<embedvar.h>,
which defined macros to map from C<PL_Idefgv> to C<PL_defgv> and so forth.
Diffstat (limited to 'win32/perllib.c')
| -rw-r--r-- | win32/perllib.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index ff212102f6..526a4a18d5 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -232,10 +232,10 @@ RunPerl(int argc, char **argv, char **env) } #ifdef PERL_GLOBAL_STRUCT -#define PERLVAR(var,type) /**/ -#define PERLVARA(var,type) /**/ -#define PERLVARI(var,type,init) PL_Vars.var = init; -#define PERLVARIC(var,type,init) PL_Vars.var = init; +#define PERLVAR(prefix,var,type) /**/ +#define PERLVARA(prefix,var,type) /**/ +#define PERLVARI(prefix,var,type,init) PL_Vars.prefix##var = init; +#define PERLVARIC(prefix,var,type,init) PL_Vars.prefix##var = init; #include "perlvars.h" #undef PERLVAR #undef PERLVARA |