diff options
author | Thiago Macieira <thiago.macieira@intel.com> | 2022-08-25 14:52:56 -0300 |
---|---|---|
committer | Thiago Macieira <thiago.macieira@intel.com> | 2022-09-06 13:43:10 -0300 |
commit | a6050125a700d677b786f9db0a475af9975e9fc4 (patch) | |
tree | 9e0c7264ef4a564126374122cc7ca77e20a12386 | |
parent | ee3894946a79179c1869836b9dae28ec7b3a01e5 (diff) |
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>
-rw-r--r-- | mkspecs/features/data/unix/findclasslist.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mkspecs/features/data/unix/findclasslist.pl b/mkspecs/features/data/unix/findclasslist.pl index 59ce4ab2c5..14043de846 100644 --- a/mkspecs/features/data/unix/findclasslist.pl +++ b/mkspecs/features/data/unix/findclasslist.pl @@ -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; } |