From 014d152c525fcef0bacba9b7d5d3333434e90087 Mon Sep 17 00:00:00 2001 From: Nava kishore Manne Date: Thu, 9 Apr 2015 14:31:05 +0530 Subject: [PATCH] uartlite : added namespace for all HSI TCL commands. Signed-off-by: Nava kishore Manne --- .../drivers/uartlite/data/uartlite_tapp.tcl | 26 +++++++++---------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl b/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl index dc79f22c..13e349a1 100755 --- a/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl +++ b/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl @@ -67,11 +67,11 @@ proc gen_include_files {swproj mhsinst} { return "" } if {$swproj == 1} { - set stdout [get_property CONFIG.STDOUT [get_os]] + set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set isStdout [string match $stdout $mhsinst] set ipname [get_property IP_NAME $mhsinst] if {${isStdout} == 0} { - set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] + set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst] if {$ifuartliteintr == 1} { if {$ipname == "mdm"} { set inc_file_lines {uartlite_header.h} @@ -95,10 +95,10 @@ proc gen_src_files {swproj mhsinst} { if {$swproj == 1} { set ipname [get_property IP_NAME $mhsinst] - set stdout [get_property CONFIG.STDOUT [get_os]] + set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set isStdout [string match $stdout $mhsinst] if {${isStdout} == 0} { - set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] + set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst] if {$ifuartliteintr == 1} { if {$ipname == "mdm"} { set inc_file_lines {examples/xuartlite_selftest_example.c data/uartlite_header.h} @@ -126,12 +126,12 @@ proc gen_init_code {swproj mhsinst} { return "" } if {$swproj == 1} { - set stdout [get_property CONFIG.STDOUT [get_os]] + set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set isStdout [string match $stdout $mhsinst] if {${isStdout} == 0} { set ipname [get_property NAME $mhsinst] - set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] + set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst] set mdm_name [get_property IP_NAME $mhsinst] if {$ifuartliteintr == 1} { if {$mdm_name == "mdm"} { @@ -151,7 +151,7 @@ proc gen_init_code {swproj mhsinst} { proc gen_testfunc_call {swproj mhsinst} { set ipname [get_property NAME $mhsinst] - set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] + set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst] set testfunc_call "" if {$swproj == 0} { @@ -160,7 +160,7 @@ proc gen_testfunc_call {swproj mhsinst} { # Don't generate test code if this is the STDOUT device # We will be using this to generate print stmts for other tests - set stdout [get_property CONFIG.STDOUT [get_os]] + set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set isStdout [string match $stdout $mhsinst] if {${isStdout} == 1} { append testfunc_call " @@ -172,18 +172,18 @@ proc gen_testfunc_call {swproj mhsinst} { return $testfunc_call } - set deviceid [::hsm::utils::get_ip_param_name $mhsinst "DEVICE_ID"] - set stdout [get_property CONFIG.STDOUT [get_os]] + set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"] + set stdout [get_property CONFIG.STDOUT [hsi::get_os]] if { $stdout == "" || $stdout == "none" } { set hasStdout 0 } else { set hasStdout 1 } if {$ifuartliteintr == 1} { - set intr_pin_name [get_pins -of_objects [get_cells $ipname] -filter "TYPE==INTERRUPT"] - set intcname [::hsm::utils::get_connected_intr_cntrl $ipname $intr_pin_name] + set intr_pin_name [hsi::get_pins -of_objects [hsi::get_cells $ipname] -filter "TYPE==INTERRUPT"] + set intcname [::hsi::utils::get_connected_intr_cntrl $ipname $intr_pin_name] set intcvar intc - set proc [get_property IP_NAME [get_cells [get_sw_processor]]] + set proc [get_property IP_NAME [hsi::get_cells [hsi::get_sw_processor]]] set mdm_name [get_property IP_NAME $mhsinst] }