proc update_menu4 {} {	global CONFIG_LEON3	global CONFIG_IU_NWINDOWS	if {($CONFIG_LEON3 == 1)} then {.menu4.config.f.x0.x configure -state normal -foreground [ cget .ref -foreground ]; .menu4.config.f.x0.l configure -state normal; } else {.menu4.config.f.x0.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu4.config.f.x0.l configure -state disabled}	global CONFIG_IU_V8MULDIV	if {($CONFIG_LEON3 == 1)} then {	configure_entry .menu4.config.f.x1 normal {n l y}} else {configure_entry .menu4.config.f.x1 disabled {y n l}}	if {($CONFIG_LEON3 == 1) && ($CONFIG_IU_V8MULDIV == 1)} then {configure_entry .menu4.config.f.x2 normal {x l}} else {configure_entry .menu4.config.f.x2 disabled {x l}}	global CONFIG_IU_MUL_MAC	if {($CONFIG_LEON3 == 1) && ($CONFIG_IU_V8MULDIV == 1)} then {	configure_entry .menu4.config.f.x3 normal {n l y}} else {configure_entry .menu4.config.f.x3 disabled {y n l}}	global CONFIG_IU_SVT	if {($CONFIG_LEON3 == 1)} then {	configure_entry .menu4.config.f.x4 normal {n l y}} else {configure_entry .menu4.config.f.x4 disabled {y n l}}	global CONFIG_IU_LDELAY	if {($CONFIG_LEON3 == 1)} then {.menu4.config.f.x5.x configure -state normal -foreground [ cget .ref -foreground ]; .menu4.config.f.x5.l configure -state normal; } else {.menu4.config.f.x5.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu4.config.f.x5.l configure -state disabled}	global CONFIG_IU_WATCHPOINTS	if {($CONFIG_LEON3 == 1)} then {.menu4.config.f.x6.x configure -state normal -foreground [ cget .ref -foreground ]; .menu4.config.f.x6.l configure -state normal; } else {.menu4.config.f.x6.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu4.config.f.x6.l configure -state disabled}	global CONFIG_PWD	if {($CONFIG_LEON3 == 1)} then {	configure_entry .menu4.config.f.x7 normal {n l y}} else {configure_entry .menu4.config.f.x7 disabled {y n l}}	global CONFIG_IU_RSTADDR	if {($CONFIG_LEON3 == 1)} then {.menu4.config.f.x8.x configure -state normal -foreground [ cget .ref -foreground ]; .menu4.config.f.x8.l configure -state normal; } else {.menu4.config.f.x8.x configure -state disabled -foreground [ cget .ref -disabledforeground ]; .menu4.config.f.x8.l configure -state disabled}}proc update_define_menu4 {} {	update_define_mainmenu	global CONFIG_MODULES	global CONFIG_LEON3	global CONFIG_IU_NWINDOWS	if {($CONFIG_LEON3 == 1)} then {validate_int CONFIG_IU_NWINDOWS "$CONFIG_IU_NWINDOWS" 8}	global CONFIG_IU_V8MULDIV	if {($CONFIG_LEON3 == 1)} then {	set CONFIG_IU_V8MULDIV [expr $CONFIG_IU_V8MULDIV&15]} else {set CONFIG_IU_V8MULDIV [expr $CONFIG_IU_V8MULDIV|16]}	global tmpvar_3	global CONFIG_IU_MUL_LATENCY_4	if {$tmpvar_3 == "4-cycles"} then {set CONFIG_IU_MUL_LATENCY_4 1} else {set CONFIG_IU_MUL_LATENCY_4 0}	global CONFIG_IU_MUL_LATENCY_5	if {$tmpvar_3 == "5-cycles"} then {set CONFIG_IU_MUL_LATENCY_5 1} else {set CONFIG_IU_MUL_LATENCY_5 0}	global CONFIG_IU_MUL_MAC	if {($CONFIG_LEON3 == 1) && ($CONFIG_IU_V8MULDIV == 1)} then {	set CONFIG_IU_MUL_MAC [expr $CONFIG_IU_MUL_MAC&15]} else {set CONFIG_IU_MUL_MAC [expr $CONFIG_IU_MUL_MAC|16]}	global CONFIG_IU_SVT	if {($CONFIG_LEON3 == 1)} then {	set CONFIG_IU_SVT [expr $CONFIG_IU_SVT&15]} else {set CONFIG_IU_SVT [expr $CONFIG_IU_SVT|16]}	global CONFIG_IU_LDELAY	if {($CONFIG_LEON3 == 1)} then {validate_int CONFIG_IU_LDELAY "$CONFIG_IU_LDELAY" 1}	global CONFIG_IU_WATCHPOINTS	if {($CONFIG_LEON3 == 1)} then {validate_int CONFIG_IU_WATCHPOINTS "$CONFIG_IU_WATCHPOINTS" 0}	global CONFIG_PWD	if {($CONFIG_LEON3 == 1)} then {	set CONFIG_PWD [expr $CONFIG_PWD&15]} else {set CONFIG_PWD [expr $CONFIG_PWD|16]}	global CONFIG_IU_RSTADDR	if {($CONFIG_LEON3 == 1)} then {validate_hex CONFIG_IU_RSTADDR "$CONFIG_IU_RSTADDR" 00000}}proc menu5 {w title} {	set oldFocus [focus]	catch {focus .menu3}	catch {destroy $w; unregister_active 5}	toplevel $w -class Dialog	wm withdraw $w	global active_menus	set active_menus [lsort -integer [linsert $active_menus end 5]]	message $w.m -width 400 -aspect 300 -text \		"Floating-point unit"  -relief raised	pack $w.m -pady 10 -side top -padx 10	wm title $w "Floating-point unit" 	bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 5; break"	set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 5; menu6 .menu6 \"$title\""	frame $w.f	button $w.f.back -text "OK" \		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 5"	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 5; menu4 .menu4 \"$title\""	bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 5; menu4 .menu4 \"$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 5 0 "Enable FPU                             " CONFIG_FPU_ENABLE	global tmpvar_4	minimenu $w.config.f 5 1 "FPU core" tmpvar_4 CONFIG_FPU_GRFPU	menu $w.config.f.x1.x.menu -tearoffcommand "menutitle \"FPU core\""	$w.config.f.x1.x.menu add radiobutton -label "GRFPU" -variable tmpvar_4 -value "GRFPU" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "GRFPU-LITE" -variable tmpvar_4 -value "GRFPU-LITE" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "Meiko" -variable tmpvar_4 -value "Meiko" -command "update_active"	menusplit $w $w.config.f.x1.x.menu 3	global tmpvar_5	minimenu $w.config.f 5 2 "GRFPU multiplier" tmpvar_5 CONFIG_FPU_GRFPU_INFMUL	menu $w.config.f.x2.x.menu -tearoffcommand "menutitle \"GRFPU multiplier\""	$w.config.f.x2.x.menu add radiobutton -label "Inferred" -variable tmpvar_5 -value "Inferred" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "DW" -variable tmpvar_5 -value "DW" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "ModGen" -variable tmpvar_5 -value "ModGen" -command "update_active"	menusplit $w $w.config.f.x2.x.menu 3	global tmpvar_6	minimenu $w.config.f 5 3 "GRFPU-LITE controller" tmpvar_6 CONFIG_FPU_GRFPC0	menu $w.config.f.x3.x.menu -tearoffcommand "menutitle \"GRFPU-LITE controller\""	$w.config.f.x3.x.menu add radiobutton -label "Simple" -variable tmpvar_6 -value "Simple" -command "update_active"	$w.config.f.x3.x.menu add radiobutton -label "Data-forwarding" -variable tmpvar_6 -value "Data-forwarding" -command "update_active"	$w.config.f.x3.x.menu add radiobutton -label "Non-blocking" -variable tmpvar_6 -value "Non-blocking" -command "update_active"	menusplit $w $w.config.f.x3.x.menu 3	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_menu5 {} {	global CONFIG_LEON3	global CONFIG_FPU_ENABLE	if {($CONFIG_LEON3 == 1)} then {	configure_entry .menu5.config.f.x0 normal {n l y}} else {configure_entry .menu5.config.f.x0 disabled {y n l}}	if {($CONFIG_LEON3 == 1) && ($CONFIG_FPU_ENABLE == 1)} then {configure_entry .menu5.config.f.x1 normal {x l}} else {configure_entry .menu5.config.f.x1 disabled {x l}}	global CONFIG_FPU_GRFPU	if {($CONFIG_LEON3 == 1) && ($CONFIG_FPU_ENABLE == 1) && ($CONFIG_FPU_GRFPU == 1)} then {configure_entry .menu5.config.f.x2 normal {x l}} else {configure_entry .menu5.config.f.x2 disabled {x l}}	global CONFIG_FPU_GRFPULITE	if {($CONFIG_LEON3 == 1) && ($CONFIG_FPU_ENABLE == 1) && ($CONFIG_FPU_GRFPULITE == 1)} then {configure_entry .menu5.config.f.x3 normal {x l}} else {configure_entry .menu5.config.f.x3 disabled {x l}}}proc update_define_menu5 {} {	update_define_mainmenu	global CONFIG_MODULES	global CONFIG_LEON3	global CONFIG_FPU_ENABLE	if {($CONFIG_LEON3 == 1)} then {	set CONFIG_FPU_ENABLE [expr $CONFIG_FPU_ENABLE&15]} else {set CONFIG_FPU_ENABLE [expr $CONFIG_FPU_ENABLE|16]}	global tmpvar_4	global CONFIG_FPU_GRFPU	if {$tmpvar_4 == "GRFPU"} then {set CONFIG_FPU_GRFPU 1} else {set CONFIG_FPU_GRFPU 0}	global CONFIG_FPU_GRFPULITE	if {$tmpvar_4 == "GRFPU-LITE"} then {set CONFIG_FPU_GRFPULITE 1} else {set CONFIG_FPU_GRFPULITE 0}	global CONFIG_FPU_MEIKO	if {$tmpvar_4 == "Meiko"} then {set CONFIG_FPU_MEIKO 1} else {set CONFIG_FPU_MEIKO 0}	global tmpvar_5	global CONFIG_FPU_GRFPU_INFMUL	if {$tmpvar_5 == "Inferred"} then {set CONFIG_FPU_GRFPU_INFMUL 1} else {set CONFIG_FPU_GRFPU_INFMUL 0}	global CONFIG_FPU_GRFPU_DWMUL	if {$tmpvar_5 == "DW"} then {set CONFIG_FPU_GRFPU_DWMUL 1} else {set CONFIG_FPU_GRFPU_DWMUL 0}	global CONFIG_FPU_GRFPU_MODGEN	if {$tmpvar_5 == "ModGen"} then {set CONFIG_FPU_GRFPU_MODGEN 1} else {set CONFIG_FPU_GRFPU_MODGEN 0}	global tmpvar_6	global CONFIG_FPU_GRFPC0	if {$tmpvar_6 == "Simple"} then {set CONFIG_FPU_GRFPC0 1} else {set CONFIG_FPU_GRFPC0 0}	global CONFIG_FPU_GRFPC1	if {$tmpvar_6 == "Data-forwarding"} then {set CONFIG_FPU_GRFPC1 1} else {set CONFIG_FPU_GRFPC1 0}	global CONFIG_FPU_GRFPC2	if {$tmpvar_6 == "Non-blocking"} then {set CONFIG_FPU_GRFPC2 1} else {set CONFIG_FPU_GRFPC2 0}}proc menu6 {w title} {	set oldFocus [focus]	catch {focus .menu3}	catch {destroy $w; unregister_active 6}	toplevel $w -class Dialog	wm withdraw $w	global active_menus	set active_menus [lsort -integer [linsert $active_menus end 6]]	message $w.m -width 400 -aspect 300 -text \		"Cache system"  -relief raised	pack $w.m -pady 10 -side top -padx 10	wm title $w "Cache system" 	bind $w <Escape> "catch {focus $oldFocus}; destroy $w; unregister_active 6; break"	set nextscript "catch {focus $oldFocus}; destroy $w; unregister_active 6; menu7 .menu7 \"$title\""	frame $w.f	button $w.f.back -text "OK" \		-width 15 -command "catch {focus $oldFocus}; destroy $w; unregister_active 6"	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 6; menu5 .menu5 \"$title\""	bind $w <Alt-p> "catch {focus $oldFocus}; destroy $w; unregister_active 6; menu5 .menu5 \"$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 6 0 "Enable instruction cache       " CONFIG_ICACHE_ENABLE	global tmpvar_7	minimenu $w.config.f 6 1 "Associativity (sets)            " tmpvar_7 CONFIG_ICACHE_ASSO1	menu $w.config.f.x1.x.menu -tearoffcommand "menutitle \"Associativity (sets)            \""	$w.config.f.x1.x.menu add radiobutton -label "1" -variable tmpvar_7 -value "1" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "2" -variable tmpvar_7 -value "2" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "3" -variable tmpvar_7 -value "3" -command "update_active"	$w.config.f.x1.x.menu add radiobutton -label "4" -variable tmpvar_7 -value "4" -command "update_active"	menusplit $w $w.config.f.x1.x.menu 4	global tmpvar_8	minimenu $w.config.f 6 2 "Set size (kbytes/set)" tmpvar_8 CONFIG_ICACHE_SZ1	menu $w.config.f.x2.x.menu -tearoffcommand "menutitle \"Set size (kbytes/set)\""	$w.config.f.x2.x.menu add radiobutton -label "1" -variable tmpvar_8 -value "1" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "2" -variable tmpvar_8 -value "2" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "4" -variable tmpvar_8 -value "4" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "8" -variable tmpvar_8 -value "8" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "16" -variable tmpvar_8 -value "16" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "32" -variable tmpvar_8 -value "32" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "64" -variable tmpvar_8 -value "64" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "128" -variable tmpvar_8 -value "128" -command "update_active"	$w.config.f.x2.x.menu add radiobutton -label "256" -variable tmpvar_8 -value "256" -command "update_active"	menusplit $w $w.config.f.x2.x.menu 9	global tmpvar_9	minimenu $w.config.f 6 3 "Line size (bytes/line)" tmpvar_9 CONFIG_ICACHE_LZ16	menu $w.config.f.x3.x.menu -tearoffcommand "menutitle \"Line size (bytes/line)\""	$w.config.f.x3.x.menu add radiobutton -label "16" -variable tmpvar_9 -value "16" -command "update_active"	$w.config.f.x3.x.menu add radiobutton -label "32" -variable tmpvar_9 -value "32" -command "update_active"	menusplit $w $w.config.f.x3.x.menu 2	global tmpvar_10	minimenu $w.config.f 6 4 "Replacement alorithm" tmpvar_10 CONFIG_ICACHE_ALGORND	menu $w.config.f.x4.x.menu -tearoffcommand "menutitle \"Replacement alorithm\""	$w.config.f.x4.x.menu add radiobutton -label "Random" -variable tmpvar_10 -value "Random" -command "update_active"	$w.config.f.x4.x.menu add radiobutton -label "LRR" -variable tmpvar_10 -value "LRR" -command "update_active"	$w.config.f.x4.x.menu add radiobutton -label "LRU" -variable tmpvar_10 -value "LRU" -command "update_active"	menusplit $w $w.config.f.x4.x.menu 3	bool $w.config.f 6 5 "Cache locking      " CONFIG_ICACHE_LOCK	bool $w.config.f 6 6 "Enable local instruction RAM            " CONFIG_ICACHE_LRAM	global tmpvar_11	minimenu $w.config.f 6 7 "Local data RAM size (kbytes)" tmpvar_11 CONFIG_ICACHE_LRAM_SZ1	menu $w.config.f.x7.x.menu -tearoffcommand "menutitle \"Local data RAM size (kbytes)\""	$w.config.f.x7.x.menu add radiobutton -label "1" -variable tmpvar_11 -value "1" -command "update_active"	$w.config.f.x7.x.menu add radiobutton -label "2" -variable tmpvar_11 -value "2" -command "update_active"	$w.config.f.x7.x.menu add radiobutton -label "4" -variable tmpvar_11 -value "4" -command "update_active"	$w.config.f.x7.x.menu add radiobutton -label "8" -variable tmpvar_11 -value "8" -command "update_active"	$w.config.f.x7.x.menu add radiobutton -label "16" -variable tmpvar_11 -value "16" -command "update_active"	$w.config.f.x7.x.menu add radiobutton -label "32" -variable tmpvar_11 -value "32" -command "u