diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
| commit | 6b88bc9c1f6d4b32c70e7ef68f8c65266e431623 (patch) | |
| tree | fe4f20be7c31cd96c8757067c3aefe35ea971694 /cc_runtime.h | |
| parent | 045c1f128ac729dc76c4da7e8ffe34bf12692b94 (diff) | |
| download | perl-6b88bc9c1f6d4b32c70e7ef68f8c65266e431623.tar.gz | |
complete s/foo/PL_foo/ changes (all escaped cases identified with
brute force search script). Result builds and passes all tests on
Solaris. win32 and PERL_OBJECT are still untested.
p4raw-id: //depot/perl@1578
Diffstat (limited to 'cc_runtime.h')
| -rw-r--r-- | cc_runtime.h | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/cc_runtime.h b/cc_runtime.h index fe830c0bde..18e3ba2c08 100644 --- a/cc_runtime.h +++ b/cc_runtime.h @@ -1,4 +1,4 @@ -#define DOOP(ppname) PUTBACK; op = ppname(ARGS); SPAGAIN +#define DOOP(ppname) PUTBACK; PL_op = ppname(ARGS); SPAGAIN #define PP_LIST(g) do { \ dMARK; \ @@ -6,13 +6,13 @@ if (++MARK <= SP) \ *MARK = *SP; \ else \ - *MARK = &sv_undef; \ + *MARK = &PL_sv_undef; \ SP = MARK; \ } \ } while (0) #define MAYBE_TAINT_SASSIGN_SRC(sv) \ - if (tainting && tainted && (!SvGMAGICAL(left) || !SvSMAGICAL(left) || \ + if (PL_tainting && PL_tainted && (!SvGMAGICAL(left) || !SvSMAGICAL(left) || \ !((mg=mg_find(left, 't')) && mg->mg_len & 1)))\ TAINT_NOT @@ -28,9 +28,9 @@ #define PP_UNSTACK do { \ TAINT_NOT; \ - stack_sp = stack_base + cxstack[cxstack_ix].blk_oldsp; \ + PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; \ FREETMPS; \ - oldsave = scopestack[scopestack_ix - 1]; \ + oldsave = PL_scopestack[PL_scopestack_ix - 1]; \ LEAVE_SCOPE(oldsave); \ SPAGAIN; \ } while(0) @@ -43,19 +43,19 @@ JMPENV_PUSH(ret); \ switch (ret) { \ case 0: \ - op = ppaddr(ARGS); \ - retstack[retstack_ix - 1] = Nullop; \ - if (op != nxt) runops(); \ + PL_op = ppaddr(ARGS); \ + PL_retstack[PL_retstack_ix - 1] = Nullop; \ + if (PL_op != nxt) runops(); \ JMPENV_POP; \ break; \ case 1: JMPENV_POP; JMPENV_JUMP(1); \ case 2: JMPENV_POP; JMPENV_JUMP(2); \ case 3: \ JMPENV_POP; \ - if (restartop != nxt) \ + if (PL_restartop != nxt) \ JMPENV_JUMP(3); \ } \ - op = nxt; \ + PL_op = nxt; \ SPAGAIN; \ } while (0) |