diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-13 12:40:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-13 12:40:24 +0000 |
| commit | 5c3c3f81c4e0c229b48dd3a3b920635017d32c46 (patch) | |
| tree | 390e26b80af46139114cf98e389c2bfa2bd678fe /bytecode.pl | |
| parent | 8fbc55279aa56e88684b31864922ee4cfa976b1a (diff) | |
| download | perl-5c3c3f81c4e0c229b48dd3a3b920635017d32c46.tar.gz | |
Fix B and ByteLoader to cope with cop_warnings no longer being an SV.
p4raw-id: //depot/perl@27786
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bytecode.pl b/bytecode.pl index 11e148cda7..f0763ddf83 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -14,7 +14,8 @@ my @optype= qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP); # Nullsv *must* come first in the following so that the condition # ($$sv == 0) can continue to be used to test (sv == Nullsv). -my @specialsv = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no pWARN_ALL pWARN_NONE); +my @specialsv = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no + (SV*)pWARN_ALL (SV*)pWARN_NONE (SV*)pWARN_STD); my (%alias_from, $from, $tos); while (($from, $tos) = each %alias_to) { @@ -496,7 +497,7 @@ cop_seq cCOP->cop_seq U32 cop_arybase cCOP I32 x cop_line cCOP->cop_line line_t cop_io cCOP->cop_io svindex -cop_warnings cCOP->cop_warnings svindex +cop_warnings cCOP svindex x main_start PL_main_start opindex main_root PL_main_root opindex main_cv *(SV**)&PL_main_cv svindex |