FDT.pm: add helper to get untranslated reg

In some cases, we'll want to parse a reg property that cannot be
translated, e.g. for cpu nodes. Add a helper to extract the reg without
attempting translation, factoring this logic out of
Node::get_translated_reg().

Signed-off-by: Mark Rutland <mark.rutland@arm.com>

1 files changed, 13 insertions, 2 deletions

diff --git a/FDT.pm b/FDT.pm
index b814ef8..f498f09 100755
--- a/FDT.pm
+++ b/FDT.pm
@@ -348,7 +348,7 @@ sub translate_address
 	return undef;
 }
 
-sub get_translated_reg
+sub get_untranslated_reg
 {
 	my $self = shift;
 	my $idx = shift;
@@ -361,7 +361,18 @@ sub get_translated_reg
 
 	return undef if ($off + $ac + $sc > $reg->num_cells());
 
-	my ($addr, $size) = $reg->read_cell_list($off, [$ac, $sc]);
+	return $reg->read_cell_list($off, [$ac, $sc]);
+}
+
+sub get_translated_reg
+{
+	my $self = shift;
+	my $idx = shift;
+	my $parent = $self->{parent};
+
+	my ($addr, $size) = $self->get_untranslated_reg($idx);
+
+	return undef if (not defined($addr) && defined($size));
 
 	for (my $parent = $self->{parent}; $parent; $parent = $parent->{parent}) {
 		last if (not defined($addr));