diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-08-27 15:16:42 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-27 15:16:42 +0000 |
| commit | 4d1ff10ffec86208b0da135b87c76b89e61c866e (patch) | |
| tree | 741ba054917367001dce29e674a1e99c8fa229d3 /scope.c | |
| parent | eb9ee3dc93112029ee3de6fd047d54576a1f1a1f (diff) | |
| download | perl-4d1ff10ffec86208b0da135b87c76b89e61c866e.tar.gz | |
Changes USE_THREADS to USE_5005THREADS in the entire source.
Thanks to H. Merijn Brand for the patch.
Some of the comments and or guards might be removable in perl.h now.
p4raw-id: //depot/perl@11758
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -50,7 +50,7 @@ Perl_vdefault_protect(pTHX_ volatile JMPENV *pcur_env, int *excpt, SV** Perl_stack_grow(pTHX_ SV **sp, SV **p, int n) { -#if defined(DEBUGGING) && !defined(USE_THREADS) +#if defined(DEBUGGING) && !defined(USE_5005THREADS) static int growing = 0; if (growing++) abort(); @@ -61,7 +61,7 @@ Perl_stack_grow(pTHX_ SV **sp, SV **p, int n) #else av_extend(PL_curstack, (p - PL_stack_base) + (n) + 1); #endif -#if defined(DEBUGGING) && !defined(USE_THREADS) +#if defined(DEBUGGING) && !defined(USE_5005THREADS) growing--; #endif return PL_stack_sp; @@ -458,7 +458,7 @@ Perl_save_padsv(pTHX_ PADOFFSET off) SV ** Perl_save_threadsv(pTHX_ PADOFFSET i) { -#ifdef USE_THREADS +#ifdef USE_5005THREADS SV **svp = &THREADSV(i); /* XXX Change to save by offset */ DEBUG_S(PerlIO_printf(Perl_debug_log, "save_threadsv %"UVuf": %p %p:%s\n", (UV)i, svp, *svp, SvPEEK(*svp))); @@ -467,7 +467,7 @@ Perl_save_threadsv(pTHX_ PADOFFSET i) #else Perl_croak(aTHX_ "panic: save_threadsv called in non-threaded perl"); return 0; -#endif /* USE_THREADS */ +#endif /* USE_5005THREADS */ } void |