Fossil

Check-in [0a97ad38]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed typo. Grr.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:0a97ad385a7ad688a9e4cc7b5f4fc64b8654b8d0
User & Date: aku 2007-12-02 03:42:27
Context
2007-12-02
03:46
Bugfix in ValidateFragments, tweaked comment a bit, bugfix in SQL, reordered tables in the successor/predecessor queries a bit to show the actual progression of their use. check-in: fbfb5318 user: aku tags: trunk
03:42
Fixed typo. Grr. check-in: 0a97ad38 user: aku tags: trunk
03:41
Added progress output to the code loading up the graph to traverse, nodes, and arcs. check-in: 41d41c7b user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/cvs2fossil/lib/c2f_integrity.tcl.

742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
				 AND   UU.fcount < VV.rcount)
		AND    T.tid = C.type
	    }
	return
    }

    proc LoopCheck {csets} {
	variable ::myloopcheck
	if {!$myloopcheck} return

	log write 4 integrity {Checking changesets for self-references}

	foreach cset $csets {
	    if {[$cset loopcheck]} {
		trouble fatal "[$cset str] depends on itself"







|







742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
				 AND   UU.fcount < VV.rcount)
		AND    T.tid = C.type
	    }
	return
    }

    proc LoopCheck {csets} {
	::variable myloopcheck
	if {!$myloopcheck} return

	log write 4 integrity {Checking changesets for self-references}

	foreach cset $csets {
	    if {[$cset loopcheck]} {
		trouble fatal "[$cset str] depends on itself"