luke
/
OpenSTA
mirror of https://github.com/The-OpenROAD-Project/OpenSTA.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

protect builtin renames

This commit is contained in:
James Cherry 2020-01-23 20:49:49 -07:00
parent 25bf7b7ac8
commit 9c19ea8bd2
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tcl/Util.tcl
View File

@ -393,16 +393,11 @@ proc check_percent { cmd_arg arg } {
# The builtin Tcl "source" and "unknown" commands are redefined by sta. # The builtin Tcl "source" and "unknown" commands are redefined by sta.
# This rename provides a mechanism to refer to the original TCL # This rename provides a mechanism to refer to the original TCL
# command. # command.
rename source builtin_source # Protected so this file can be reloaded without blowing up.
if { ![info exists renamed_source] } {
# This seems to be a common build problem. rename source builtin_source
# It happens with incomplete installs of libtcl that can't find the
# corresponding init.tcl file.
if { [info procs unknown] == {} } {
puts "TCL installation problem. proc unknown not defined. Check tcl_libraries $tcl_libraries for init.tcl"
proc unknown { args } { return -code error "invalid command name" }
} else {
rename unknown builtin_unknown rename unknown builtin_unknown
set renamed_source 1
} }
# Numeric expressions eval to themselves so braces aren't required # Numeric expressions eval to themselves so braces aren't required