Overview
SHA1 Hash: | 712010580ae12c2e126e5cf39d0d73211f75bfa6 |
---|---|
Date: | 2007-12-02 04:55:38 |
User: | aku |
Comment: | Bugfix. Have the symbol dependency retrieval commands actually return something. |
Timelines: | ancestors | descendants | both | trunk |
Other Links: | files | ZIP archive | manifest |
Tags And Properties
- branch=trunk inherited from [a28c83647d]
- sym-trunk inherited from [a28c83647d]
Changes
[hide diffs]Modified tools/cvs2fossil/lib/c2f_prev.tcl from [9054f71640] to [e427524ce6].
@@ -1102,10 +1102,11 @@ return } # var(dv) = dict (item -> list (item)), item = list (type id) typemethod predecessors {dv tags} { + upvar 1 $dv dependencies # The predecessors of a tag are all the revisions the tags are # attached to, as well as all the branches or tags which are # their prefered parents. set theset ('[join $tags {','}]') @@ -1180,10 +1181,11 @@ "] } # var(dv) = dict (item -> list (item)), item = list (type id) typemethod successors {dv branches} { + upvar 1 $dv dependencies # The first revision committed on a branch, and all branches # and tags which have it as their prefered parent are the # successors of a branch. set theset ('[join $branches {','}]') @@ -1216,10 +1218,11 @@ return } # var(dv) = dict (item -> list (item)), item = list (type id) typemethod predecessors {dv branches} { + upvar 1 $dv dependencies # The predecessors of a branch are all the revisions the # branches are spawned from, as well as all the branches or # tags which are their prefered parents. set theset ('[join $tags {','}]')