From d5ee439ea50e81257eec039b97d493da0ea9b687 Mon Sep 17 00:00:00 2001
From: Kishore Kumar Korathaluri <kkorath@xilinx.com>
Date: Mon, 12 Jan 2015 09:33:32 +0530
Subject: [PATCH] uartlite : added common namespace to all comman tcl commands.
Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
---
.../drivers/uartlite/data/uartlite_tapp.tcl | 24 +++++++++----------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl b/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl
index 13e349a1..61488f05 100755
--- a/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl
+++ b/XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl
@@ -67,9 +67,9 @@ proc gen_include_files {swproj mhsinst} {
return ""
}
if {$swproj == 1} {
- set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
+ set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst]
- set ipname [get_property IP_NAME $mhsinst]
+ set ipname [common::get_property IP_NAME $mhsinst]
if {${isStdout} == 0} {
set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
if {$ifuartliteintr == 1} {
@@ -94,8 +94,8 @@ proc gen_src_files {swproj mhsinst} {
if {$swproj == 1} {
- set ipname [get_property IP_NAME $mhsinst]
- set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
+ set ipname [common::get_property IP_NAME $mhsinst]
+ set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 0} {
set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
@@ -126,13 +126,13 @@ proc gen_init_code {swproj mhsinst} {
return ""
}
if {$swproj == 1} {
- set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
+ set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 0} {
- set ipname [get_property NAME $mhsinst]
+ set ipname [common::get_property NAME $mhsinst]
set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
- set mdm_name [get_property IP_NAME $mhsinst]
+ set mdm_name [common::get_property IP_NAME $mhsinst]
if {$ifuartliteintr == 1} {
if {$mdm_name == "mdm"} {
return ""
@@ -150,7 +150,7 @@ proc gen_init_code {swproj mhsinst} {
proc gen_testfunc_call {swproj mhsinst} {
- set ipname [get_property NAME $mhsinst]
+ set ipname [common::get_property NAME $mhsinst]
set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
set testfunc_call ""
@@ -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 [hsi::get_os]]
+ set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 1} {
append testfunc_call "
@@ -173,7 +173,7 @@ proc gen_testfunc_call {swproj mhsinst} {
}
set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
- set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
+ set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
if { $stdout == "" || $stdout == "none" } {
set hasStdout 0
} else {
@@ -183,8 +183,8 @@ proc gen_testfunc_call {swproj mhsinst} {
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 [hsi::get_cells [hsi::get_sw_processor]]]
- set mdm_name [get_property IP_NAME $mhsinst]
+ set proc [common::get_property IP_NAME [hsi::get_cells [hsi::get_sw_processor]]]
+ set mdm_name [common::get_property IP_NAME $mhsinst]
}
if {${hasStdout} == 0} {