File Coverage

blib/lib/CPU/x86_64/InstructionWriter/RipRelative.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	5	10	50.0
condition	2	7	28.5
subroutine	8	9	88.8
pod	1	5	20.0
total	39	59	66.1

package CPU::x86_64::InstructionWriter::RipRelative;
our $VERSION = '0.005'; # VERSION
use strict;
use warnings;
use Carp;
use Scalar::Util 'weaken';

# ABSTRACT: Object representing an offset to a label


sub instruction { weaken($_[0]{instruction}= $_[1]) if @_ > 1; $_[0]{instruction} }
sub target { @_ > 1 && carp "Read-only"; $_[0]{target} }
sub name  { 'rip-to-' . $_[0]{target}->name }
sub value {
	my $self= shift;
	if (($self->instruction->relative_to||0) == ($self->target->relative_to||0)) {
		my $rip_ofs= $self->instruction->offset + $self->instruction->len;
		my $label_ofs= $self->target->offset;
		return defined $label_ofs? $label_ofs - $rip_ofs : undef;
	} else {
		my $start= $self->instruction->relative_to->value;
		my $ofs= $self->instruction->offset + $self->instruction->len;
		my $label_val= $self->target->value;
		return !(defined $start && defined $label_val)? undef
			: $label_val - ($start + $ofs);
	}
}

sub clone_into_writer {
	my ($self, $writer, $offset, $label_map)= @_;
	bless {
		instruction => $self->instruction,
		target      => $label_map->{$self->target}
	}, ref $self;
}

1;

__END__