mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2025-02-27 20:54:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add copyright.

Browse Source 
Output tabs, not spaces.
This commit is contained in:
Pavel Roskin 2003-10-15 16:56:26 +00:00
parent dffb87e481
commit 6f5feb27cd
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
maint/unrefglobals.pl
View File

@ -1,9 +1,14 @@
#!/usr/bin/perl
# Copyright (c) 2003, Pavel Roskin
# This script is Free Software, and it can be copied, distributed and
# modified as defined in the GNU General Public License. A copy of
# its license can be downloaded from http://www.gnu.org/copyleft/gpl.html
# Run this script on the map with cross-reference generated by GNU ld,
# and it will generate a list of symbols that don't need to be global.
# To create the map, run something like this:
# make LDFLAGS=-Wl,-Map,mc.map,--cref
# make LDFLAGS=-Wl,-Map,output.map,--cref
use strict;
@ -42,6 +47,6 @@ close(MAP);
foreach my $obj (sort keys %objs) {
print "$obj\n";
foreach my $sym (sort keys %syms) {
print " $sym\n" if ($symbols{$sym} eq $obj);
print "\t$sym\n" if ($symbols{$sym} eq $obj);
}
}