diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-30 20:00:19 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-30 20:00:19 +0000 |
| commit | d4cce5f1785350c29a181d4bbaaa3141c6fdbe1e (patch) | |
| tree | 31d1c1ad53b77dd43bd3cc61ebf29d225e620e94 /perlvars.h | |
| parent | 49f531dad558d800dbb0a247178a2e50ad834fae (diff) | |
| download | perl-d4cce5f1785350c29a181d4bbaaa3141c6fdbe1e.tar.gz | |
embed.pl now reads *var*.h to do its stuff.
Split generated embed.h into two - new embedvar.h
is #included when 'op' etc. will not mess up proto.h etc.
Removed #define foo (thr->Tfoo) from thread.h
Added some 'missing' symbols to global.sym, removed
those in the *var*.h files
Has build all MULTIPLICITY/USE_THREADS options on win32
with VC++ (and passed tests), but not with exactly this set
of files.
p4raw-id: //depot/ansiperl@338
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/perlvars.h b/perlvars.h index 97b199f5b3..e41423eb5b 100644 --- a/perlvars.h +++ b/perlvars.h @@ -53,6 +53,9 @@ PERLVAR(he_root, HE *) /* free he list--shared by interpreters */ PERLVAR(nice_chunk, char *) /* a nice chunk of memory to reuse */ PERLVAR(nice_chunk_size, U32) /* how nice the chunk of memory is */ +PERLVARI(runops, runops_proc_t *, RUNOPS_DEFAULT) + +#ifndef USE_THREADS /* Stack for currently executing thread--context switch must handle this. */ PERLVAR(stack_base, SV **) /* stack->array_ary */ PERLVAR(stack_sp, SV **) /* stack pointer now */ @@ -65,7 +68,7 @@ PERLVAR(opsave, OP *) /* save current op register across longjmps */ #else PERLVAR(op, OP *) /* current op--when not in a global register */ #endif -PERLVARI(runops, runops_proc_t *, RUNOPS_DEFAULT) + PERLVAR(scopestack, I32 *) /* blocks we've entered */ PERLVAR(scopestack_ix, I32) PERLVAR(scopestack_max, I32) @@ -82,16 +85,22 @@ PERLVAR(markstack, I32 *) /* stackmarks we're remembering */ PERLVAR(markstack_ptr, I32 *) /* stackmarks we're remembering */ PERLVAR(markstack_max, I32 *) /* stackmarks we're remembering */ + + PERLVAR(curpad, SV **) /* temp space */ PERLVAR(Sv, SV *) PERLVAR(Xpv, XPV *) -PERLVAR(tokenbuf[256], char) + PERLVAR(statbuf, struct stat) #ifdef HAS_TIMES PERLVAR(timesbuf, struct tms) #endif + +#endif /* USE_THREADS */ + +PERLVAR(tokenbuf[256], char) #if defined(WIN32) && defined(__GNUC__) PERLVAR(na, static STRLEN) #else @@ -197,10 +206,3 @@ PERLVARI(numeric_local, bool, TRUE) /* Assume local numerics */ #endif /* !USE_LOCALE_NUMERIC */ -#ifndef MULTIPLICITY -#define IEXT EXT -#define IINIT(x) INIT(x) -#include "intrpvar.h" -#undef IEXT -#undef IINIT -#endif
\ No newline at end of file |