File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/B/C/OverLoad/B/SVOP.pm
Back
package # do not index it B::SVOP; use B::C::Std; use B qw/SVf_ROK/; use B::C::File qw/svopsect init/; use B::C::Debug qw/debug WARN/; sub do_save ( $op, @ ) { svopsect()->comment_for_op("sv"); my ( $ix, $sym ) = svopsect()->reserve( $op, "OP*" ); svopsect()->debug( $op->name, $op ); my $svsym = 'Nullsv'; if ( $op->name eq 'aelemfast' and $op->flags & 128 ) { #OPf_SPECIAL $svsym = '&PL_sv_undef'; # pad does not need to be saved debug( sv => "SVOP->sv aelemfast pad %d\n", $op->flags ); } else { $svsym = $op->sv->save( "svop " . $op->name ); } # PL_envgv and PL_argvgv STATIC_HV: We're probably saving those wrong. unless ( $svsym =~ m/[sg]v_list|Nullsv/ ) { # PL_sv_yes, PL_sv_no, PL_sv_zero... init()->add("svop_list[$ix].op_sv = (SV*) $svsym;"); $svsym = 'NULL'; } svopsect()->supdate( $ix, "%s, (SV*) %s", $op->save_baseop, $svsym ); return $sym; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.04 |
proxy
|
phpinfo
|
Settings