bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00
Code Issues Projects Releases Wiki Activity

* stripping options are now viable

Browse Source
This commit is contained in:
freesource 2000-12-19 21:38:33 +00:00
parent ea867c95bb
commit 131e7afcb5
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
Yard.pm
View File

@ -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");