canps : added common namespace to all common tcl commands.
Signed-off-by: Nava kishore Manne <navam@xilinx.com>
This commit is contained in:
parent
fb48c9dd0b
commit
92c6b0e7b5
1 changed files with 24 additions and 25 deletions
|
@ -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
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue