diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
| commit | 22c35a8c2392967a5ba6b5370695be464bd7012c (patch) | |
| tree | 8ecdc4d8fa4a4e49d2b6df0d82103a508cd03053 /embedvar.h | |
| parent | 854e6445c2d6190b7a3d3208d8ff1250a817e551 (diff) | |
| download | perl-22c35a8c2392967a5ba6b5370695be464bd7012c.tar.gz | |
phase 1 of somewhat major rearrangement of PERL_OBJECT stuff
(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32
p4raw-id: //depot/perl@2133
Diffstat (limited to 'embedvar.h')
| -rw-r--r-- | embedvar.h | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/embedvar.h b/embedvar.h index 67761b1a0b..a0bbea08f8 100644 --- a/embedvar.h +++ b/embedvar.h @@ -1,18 +1,10 @@ /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - This file is built by embed.pl from global.sym, intrpvar.h, + This file is built by embed.pl from global.sym, pp.sym, intrpvar.h, and thrdvar.h. Any changes made here will be lost! */ /* (Doing namespace management portably in C is really gross.) */ -/* EMBED has no run-time penalty, but helps keep the Perl namespace - from colliding with that used by other libraries pulled in - by extensions or by embedding perl. Allow a cc -DNO_EMBED - override, however, to keep binary compatability with previous - versions of perl. -*/ - - /* Put interpreter-specific symbols into a struct? */ #ifdef MULTIPLICITY @@ -128,6 +120,8 @@ #define PL_tmps_stack (PL_curinterp->Ttmps_stack) #define PL_top_env (PL_curinterp->Ttop_env) #define PL_toptarget (PL_curinterp->Ttoptarget) +#define PL_watchaddr (PL_curinterp->Twatchaddr) +#define PL_watchok (PL_curinterp->Twatchok) #endif /* !USE_THREADS */ @@ -511,19 +505,18 @@ #define PL_Ttmps_stack PL_tmps_stack #define PL_Ttop_env PL_top_env #define PL_Ttoptarget PL_toptarget +#define PL_Twatchaddr PL_watchaddr +#define PL_Twatchok PL_watchok #endif /* USE_THREADS */ /* Hide what would have been interpreter-specific symbols? */ -#ifdef EMBED - #ifndef USE_THREADS #endif /* USE_THREADS */ -#endif /* EMBED */ #endif /* MULTIPLICITY */ /* Now same trickey for per-thread variables */ @@ -638,6 +631,8 @@ #define PL_tmps_stack (thr->Ttmps_stack) #define PL_top_env (thr->Ttop_env) #define PL_toptarget (thr->Ttoptarget) +#define PL_watchaddr (thr->Twatchaddr) +#define PL_watchok (thr->Twatchok) #endif /* USE_THREADS */ @@ -907,10 +902,7 @@ #define PL_Gyynerrs PL_yynerrs #define PL_Gyyval PL_yyval -#ifdef EMBED - -#endif /* EMBED */ #endif /* PERL_GLOBAL_STRUCT */ |