From 0284e7247a930f12b20443f6a544879721ac8725 Mon Sep 17 00:00:00 2001
From: Kishore Kumar Korathaluri <kkorath@xilinx.com>
Date: Fri, 9 Jan 2015 14:41:21 +0530
Subject: [PATCH] axipcie: added common namespace to all common tcl commands.

Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
---
 .../drivers/axipcie/data/axipcie.tcl                 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/XilinxProcessorIPLib/drivers/axipcie/data/axipcie.tcl b/XilinxProcessorIPLib/drivers/axipcie/data/axipcie.tcl
index 67a84854..acf9094a 100755
--- a/XilinxProcessorIPLib/drivers/axipcie/data/axipcie.tcl
+++ b/XilinxProcessorIPLib/drivers/axipcie/data/axipcie.tcl
@@ -151,7 +151,7 @@ proc xdefine_pcie_include_file {drv_handle file_name drv_string args} {
     set arg "NUM_INSTANCES"
     set posn [lsearch -exact $args $arg]
     if {$posn > -1} {
-        puts $file_handle "/* Definitions for driver [string toupper [get_property NAME $drv_handle]] */"
+        puts $file_handle "/* Definitions for driver [string toupper [common::get_property NAME $drv_handle]] */"
         # Define NUM_INSTANCES
         puts $file_handle "#define [::hsi::utils::get_driver_param_name $drv_string $arg] [llength $periphs]"
         set args [lreplace $args $posn $posn]
@@ -160,11 +160,11 @@ proc xdefine_pcie_include_file {drv_handle file_name drv_string args} {
 
     lappend newargs
     foreach arg $args {
-        set value [get_property CONFIG.$arg $drv_handle]
+        set value [common::get_property CONFIG.$arg $drv_handle]
         if {[llength $value] == 0} {
             lappend newargs $arg
         } else {
-            puts $file_handle "#define [::hsi::utils::get_driver_param_name $drv_string $arg] [get_property CONFIG.$arg $drv_handle]"
+            puts $file_handle "#define [::hsi::utils::get_driver_param_name $drv_string $arg] [common::get_property CONFIG.$arg $drv_handle]"
         }
     }
     set args $newargs
@@ -173,7 +173,7 @@ proc xdefine_pcie_include_file {drv_handle file_name drv_string args} {
     set device_id 0
     foreach periph $periphs {
         puts $file_handle ""
-        puts $file_handle "/* Definitions for peripheral [string toupper [get_property NAME $periph]] */"
+        puts $file_handle "/* Definitions for peripheral [string toupper [common::get_property NAME $periph]] */"
         foreach arg $args {
             if {[string compare -nocase "DEVICE_ID" $arg] == 0} {
                 set value $device_id
@@ -219,7 +219,7 @@ proc xdefine_pcie_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
     }
 
@@ -241,7 +241,7 @@ proc xdefine_pcie_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