|
Lines 647-653
Link Here
|
| 647 |
return $sym if defined $sym; |
647 |
return $sym if defined $sym; |
| 648 |
my $val= $sv->NVX; |
648 |
my $val= $sv->NVX; |
| 649 |
$val .= '.00' if $val =~ /^-?\d+$/; |
649 |
$val .= '.00' if $val =~ /^-?\d+$/; |
| 650 |
$xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->IVX, $val)); |
650 |
$xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->NVX, $val)); |
| 651 |
$svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x", |
651 |
$svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x", |
| 652 |
$xpvnvsect->index, $sv->REFCNT , $sv->FLAGS)); |
652 |
$xpvnvsect->index, $sv->REFCNT , $sv->FLAGS)); |
| 653 |
return savesym($sv, sprintf("&sv_list[%d]", $svsect->index)); |
653 |
return savesym($sv, sprintf("&sv_list[%d]", $svsect->index)); |
