diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-01 12:24:28 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-01 12:24:28 +0000 |
commit | 462e5cf694f345fbf34a1f95e9a82957e59dcc2b (patch) | |
tree | ca9bf97cf7ce9e08168a2f31060050ca5073d42c /thread.h | |
parent | 3bc5dc61eb7997c904fe06e07f74e776f3ee17eb (diff) | |
download | perl-462e5cf694f345fbf34a1f95e9a82957e59dcc2b.tar.gz |
Support for op in global register (still buggy)
p4raw-id: //depot/perl@34
Diffstat (limited to 'thread.h')
-rw-r--r-- | thread.h | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -60,7 +60,11 @@ struct thread { SV ** Tstack_sp; SV ** Tstack_max; +#ifdef OP_IN_REGISTER + OP * Topsave; +#else OP * Top; +#endif I32 * Tscopestack; I32 Tscopestack_ix; @@ -176,7 +180,6 @@ typedef struct condpair { #undef curpad #undef Sv #undef Xpv -#undef op #undef top_env #undef runlevel #undef in_eval @@ -185,7 +188,12 @@ typedef struct condpair { #define stack_base (thr->Tstack_base) #define stack_sp (thr->Tstack_sp) #define stack_max (thr->Tstack_max) +#ifdef OP_IN_REGISTER +#define opsave (thr->Topsave) +#else +#undef op #define op (thr->Top) +#endif #define stack (thr->Tstack) #define mainstack (thr->Tmainstack) #define markstack (thr->Tmarkstack) |