summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table')
-rw-r--r--perl-install/partition_table/dos.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index a6ad4be76..3518e6738 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -20,6 +20,12 @@ my $offset = $common::SECTORSIZE - length($magic) - $nb_primary * common::psizeo
sub hasExtended { 1 }
+sub last_usable_sector {
+ my ($hd) = @_;
+ #- do not use totalsectors, see gi/docs/Partition-ends-after-end-of-disk.txt for more
+ $hd->{geom}{sectors} * $hd->{geom}{heads} * $hd->{geom}{cylinders};
+}
+
sub compute_CHS($$) {
my ($hd, $e) = @_;
my @l = qw(cyl head sec);