Browse Source

* stripping options are now viable

master
freesource 24 years ago
parent
commit
131e7afcb5
  1. 27
      Yard.pm

27
Yard.pm

@ -743,7 +743,9 @@ sub space_check {
sub create_filesystem { sub create_filesystem {
my ($filename,$fs_size,$fs_type, $inode_size, $mnt) = @_; my ($filename, $fs_size,$ fs_type, $inode_size, $mnt, $strip_lib,
$strip_bin, $strip_module, $obj_count) = @_;
my $device = "$mnt/$filename"; my $device = "$mnt/$filename";
my $mount_point = "$mnt/loopback"; my $mount_point = "$mnt/loopback";
@ -875,7 +877,8 @@ sub create_filesystem {
} }
} }
info(1, "$file -> $floppy_file\n"); info(1, "$file -> $floppy_file\n");
copy_strip_file($file, $floppy_file); copy_strip_file($file, $floppy_file, $obj_count, $strip_lib,
$strip_bin, $strip_module);
} elsif (-d $file) { } elsif (-d $file) {
##### A directory. ##### A directory.
@ -995,10 +998,6 @@ sub cf_warn {
# objcopy program exists. # objcopy program exists.
sub copy_strip_file { sub copy_strip_file {
# Obviously create_filesytem's @_ will have to be modified 4 the last 4
# check for off or on, not undef
my () = @_;
my($from, $to, $strip_objfiles, my($from, $to, $strip_objfiles,
$strip_lib, $strip_bin, $strip_module) = @_; $strip_lib, $strip_bin, $strip_module) = @_;
my $error; my $error;
@ -1006,12 +1005,18 @@ sub copy_strip_file {
if ($strip_objfiles and defined($objcopy) and $strippable{$from}) { if ($strip_objfiles and defined($objcopy) and $strippable{$from}) {
# Copy it stripped # Copy it stripped
if (defined($lib_needed_by{$from}) && $strip_lib) {
# It's a library
info(1, "Copy/stripping library $from to $to\n");
sys("$objcopy --strip-all $from $to");
} elsif (defined($is_module{$from}) && $strip_module) { if (defined($lib_needed_by{$from}) && $strip_lib) {
# It's a library
if ($strip_objfiles == 1) {
info(1, "Copy/stripping library $from to $to\n");
sys("$objcopy --strip-all $from $to");
}
elsif ($strip_objfiles == 0) {
info(1, "Copy/stripping library $from to $to\n");
sys("$objcopy --strip-debug $from $to");
}
} elsif (defined($is_module{$from}) && $strip_module) {
info(1, "Copy/stripping module $from to $to\n"); info(1, "Copy/stripping module $from to $to\n");
sys("$objcopy --strip-debug $from $to"); sys("$objcopy --strip-debug $from $to");

Loading…
Cancel
Save