SHA1 Hash:	8dd5afbc80e13c1c0bcd1f9b0868efae9bf943a3
Date:	2008-02-26 04:53:56
User:	aku
Comment:	Updated method 'drop' of changesets, the in-memory parts have migrated to 'destroy' as part of the work on pass InitCSets.
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_prev.tcl from [dfc591f76c] to [2f48609c1c].

@@ -213,18 +213,10 @@
 		DELETE FROM changeset   WHERE cid = $myid;
 		DELETE FROM csitem      WHERE cid = $myid;
 		DELETE FROM cssuccessor WHERE cid = $myid;
 	    }
 	}
-
-	UnmapItems $mytype $myitems
-	unset myidmap($myid)
-
-	set pos                    [lsearch -exact $mychangesets $self]
-	set mychangesets           [lreplace       $mychangesets $pos $pos]
-	set pos                    [lsearch -exact $mytchangesets($mytype) $self]
-	set mytchangesets($mytype) [lreplace       $mytchangesets($mytype) $pos $pos]
 
 	# Return the list of predecessors so that they can be adjusted.
 	return [struct::list map [state run {
 	    SELECT cid
 	    FROM   cssuccessor