X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=git-debrebase;h=c8ee5e549b2acafc0794db85561dd7c66c40583f;hp=8ddf18dacf295670ba07270bfd5f2987d47c26f9;hb=cb5a33d8508c3b83a2bb776e567d8cd2d1a6e50d;hpb=cd7d350f25a111bec0843ff4cb60507ee92e4677

diff --git a/git-debrebase b/git-debrebase
index 8ddf18da..c8ee5e54 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -263,11 +263,15 @@ sub read_tree_debian ($) {
     rm_subdir_cached 'debian/patches';
 }
 
-sub read_tree_upstream ($;$) {
-    my ($treeish, $keep_patches) = @_;
-    my $save = cmdoutput @git, qw(write-tree --prefix=debian/);
+sub read_tree_upstream ($;$$) {
+    my ($treeish, $keep_patches, $tree_with_debian) = @_;
+    # if $tree_with_debian is supplied, will use that for debian/
+    # otherwise will save and restore it.
+    my $debian =
+	$tree_with_debian ? "$tree_with_debian:debian"
+	: cmdoutput @git, qw(write-tree --prefix=debian/);
     runcmd @git, qw(read-tree), $treeish;
-    read_tree_subdir 'debian', $save;
+    read_tree_subdir 'debian', $debian;
     rm_subdir_cached 'debian/patches' unless $keep_patches;
 };
 
@@ -518,7 +522,7 @@ sub merge_series ($$;@) {
 	foreach my $c (grep /./, split /\n/, cmdoutput @lcmd) {
 	    my $commit = git_cat_file $c, 'commit';
 	    printdebug "merge_series series ok, building $c\n";
-	    read_tree_upstream $c;
+	    read_tree_upstream $c, 0, $newbase;
 	    my $tree = cmdoutput @git, qw(write-tree);
 	    $commit =~ s{^parent (\S+)$}{parent $build}m or confess;
 	    $commit =~ s{^tree (\S+)$}{tree $tree}m      or confess;
@@ -529,6 +533,13 @@ sub merge_series ($$;@) {
 	}
 	$result = $build;
 	runcmd @git, qw(update-ref refs/heads/result), $result;
+
+	runcmd @git, qw(checkout -q -b debug);
+	runcmd @git, qw(commit --allow-empty -q -m M-INDEX);
+	runcmd @git, qw(add .);
+	runcmd @git, qw(commit --allow-empty -q -m M-WORKTREE);
+	printdebug sprintf "merge_series done debug=%s\n",
+	    git_rev_parse 'HEAD';
     };
     printdebug "merge_series returns $result\n";
     return $result;
@@ -810,6 +821,21 @@ sub classify ($) {
     return $classify->("VanillaMerge");
 }
 
+sub keycommits ($;$$$$$);
+
+sub mergedbreakwaters_anchor ($) {
+    my ($cl) = @_;
+    my $best_anchor;
+    foreach my $p (@{ $cl->{Parents} }) {
+	my ($panchor, $pbw) = keycommits $p->{CommitId},
+	    undef,undef,undef,undef, 1;
+	$best_anchor = $panchor
+	    if !defined $best_anchor
+	    or is_fast_fwd $best_anchor, $panchor;
+    }
+    return $best_anchor;
+}
+
 sub keycommits ($;$$$$$) {
     my ($head, $furniture, $unclean, $trouble, $fatal, $claimed_bw) = @_;
     # => ($anchor, $breakwater)
@@ -901,6 +927,8 @@ sub keycommits ($;$$$$$) {
 	    $x->($trouble, 'vanillamerge',
 		 "found vanilla merge"," ($head)");
 	    return (undef,undef);
+	} elsif ($ty eq 'MergedBreakwaters') {
+	    $found_anchor->(mergedbreakwaters_anchor $cl);
 	} else {
 	    $x->($fatal, 'unprocessable',
 		 "found unprocessable commit, cannot cope: $cl->{Why}",
@@ -1248,6 +1276,11 @@ sub walk ($;$$$) {
 
     my $rewriting = 0;
 
+    my $read_tree_upstream = sub {
+	my ($treeish) = @_;
+	read_tree_upstream $treeish, 0, $build;
+    };
+
     $#upp_cl = $upp_limit if defined $upp_limit;
  
     my $committer_authline = calculate_committer_authline();
@@ -1275,7 +1308,7 @@ sub walk ($;$$$) {
 	    if ($method eq 'Debian') {
 		read_tree_debian($cltree);
 	    } elsif ($method eq 'Upstream') {
-		read_tree_upstream($cltree);
+		$read_tree_upstream->($cltree);
 	    } elsif ($method eq 'StartRewrite') {
 		$rewriting = 1;
 		next;
@@ -1288,13 +1321,13 @@ sub walk ($;$$$) {
  		confess unless $rewriting;
 		my $differs = (get_differs $build, $cltree);
 		next unless $differs & D_UPS;
-		read_tree_upstream($cltree);
+		$read_tree_upstream->($cltree);
 		push @parents, map { $_->{CommitId} } @{ $cl->{OrigParents} };
 	    } elsif ($method eq 'MergeCreateMergedBreakwaters') {
 		print "Found a general merge, will try to tidy it up.\n";
 		$rewriting = 1;
-		read_tree_upstream($cl->{MergeBestAnchor});
-		read_tree_upstream($cl->{MergeBestAnchor});
+		$read_tree_upstream->($cl->{MergeBestAnchor});
+		$read_tree_upstream->($cl->{MergeBestAnchor});
 		read_tree_debian($cltree);
 		@parents = map { $_->{Breakwater} } @{ $cl->{Parents} };
 	    } elsif ($method eq 'MergeMergeSeries') {
@@ -1304,16 +1337,29 @@ sub walk ($;$$$) {
 		    $cl->{MergeInterchangeBaseInfo},
 		    @{ $cl->{Parents} };
 		$last_anchor = $cl->{MergeBestAnchor};
-		my $check_differs = get_differs $build, $cl->{CommitId};
+
+		# Check for mismerges:
+		my $check = sub {
+		    my ($against, $allow, $what) = @_;
+		    my $differs = get_differs $build, $against;
+		    $nomerge->(sprintf
+       "merge misresolved: %s are not the same (%s %s d.%#x)",
+			       $what, $against, $build, $differs)
+			if $differs & ~($allow | D_PAT_ADD);
+		};
+
 		# Breakwater changes which were in each side of the
-		# merge should be in MergeCreateMergedBreakwaters
-		# output.  Upstream changes are exactly the result
-		# of merge_series.  So the only difference should
-		# be potential laundry results.
-		$nomerge->(sprintf
-                    "merge misresolved: tree is not the same (%s %s d.%#x)",
-			   $cl->{CommitId}, $build, $check_differs)
-		    if $check_differs & ~D_PAT_ADD;
+		# merge will have been incorporated into the
+		# MergeCreateMergedBreakwaters output.  Because the
+		# upstream series was rebased onto the new breakwater,
+		# so should all of the packaging changes which were in
+		# the input.
+		$check->($input, D_UPS, 'debian files');
+
+		# Upstream files are merge_series, which ought to
+		# have been identical to the original merge.
+		$check->($cl->{CommitId}, DS_DEB, 'upstream files');
+
 		print "Merge resolution successful.\n";
 		next;
 	    } else {