SHA1 Hash:	b59cdc7f8a605c0baa16c27e603fbbb912f4347f
Date:	2007-12-06 03:56:07
User:	aku
Comment:	Removed the automatic destruction of the traversed graph from the traversal core and put it into the caller (import only, currently).
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_file.tcl from [5721cadfcc] to [7bea1e82e6].

@@ -352,11 +352,11 @@
 	gtcore datacmd   [mymethod ExpandData]
 	gtcore formatcmd [mymethod ExpandFormat]
 	gtcore sortcmd   [mymethod ExpandSort]
 	gtcore savecmd   [mymethod Expand1 $ac $dir $max]
 
-	gtcore traverse $ex ; # The graph is gone after the call
+	gtcore traverse $ex
 	close $ac
 
 	# Now traverse the import graph, this builds the instruction
 	# map for the fossil deltas.
 
@@ -364,15 +364,18 @@
 	gtcore formatcmd [mymethod ExpandFormat]
 	gtcore sortcmd   [mymethod ExpandSort]
 	gtcore savecmd   [mymethod Expand2]
 
 	set myimport {}
-	gtcore traverse $zp ; # The graph is gone after the call
+	gtcore traverse $zp
 	set filemap $myimport
 	unset myimport
 
 	# And back to import control
+
+	$ex destroy
+	$zp destroy
 
 	return [list $filemap $revmap]
     }
 
     method ExpandData   {graph node} { return [$graph node get $node revnr] }

Modified tools/cvs2fossil/lib/c2f_gtcore.tcl from [e040b7b8d7] to [f5a1fffb8f].

@@ -60,12 +60,10 @@
 	    if {![llength [$graph nodes]]} break
 
 	    CycleHook            $graph
 	    InitializeCandidates $graph
 	}
-
-	$graph destroy
 
 	log write 3 gtcore Done.
 	ClearHooks
 	return
     }