Avoid hard-coding op numbers

[p5sagit/p5-mst-13.2.git] / ext / B / B / Stackobj.pm

diff --git a/ext/B/B/Stackobj.pm b/ext/B/B/Stackobj.pm
index 8be047f..eea966c 100644 (file)
--- a/ext/B/B/Stackobj.pm
+++ b/ext/B/B/Stackobj.pm
@@ -165,7 +165,7 @@ sub B::Stackobj::Padsv::new {
     bless {
        type => $type,
        flags => VALID_SV | $extra_flags,
-       sv => "curpad[$ix]",
+       sv => "PL_curpad[$ix]",
        iv => "$iname",
        nv => "$dname"
     }, $class;
@@ -270,7 +270,7 @@ sub B::Stackobj::Bool::new {
 sub B::Stackobj::Bool::write_back {
     my $obj = shift;
     return if $obj->{flags} & VALID_SV;
-    $obj->{sv} = "($obj->{iv} ? &sv_yes : &sv_no)";
+    $obj->{sv} = "($obj->{iv} ? &PL_sv_yes : &PL_sv_no)";
     $obj->{flags} |= VALID_SV;
 }
 
@@ -279,3 +279,23 @@ sub B::Stackobj::Bool::write_back {
 sub B::Stackobj::Bool::invalidate {}
 
 1;
+
+__END__
+
+=head1 NAME
+
+B::Stackobj - Helper module for CC backend
+
+=head1 SYNOPSIS
+
+       use B::Stackobj;
+
+=head1 DESCRIPTION
+
+See F<ext/B/README>.
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+
+=cut