bless {
type => $type,
flags => VALID_SV | $extra_flags,
- sv => "curpad[$ix]",
+ sv => "PL_curpad[$ix]",
iv => "$iname",
nv => "$dname"
}, $class;
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;
}
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