FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mklog: Fix extraction of changed file name.

Browse source 
2017-07-17  Yury Gribov  <tetra2005@gmail.com>

	* mklog: Fix extraction of changed file name.

From-SVN: r250314
This commit is contained in:
Yury Gribov 2017-07-18 15:39:39 +00:00 • committed by Maxim Ostapenko
parent b267968e67
commit 883b0e467a
2 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
contrib/ChangeLog
View file

@ -1,3 +1,7 @@
2017-07-17 Yury Gribov <tetra2005@gmail.com>
* mklog: Fix extraction of changed file name.
2017-07-17 Georg-Johann Lay <avr@gjlay.de>
* gcc_update (files_and_dependencies)

18
contrib/mklog
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# Copyright (C) 2012-2014 Free Software Foundation, Inc.
# Copyright (C) 2012-2017 Free Software Foundation, Inc.
#
# This file is part of GCC.
#
@ -195,8 +195,20 @@ foreach (@diff_lines) {
} elsif($right eq '/dev/null') {
$filename = $left;
} else {
print STDERR "Error: failed to parse diff for $left and $right\n";
exit 1;
my @ldirs = split /[\/\\]/, $left;
my @rdirs = split /[\/\\]/, $right;
$filename = '';
while ((my $l = pop @ldirs) && (my $r = pop @rdirs)) {
last if ($l ne $r);
$filename = "$l/$filename";
}
$filename =~ s/\/$//;
if (!$filename) {
print STDERR "Error: failed to parse diff for $left and $right\n";
exit 1;
}
}
$left = $right = undef;
($clname, $relname) = get_clname ($filename);