From 6a30919fd9ab73927309cded79d13d638bfe6961 Mon Sep 17 00:00:00 2001 From: Kishore Kumar Korathaluri Date: Fri, 9 Jan 2015 16:18:28 +0530 Subject: [PATCH] scaler : added common namespace to all common tcl commands. Signed-off-by: Kishore Kumar Korathaluri --- XilinxProcessorIPLib/drivers/scaler/data/scaler.tcl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/XilinxProcessorIPLib/drivers/scaler/data/scaler.tcl b/XilinxProcessorIPLib/drivers/scaler/data/scaler.tcl index a6b3a578..8486567a 100755 --- a/XilinxProcessorIPLib/drivers/scaler/data/scaler.tcl +++ b/XilinxProcessorIPLib/drivers/scaler/data/scaler.tcl @@ -55,7 +55,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} { # Get the names of all the peripherals connected to this driver foreach periph $periphs { - set peripheral_name [string toupper [get_property NAME $periph]] + set peripheral_name [string toupper [common::get_property NAME $periph]] lappend peripherals $peripheral_name } @@ -76,7 +76,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} { set i 0 foreach periph $periphs { - set periph_name [string toupper [get_property NAME $periph]] + set periph_name [string toupper [common::get_property NAME $periph]] # Generate canonical definitions only for the peripherals whose # canonical name is not the same as hardware instance name @@ -91,7 +91,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} { # set rvalue [::hsi::utils::get_ip_param_name $periph $arg] # The rvalue set below is the actual value of the parameter - set rvalue [get_property CONFIG.$arg $periph] + set rvalue [common::get_property CONFIG.$arg $periph] if {[llength $rvalue] == 0} { set rvalue 0 }