Fossil SCM
Fixed bug in the initialization of mybranchcode for changesets.
Commit
47e271a448a38d7bee7884bc3cea5b51c3ef4f12
Parent
e50f9ed55ec4e44…
1 file changed
+1
-5
| --- tools/cvs2fossil/lib/c2f_prev.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | ||
| @@ -673,15 +673,10 @@ | ||
| 673 | 673 | |
| 674 | 674 | typemethod all {} { return $mychangesets } |
| 675 | 675 | typemethod of {id} { return $myidmap($id) } |
| 676 | 676 | typemethod ofrev {id} { return $myrevmap($id) } |
| 677 | 677 | |
| 678 | - typeconstructor { | |
| 679 | - set mybranchcode [project::sym branch] | |
| 680 | - return | |
| 681 | - } | |
| 682 | - | |
| 683 | 678 | # # ## ### ##### ######## ############# |
| 684 | 679 | ## Configuration |
| 685 | 680 | |
| 686 | 681 | pragma -hastypeinfo no ; # no type introspection |
| 687 | 682 | pragma -hasinfo no ; # no object introspection |
| @@ -695,10 +690,11 @@ | ||
| 695 | 690 | namespace eval rev { |
| 696 | 691 | namespace import ::vc::fossil::import::cvs::state |
| 697 | 692 | namespace eval project { |
| 698 | 693 | namespace import ::vc::fossil::import::cvs::project::sym |
| 699 | 694 | } |
| 695 | + ::variable mybranchcode [project::sym branch] | |
| 700 | 696 | namespace import ::vc::tools::misc::* |
| 701 | 697 | namespace import ::vc::tools::trouble |
| 702 | 698 | namespace import ::vc::tools::log |
| 703 | 699 | log register csets |
| 704 | 700 | } |
| 705 | 701 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -673,15 +673,10 @@ | |
| 673 | |
| 674 | typemethod all {} { return $mychangesets } |
| 675 | typemethod of {id} { return $myidmap($id) } |
| 676 | typemethod ofrev {id} { return $myrevmap($id) } |
| 677 | |
| 678 | typeconstructor { |
| 679 | set mybranchcode [project::sym branch] |
| 680 | return |
| 681 | } |
| 682 | |
| 683 | # # ## ### ##### ######## ############# |
| 684 | ## Configuration |
| 685 | |
| 686 | pragma -hastypeinfo no ; # no type introspection |
| 687 | pragma -hasinfo no ; # no object introspection |
| @@ -695,10 +690,11 @@ | |
| 695 | namespace eval rev { |
| 696 | namespace import ::vc::fossil::import::cvs::state |
| 697 | namespace eval project { |
| 698 | namespace import ::vc::fossil::import::cvs::project::sym |
| 699 | } |
| 700 | namespace import ::vc::tools::misc::* |
| 701 | namespace import ::vc::tools::trouble |
| 702 | namespace import ::vc::tools::log |
| 703 | log register csets |
| 704 | } |
| 705 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -673,15 +673,10 @@ | |
| 673 | |
| 674 | typemethod all {} { return $mychangesets } |
| 675 | typemethod of {id} { return $myidmap($id) } |
| 676 | typemethod ofrev {id} { return $myrevmap($id) } |
| 677 | |
| 678 | # # ## ### ##### ######## ############# |
| 679 | ## Configuration |
| 680 | |
| 681 | pragma -hastypeinfo no ; # no type introspection |
| 682 | pragma -hasinfo no ; # no object introspection |
| @@ -695,10 +690,11 @@ | |
| 690 | namespace eval rev { |
| 691 | namespace import ::vc::fossil::import::cvs::state |
| 692 | namespace eval project { |
| 693 | namespace import ::vc::fossil::import::cvs::project::sym |
| 694 | } |
| 695 | ::variable mybranchcode [project::sym branch] |
| 696 | namespace import ::vc::tools::misc::* |
| 697 | namespace import ::vc::tools::trouble |
| 698 | namespace import ::vc::tools::log |
| 699 | log register csets |
| 700 | } |
| 701 |