diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-23 10:50:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-23 10:50:10 +0000 |
| commit | 066ef5b548575efffe272b7363a2f5050ebd7e2d (patch) | |
| tree | 09ca6ef3162bdf047c8476dad3f3bb9067b7c150 /perl.c | |
| parent | cb68f92dafee55e318e6fa14f60158f7b7d20a65 (diff) | |
| download | perl-066ef5b548575efffe272b7363a2f5050ebd7e2d.tar.gz | |
more MULTIPLICITY tweaks
p4raw-id: //depot/perl@1206
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 37 |
1 files changed, 25 insertions, 12 deletions
@@ -1780,7 +1780,7 @@ STATIC void init_interp(void) { -#if 0 +#ifdef PERL_OBJECT /* XXX kludge */ #define I_REINIT \ STMT_START { \ chopset = " \n-"; \ @@ -1812,19 +1812,32 @@ init_interp(void) rsfp = Nullfp; \ rsfp_filters= Nullav; \ } STMT_END +#else +# ifdef MULTIPLICITY +# define PERLVAR(var,type) +# define PERLVARI(var,type,init) curinterp->var = init; +# define PERLVARIC(var,type,init) curinterp->var = init; +# include "intrpvar.h" +# ifndef USE_THREADS +# include "thrdvar.h" +# endif +# undef PERLVAR +# undef PERLVARI +# undef PERLVARIC +# else +# define PERLVAR(var,type) +# define PERLVARI(var,type,init) var = init; +# define PERLVARIC(var,type,init) var = init; +# include "intrpvar.h" +# ifndef USE_THREADS +# include "thrdvar.h" +# endif +# undef PERLVAR +# undef PERLVARI +# undef PERLVARIC +# endif #endif -#define PERLVAR(var,type) -#define PERLVARI(var,type,init) curinterp->var = init; -#define PERLVARIC(var,type,init) curinterp->var = init; -#include "intrpvar.h" -#ifndef USE_THREADS -# include "thrdvar.h" -#endif -#undef PERLVAR -#undef PERLVARI -#undef PERLVARIC - } STATIC void |