diff options
author | landley <landley@69ca8d6d-28ef-0310-b511-8ec308f3f277> | 2006-06-02 21:30:40 +0000 |
---|---|---|
committer | landley <landley@69ca8d6d-28ef-0310-b511-8ec308f3f277> | 2006-06-02 21:30:40 +0000 |
commit | e1bbdd96eb64e5608682fac700d30b48f18aea2f (patch) | |
tree | c20740d23f992dc5604f431106011c1579b9c4cc | |
parent | 96d9a06694110826a348a616abc536765a86d4fd (diff) | |
download | busybox-w32-e1bbdd96eb64e5608682fac700d30b48f18aea2f.tar.gz busybox-w32-e1bbdd96eb64e5608682fac700d30b48f18aea2f.tar.bz2 busybox-w32-e1bbdd96eb64e5608682fac700d30b48f18aea2f.zip |
Patch from Atsushi Nemoto:
This patch make depmod.pl more robust in cross environment. If native
nm did not recognize target's object, you can override it with NM
environment variable.
git-svn-id: svn://busybox.net/trunk/busybox@15268 69ca8d6d-28ef-0310-b511-8ec308f3f277
-rwxr-xr-x | examples/depmod.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/depmod.pl b/examples/depmod.pl index 0e66ee3eb..19eca80eb 100755 --- a/examples/depmod.pl +++ b/examples/depmod.pl | |||
@@ -25,6 +25,7 @@ my $kernelsyms=""; | |||
25 | my $stdout=0; | 25 | my $stdout=0; |
26 | my $verbose=0; | 26 | my $verbose=0; |
27 | my $help=0; | 27 | my $help=0; |
28 | my $nm = $ENV{'NM'} || "nm"; | ||
28 | 29 | ||
29 | # more globals | 30 | # more globals |
30 | my (@liblist) = (); | 31 | my (@liblist) = (); |
@@ -104,7 +105,7 @@ foreach my $obj ( @liblist ){ | |||
104 | warn "\nMODULE = $tgtname\n" if $verbose; | 105 | warn "\nMODULE = $tgtname\n" if $verbose; |
105 | 106 | ||
106 | # get a list of symbols | 107 | # get a list of symbols |
107 | my @output=`nm $obj`; | 108 | my @output=`$nm $obj`; |
108 | 109 | ||
109 | build_ref_tables($tgtname, \@output, $exp, $dep); | 110 | build_ref_tables($tgtname, \@output, $exp, $dep); |
110 | } | 111 | } |
@@ -112,7 +113,7 @@ foreach my $obj ( @liblist ){ | |||
112 | 113 | ||
113 | # vmlinux is a special name that is only used to resolve symbols | 114 | # vmlinux is a special name that is only used to resolve symbols |
114 | my $tgtname = 'vmlinux'; | 115 | my $tgtname = 'vmlinux'; |
115 | my @output = $kernelsyms ? `cat $kernelsyms` : `nm $kernel`; | 116 | my @output = $kernelsyms ? `cat $kernelsyms` : `$nm $kernel`; |
116 | warn "\nMODULE = $tgtname\n" if $verbose; | 117 | warn "\nMODULE = $tgtname\n" if $verbose; |
117 | build_ref_tables($tgtname, \@output, $exp, $dep); | 118 | build_ref_tables($tgtname, \@output, $exp, $dep); |
118 | 119 | ||