diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-25 01:50:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-25 01:50:04 +0000 |
| commit | 9386585123187f184f4e811ad35f84c5d3ddd94c (patch) | |
| tree | fd6df2360ea40015e3e991fb593cc00983fb9b31 /ext/B/B.xs | |
| parent | 6cfc1a96168519111ea6537cefb1f04bfe06b5b1 (diff) | |
| download | perl-9386585123187f184f4e811ad35f84c5d3ddd94c.tar.gz | |
more Compiler tweaks for useithreads
p4raw-id: //depot/perl@5250
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index d0ee8e463a..9e2985582a 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -163,8 +163,11 @@ cc_opclass(pTHX_ OP *o) * an SVOP (and op_sv is the GV for the filehandle argument). */ return ((o->op_flags & OPf_KIDS) ? OPc_UNOP : +#ifdef USE_ITHREADS + (o->op_flags & OPf_REF) ? OPc_PADOP : OPc_BASEOP); +#else (o->op_flags & OPf_REF) ? OPc_SVOP : OPc_BASEOP); - +#endif case OA_LOOPEXOP: /* * next, last, redo, dump and goto use OPf_SPECIAL to indicate that a |