diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-22 03:13:19 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-22 03:13:19 +0000 |
commit | 9f699bd937481e601436dfa5b4c405c05ed9188f (patch) | |
tree | cc99dfd60fb1e04daa2ce578402bc888df2005a0 | |
parent | 4b556e6ce00fc77d7d2644507d0f76c5004f26de (diff) | |
download | perl-9f699bd937481e601436dfa5b4c405c05ed9188f.tar.gz |
[win32] intern -> sys_intern
p4raw-id: //depot/win32/perl@895
-rw-r--r-- | embedvar.h | 6 | ||||
-rw-r--r-- | interp.sym | 2 | ||||
-rw-r--r-- | intrpvar.h | 2 | ||||
-rw-r--r-- | win32/win32.h | 12 |
4 files changed, 11 insertions, 11 deletions
diff --git a/embedvar.h b/embedvar.h index d6c33497a3..11ccca23af 100644 --- a/embedvar.h +++ b/embedvar.h @@ -127,7 +127,7 @@ #define incgv (curinterp->Iincgv) #define initav (curinterp->Iinitav) #define inplace (curinterp->Iinplace) -#define intern (curinterp->Iintern) +#define sys_intern (curinterp->Isys_intern) #define lastfd (curinterp->Ilastfd) #define lastscream (curinterp->Ilastscream) #define lastsize (curinterp->Ilastsize) @@ -247,7 +247,7 @@ #define Iincgv incgv #define Iinitav initav #define Iinplace inplace -#define Iintern intern +#define Isys_intern sys_intern #define Ilastfd lastfd #define Ilastscream lastscream #define Ilastsize lastsize @@ -428,7 +428,7 @@ #define incgv Perl_incgv #define initav Perl_initav #define inplace Perl_inplace -#define intern Perl_intern +#define sys_intern Perl_sys_intern #define lastfd Perl_lastfd #define lastscream Perl_lastscream #define lastsize Perl_lastsize diff --git a/interp.sym b/interp.sym index fba6ba78bd..ce9ca778f0 100644 --- a/interp.sym +++ b/interp.sym @@ -58,7 +58,7 @@ in_eval incgv initav inplace -intern +sys_intern last_in_gv lastfd lastscream diff --git a/intrpvar.h b/intrpvar.h index 7c5ba7602c..c1a7b36ff3 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -158,7 +158,7 @@ PERLVARI(Iexitlistlen, I32, 0) /* length of same */ PERLVAR(Imodglobal, HV *) /* per-interp module data */ #ifdef HAVE_INTERP_INTERN -PERLVAR(Iintern, struct interp_intern) /* platform internals */ +PERLVAR(Isys_intern, struct interp_intern) /* platform internals */ #endif #ifdef USE_THREADS diff --git a/win32/win32.h b/win32/win32.h index 9990caf7eb..d2ac9b9a5d 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -230,14 +230,14 @@ struct interp_intern { #endif }; -#define w32_perlshell_tokens (intern.w32_perlshell_tokens) -#define w32_perlshell_vec (intern.w32_perlshell_vec) -#define w32_perlshell_items (intern.w32_perlshell_items) -#define w32_fdpid (intern.w32_fdpid) +#define w32_perlshell_tokens (sys_intern.w32_perlshell_tokens) +#define w32_perlshell_vec (sys_intern.w32_perlshell_vec) +#define w32_perlshell_items (sys_intern.w32_perlshell_items) +#define w32_fdpid (sys_intern.w32_fdpid) #ifndef USE_RTL_WAIT -# define w32_num_children (intern.w32_num_children) -# define w32_child_pids (intern.w32_child_pids) +# define w32_num_children (sys_intern.w32_num_children) +# define w32_child_pids (sys_intern.w32_child_pids) #endif /* |