Check-in [712010580a]
Not logged in
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
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 {','}]')