bool $w.config.f 2 5 "Use PCI clock as system clock" CONFIG_PCI_SYSCLK	focus $w	update_active	global winx; global winy	set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]	if {[winfo exists $w]} then {wm geometry $w +$winx+$winy}	update idletasks	if {[winfo exists $w]} then  {$w.config.canvas create window 0 0 -anchor nw -window $w.config.f	$w.config.canvas configure \		-width [expr [winfo reqwidth $w.config.f] + 1]\		-scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \			 [expr [winfo reqheight $w.config.f] + 1]"	set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]	set scry [expr [winfo screenh $w] / 2]	set maxy [expr [winfo screenh $w] * 3 / 4]	set canvtotal [expr [winfo reqh $w.config.f] + 2]	if [expr $winy + $canvtotal < $maxy] {		$w.config.canvas configure -height $canvtotal	} else {		$w.config.canvas configure -height [expr $scry - $winy]		}	}	update idletasks	if {[winfo exists $w]} then {	wm maxsize $w [winfo width $w] [winfo screenheight $w]	wm minsize $w [winfo width $w] 100	wm deiconify $w}}proc update_menu2 {} {	global CONFIG_CLK_DCM	global CONFIG_CLK_ALTDLL	global CONFIG_CLK_LATDLL	global CONFIG_CLK_CLKDLL	global CONFIG_CLK_LIB18T	global CONFIG_CLK_MUL	if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {.menu2.config.f.x1.x configure -state normal -foreground [ cget .ref -foreground ]; .menu2.config.f.x1.l configure -state normal; } else {.menu2.config.f.x1.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu2.config.f.x1.l configure -state disabled}	global CONFIG_CLK_DIV	if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {.menu2.config.f.x2.x configure -state normal -foreground [ cget .ref -foreground ]; .menu2.config.f.x2.l configure -state normal; } else {.menu2.config.f.x2.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu2.config.f.x2.l configure -state disabled}	global CONFIG_PCI_CLKDLL	if {($CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_DCM == 1)} then {	configure_entry .menu2.config.f.x3 normal {n l y}} else {configure_entry .menu2.config.f.x3 disabled {y n l}}	global CONFIG_CLK_NOFB	if {($CONFIG_CLK_DCM == 1)} then {	configure_entry .menu2.config.f.x4 normal {n l y}} else {configure_entry .menu2.config.f.x4 disabled {y n l}}	global CONFIG_PCI_ENABLE	global CONFIG_PCI_SYSCLK	if {($CONFIG_PCI_ENABLE != 1)} then {	configure_entry .menu2.config.f.x5 normal {n l y}} else {configure_entry .menu2.config.f.x5 disabled {y n l}}}proc update_define_menu2 {} {	update_define_mainmenu	global CONFIG_MODULES	global tmpvar_2	global CONFIG_CLK_INFERRED	if {$tmpvar_2 == "Inferred"} then {set CONFIG_CLK_INFERRED 1} else {set CONFIG_CLK_INFERRED 0}	global CONFIG_CLK_HCLKBUF	if {$tmpvar_2 == "Actel-HCLKBUF"} then {set CONFIG_CLK_HCLKBUF 1} else {set CONFIG_CLK_HCLKBUF 0}	global CONFIG_CLK_ALTDLL	if {$tmpvar_2 == "Altera-ALTPLL"} then {set CONFIG_CLK_ALTDLL 1} else {set CONFIG_CLK_ALTDLL 0}	global CONFIG_CLK_LATDLL	if {$tmpvar_2 == "Lattice-EXPLL"} then {set CONFIG_CLK_LATDLL 1} else {set CONFIG_CLK_LATDLL 0}	global CONFIG_CLK_LIB18T	if {$tmpvar_2 == "RH-LIB18T-PLL"} then {set CONFIG_CLK_LIB18T 1} else {set CONFIG_CLK_LIB18T 0}	global CONFIG_CLK_CLKDLL	if {$tmpvar_2 == "Xilinx-CLKDLL"} then {set CONFIG_CLK_CLKDLL 1} else {set CONFIG_CLK_CLKDLL 0}	global CONFIG_CLK_DCM	if {$tmpvar_2 == "Xilinx-DCM"} then {set CONFIG_CLK_DCM 1} else {set CONFIG_CLK_DCM 0}	global CONFIG_CLK_MUL	if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {validate_int CONFIG_CLK_MUL "$CONFIG_CLK_MUL" 2}	global CONFIG_CLK_DIV	if {($CONFIG_CLK_DCM == 1 || $CONFIG_CLK_ALTDLL == 1 || $CONFIG_CLK_LATDLL == 1 || $CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_LIB18T == 1)} then {validate_int CONFIG_CLK_DIV "$CONFIG_CLK_DIV" 2}	global CONFIG_PCI_CLKDLL	if {($CONFIG_CLK_CLKDLL == 1 || $CONFIG_CLK_DCM == 1)} then {	set CONFIG_PCI_CLKDLL [expr $CONFIG_PCI_CLKDLL&15]} else {set CONFIG_PCI_CLKDLL [expr $CONFIG_PCI_CLKDLL|16]}	global CONFIG_CLK_NOFB	if {($CONFIG_CLK_DCM == 1)} then {	set CONFIG_CLK_NOFB [expr $CONFIG_CLK_NOFB&15]} else {set CONFIG_CLK_NOFB [expr $CONFIG_CLK_NOFB|16]}	global CONFIG_PCI_ENABLE	global CONFIG_PCI_SYSCLK	if {($CONFIG_PCI_ENABLE != 1)} then {	set CONFIG_PCI_SYSCLK [expr $CONFIG_PCI_SYSCLK&15]} else {set CONFIG_PCI_SYSCLK [expr $CONFIG_PCI_SYSCLK|16]}}menu_option menu3 3 "Processor            "proc menu3 {w title} {	set oldFocus [focus]	catch {destroy $w; unregister_active 3}	toplevel $w -class Dialog	wm withdraw $w	global active_menus	set active_menus [lsort -integer [linsert $active_menus end 3]]	message $w.m -width 400 -aspect 300 -text \		"Processor            "  -relief raised	pack $w.m -pady 10 -side top -padx 10	wm title $w "Processor            " 	bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 3; break"	set nextscript "catch {focus $oldFocus}; menu4 .menu4 \"$title\""	frame $w.f	button $w.f.back -text "Main Menu" \		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 3"	button $w.f.next -text "Next" -underline 0\		-width 15 -command $nextscript	bind all <Alt-n> $nextscript	button $w.f.prev -text "Prev" -underline 0\		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 3; menu2 .menu2 \"$title\""	bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 3; menu2 .menu2 \"$title\";break"	pack $w.f.back $w.f.next $w.f.prev -side left -expand on	pack $w.f -pady 10 -side bottom -anchor w -fill x	frame $w.topline -relief ridge -borderwidth 2 -height 2	pack $w.topline -side top -fill x	frame $w.botline -relief ridge -borderwidth 2 -height 2	pack $w.botline -side bottom -fill x	frame $w.config	pack $w.config -fill y -expand on	scrollbar $w.config.vscroll -command "$w.config.canvas yview"	pack $w.config.vscroll -side right -fill y	canvas $w.config.canvas -height 1\		-relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \		-width [expr [winfo screenwidth .] * 1 / 2] 	frame $w.config.f	bind $w <Key-Down> "$w.config.canvas yview scroll  1 unit;break;"	bind $w <Key-Up> "$w.config.canvas yview scroll  -1 unit;break;"	bind $w <Key-Next> "$w.config.canvas yview scroll  1 page;break;"	bind $w <Key-Prior> "$w.config.canvas yview scroll  -1 page;break;"	bind $w <Key-Home> "$w.config.canvas yview moveto 0;break;"	bind $w <Key-End> "$w.config.canvas yview moveto 1 ;break;"	pack $w.config.canvas -side right -fill y	bool $w.config.f 3 0 "Enable LEON3 SPARC V8 Processor" CONFIG_LEON3	int $w.config.f 3 1 "Number of processors" CONFIG_PROC_NUM	submenu $w.config.f 3 2 "Integer unit                                           " 4	submenu $w.config.f 3 3 "Floating-point unit" 5	submenu $w.config.f 3 4 "Cache system" 6	submenu $w.config.f 3 5 "MMU" 7	submenu $w.config.f 3 6 "Debug Support Unit        " 8	submenu $w.config.f 3 7 "VHDL debug settings       " 9	focus $w	update_active	global winx; global winy	set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]	if {[winfo exists $w]} then {wm geometry $w +$winx+$winy}	update idletasks	if {[winfo exists $w]} then  {$w.config.canvas create window 0 0 -anchor nw -window $w.config.f	$w.config.canvas configure \		-width [expr [winfo reqwidth $w.config.f] + 1]\		-scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \			 [expr [winfo reqheight $w.config.f] + 1]"	set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]	set scry [expr [winfo screenh $w] / 2]	set maxy [expr [winfo screenh $w] * 3 / 4]	set canvtotal [expr [winfo reqh $w.config.f] + 2]	if [expr $winy + $canvtotal < $maxy] {		$w.config.canvas configure -height $canvtotal	} else {		$w.config.canvas configure -height [expr $scry - $winy]		}	}	update idletasks	if {[winfo exists $w]} then {	wm maxsize $w [winfo width $w] [winfo screenheight $w]	wm minsize $w [winfo width $w] 100	wm deiconify $w}}proc update_menu3 {} {	global CONFIG_LEON3	global CONFIG_PROC_NUM	if {($CONFIG_LEON3 == 1)} then {.menu3.config.f.x1.x configure -state normal -foreground [ cget .ref -foreground ]; .menu3.config.f.x1.l configure -state normal; } else {.menu3.config.f.x1.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu3.config.f.x1.l configure -state disabled}	if {($CONFIG_LEON3 == 1)} then {configure_entry .menu3.config.f.x2 normal {m}} else {configure_entry .menu3.config.f.x2 disabled {m}}	if {($CONFIG_LEON3 == 1)} then {configure_entry .menu3.config.f.x3 normal {m}} else {configure_entry .menu3.config.f.x3 disabled {m}}	if {($CONFIG_LEON3 == 1)} then {configure_entry .menu3.config.f.x4 normal {m}} else {configure_entry .menu3.config.f.x4 disabled {m}}	if {($CONFIG_LEON3 == 1)} then {configure_entry .menu3.config.f.x5 normal {m}} else {configure_entry .menu3.config.f.x5 disabled {m}}	if {($CONFIG_LEON3 == 1)} then {configure_entry .menu3.config.f.x6 normal {m}} else {configure_entry .menu3.config.f.x6 disabled {m}}	if {($CONFIG_LEON3 == 1)} then {configure_entry .menu3.config.f.x7 normal {m}} else {configure_entry .menu3.config.f.x7 disabled {m}}}proc update_define_menu3 {} {	update_define_mainmenu	global CONFIG_MODULES	global CONFIG_LEON3	global CONFIG_PROC_NUM	if {($CONFIG_LEON3 == 1)} then {validate_int CONFIG_PROC_NUM "$CONFIG_PROC_NUM" 1}}proc menu4 {w title} {	set oldFocus [focus]	catch {focus .menu3}	catch {destroy $w; unregister_active 4}	toplevel $w -class Dialog	wm withdraw $w	global active_menus	set active_menus [lsort -integer [linsert $active_menus end 4]]	message $w.m -width 400 -aspect 300 -text \		"Integer unit                                           "  -relief raised	pack $w.m -pady 10 -side top -padx 10	wm title $w "Integer unit                                           " 	bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 4; break"	set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 4; menu5 .menu5 \"$title\""	frame $w.f	button $w.f.back -text "OK" \		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 4"	button $w.f.next -text "Next" -underline 0\		-width 15 -command $nextscript	bind all <Alt-n> $nextscript	button $w.f.prev -text "Prev" -underline 0\		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 4; menu3 .menu3 \"$title\""	bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 4; menu3 .menu3 \"$title\";break"	pack $w.f.back $w.f.next $w.f.prev -side left -expand on	pack $w.f -pady 10 -side bottom -anchor w -fill x	frame $w.topline -relief ridge -borderwidth 2 -height 2	pack $w.topline -side top -fill x	frame $w.botline -relief ridge -borderwidth 2 -height 2	pack $w.botline -side bottom -fill x	frame $w.config	pack $w.config -fill y -expand on	scrollbar $w.config.vscroll -command "$w.config.canvas yview"	pack $w.config.vscroll -side right -fill y	canvas $w.config.canvas -height 1\		-relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \		-width [expr [winfo screenwidth .] * 1 / 2] 	frame $w.config.f	bind $w <Key-Down> "$w.config.canvas yview scroll  1 unit;break;"	bind $w <Key-Up> "$w.config.canvas yview scroll  -1 unit;break;"	bind $w <Key-Next> "$w.config.canvas yview scroll  1 page;break;"	bind $w <Key-Prior> "$w.config.canvas yview scroll  -1 page;break;"	bind $w <Key-Home> "$w.config.canvas yview moveto 0;break;"	bind $w <Key-End> "$w.config.canvas yview moveto 1 ;break;"	pack $w.config.canvas -side right -fill y	int $w.config.f 4 0 "SPARC register windows" CONFIG_IU_NWINDOWS	bool $w.config.f 4 1 "SPARC V8 MUL/DIV instructions" CONFIG_IU_V8MULDIV	global tmpvar_3	minimenu $w.config.f 4 2 "Hardware multiplier latency" tmpvar_3 CONFIG_IU_MUL_LATENCY_4	menu $w.config.f.x2.x.menu -tearoffcommand "menutitle \"Hardware multiplier latency\""	$w.config.f.x2.x.menu add radiobutton -label "4-cycles" -variable tmpvar_3 -value "4-cycles" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "5-cycles" -variable tmpvar_3 -value "5-cycles" -command "update_active"	menusplit $w $w.config.f.x2.x.menu 2	bool $w.config.f 4 3 "SPARC V8e SMAC/UMAC instructions     " CONFIG_IU_MUL_MAC	bool $w.config.f 4 4 "Single-vector trapping" CONFIG_IU_SVT	int $w.config.f 4 5 "Load delay" CONFIG_IU_LDELAY	int $w.config.f 4 6 "Hardware watchpoints" CONFIG_IU_WATCHPOINTS	bool $w.config.f 4 7 "Enable power-down mode " CONFIG_PWD	hex $w.config.f 4 8 " Reset start address (addr\[31:12\]) " CONFIG_IU_RSTADDR	focus $w	update_active	global winx; global winy	if {[winfo exists .menu3] == 0} then {menu3 .menu3 "Processor            "}	set winx [expr [winfo x .menu3]+30]; set winy [expr [winfo y .menu3]+30]	if {[winfo exists $w]} then {wm geometry $w +$winx+$winy}	update idletasks	if {[winfo exists $w]} then  {$w.config.canvas create window 0 0 -anchor nw -window $w.config.f	$w.config.canvas configure \		-width [expr [winfo reqwidth $w.config.f] + 1]\		-scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \			 [expr [winfo reqheight $w.config.f] + 1]"	set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]	set scry [expr [winfo screenh $w] / 2]	set maxy [expr [winfo screenh $w] * 3 / 4]	set canvtotal [expr [winfo reqh $w.config.f] + 2]	if [expr $winy + $canvtotal < $maxy] {		$w.config.canvas configure -height $canvtotal	} else {		$w.config.canvas configure -height [expr $scry - $winy]		}	}	update idletasks	if {[winfo exists $w]} then {	wm maxsize $w [winfo width $w] [winfo screenheight $w]	wm minsize $w [winfo width $w] 100	wm deiconify $w}}proc update_menu4 {} {	global CONFIG_LEON3