diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-08-11 15:46:29 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-08-11 15:46:29 +0000 |
| commit | 0f15f207c55ce70f46ebbd3be6c3d54763665084 (patch) | |
| tree | d4cbbe278d8bb662e537d2b219246ee872cb20e6 /pp_hot.c | |
| parent | 12ca11f6c16e7b63e13bbf5bc251f214e8de5211 (diff) | |
| download | perl-0f15f207c55ce70f46ebbd3be6c3d54763665084.tar.gz | |
Assorted changes for multi-threading (now works rather more).
p4raw-id: //depot/perl@44
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -2125,6 +2125,8 @@ PP(pp_entersub) AV* av; SV** ary; + DEBUG_L(PerlIO_printf(PerlIO_stderr(), + "%p entersub preparing @_\n", thr)); av = (AV*)curpad[0]; if (AvREAL(av)) { av_clear(av); @@ -2159,6 +2161,8 @@ PP(pp_entersub) MARK++; } } + DEBUG_L(PerlIO_printf(PerlIO_stderr(), + "%p entersub returning %p\n", thr, CvSTART(cv))); RETURNOP(CvSTART(cv)); } } |