File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/B/C/OverLoad/B/PVIV.pm
Back
package # do not index it B::PVIV; use B::C::Std; use B::C::File qw/xpvivsect svsect/; use B::C::Decimal qw/get_integer_value/; use B::C::Optimizer::DowngradePVXV qw/downgrade_pviv/; sub do_save ( $sv, $fullname = undef ) { my $downgraded = downgrade_pviv( $sv, $fullname ); return $downgraded if defined $downgraded; my ( $ix, $sym ) = svsect()->reserve($sv); svsect()->debug( $fullname, $sv ); # save the PVIV my ( $savesym, $cur, $len, $pv, $flags ) = $sv->save_svu( $sym, $fullname ); my $xpv_sym = 'NULL'; if ( $sv->HAS_ANY ) { xpvivsect()->comment('STASH, MAGIC, cur, len, IVX'); my $xpv_ix = xpvivsect()->sadd( "Nullhv, {0}, %u, {%u}, {%s}", $cur, $len, get_integer_value( $sv->IVX ) ); # IVTYPE long $xpv_sym = sprintf( "&xpviv_list[%d]", $xpv_ix ); } # save the pv svsect()->supdate( $ix, "%s, %u, 0x%x, {%s}", $xpv_sym, $sv->REFCNT, $flags, $savesym ); return $sym; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.03 |
proxy
|
phpinfo
|
Settings