whytofly
/
qt6-bb10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

findclasslist.pl: print the line number of where the occurrence came 

Makes debugging easier.

Pick-to: 6.4
Change-Id: Ic6547f8247454b47baa8fffd170ea7f7d84b990f
Reviewed-by: Alexey Edelev <alexey.edelev@qt.io>
Reviewed-by: Jörg Bornemann <joerg.bornemann@qt.io>
bb10
Thiago Macieira 2022-08-25 14:52:56 -03:00
parent ee3894946a
commit a6050125a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mkspecs/features/data/unix/findclasslist.pl
View File

@ -22,8 +22,8 @@ while (<STDIN>) {
}
# Replace this line with the class list
my $fname = $1;
open HDR, "<$1" or die("Could not open header $1: $!");
my $comment = " /* $1 */";
while (my $line = <HDR>) {
if ($line =~ /\bELFVERSION:(\S+)\b/) {
last if $1 eq "stop";
@ -39,8 +39,8 @@ while (<STDIN>) {
my $sym = ($1 =~ s/:$//r); # remove trailing :
my @sym = split /::/, $sym;
@sym = map { sprintf "%d%s", length $_, $_; } @sym;
printf " *%s*;\n", join("", @sym);
$comment = 0;
$sym = sprintf " *%s*;", join("", @sym);
printf "%-55s # %s:%d\n", $sym, $fname, $.;
}
close HDR;
}