canps : added common namespace to all common tcl commands.

Signed-off-by: Nava kishore Manne <navam@xilinx.com>
This commit is contained in:
Nava kishore Manne 2015-04-09 18:00:09 +05:30
parent fb48c9dd0b
commit 92c6b0e7b5

View file

@ -86,7 +86,7 @@ proc gen_init_code {swproj mhsinst} {
}
if {$swproj == 1} {
set ipname [get_property NAME $mhsinst]
set ipname [common::get_property NAME $mhsinst]
set decl " static XCanPs ${ipname};"
set inc_file_lines $decl
return $inc_file_lines
@ -101,9 +101,9 @@ proc gen_testfunc_call {swproj mhsinst} {
return ""
}
set ipname [get_property NAME $mhsinst]
set ipname [common::get_property NAME $mhsinst]
set deviceid [::hsm::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
set stdout [get_property CONFIG.STDOUT [get_os]]
set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
if { $stdout == "" || $stdout == "none" } {
set hasStdout 0
} else {
@ -189,4 +189,3 @@ proc gen_testfunc_call {swproj mhsinst} {
return $testfunc_call
}