From db74c60ec29c4b8af9402ee6836e7628a907d4e3 Mon Sep 17 00:00:00 2001
From: Kishore Kumar Korathaluri <kkorath@xilinx.com>
Date: Fri, 9 Jan 2015 16:01:00 +0530
Subject: [PATCH] mig_7series : added common namespace for all common tcl
 commands.

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

diff --git a/XilinxProcessorIPLib/drivers/mig_7series/data/mig_7series.tcl b/XilinxProcessorIPLib/drivers/mig_7series/data/mig_7series.tcl
index fe2861d5..2a218941 100755
--- a/XilinxProcessorIPLib/drivers/mig_7series/data/mig_7series.tcl
+++ b/XilinxProcessorIPLib/drivers/mig_7series/data/mig_7series.tcl
@@ -60,7 +60,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
     }
 
@@ -82,7 +82,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
@@ -93,7 +93,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
             set addr_params ""
             set addr_params [hsi::utils::find_addr_params $periph]
             set arguments [concat $args $addr_params]
-            set memtype [get_property CONFIG.MEM_TYPE $periph]
+            set memtype [common::get_property CONFIG.MEM_TYPE $periph]
        	    
        	    foreach arg $arguments {
                 set lvalue [hsi::utils::get_driver_param_name $canonical_name $arg]
@@ -136,7 +136,7 @@ proc xdefine_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]
@@ -145,11 +145,11 @@ proc xdefine_include_file {drv_handle file_name drv_string args} {
     # Check if it is a driver parameter
     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 $arg $drv_handle]"
+            puts $file_handle "#define [hsi::utils::get_driver_param_name $drv_string $arg] [common::get_property $arg $drv_handle]"
         }
     }
     set args $newargs
@@ -158,14 +158,14 @@ proc xdefine_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]] */"
-        set memtype [get_property CONFIG.MEM_TYPE $periph]
+        puts $file_handle "/* Definitions for peripheral [string toupper [common::get_property NAME $periph]] */"
+        set memtype [common::get_property CONFIG.MEM_TYPE $periph]
         foreach arg $args {
             if {[string compare -nocase "DEVICE_ID" $arg] == 0} {
                 set value $device_id
                 incr device_id
             } else {
-		set value [get_property "CONFIG.${memtype}_$arg" $periph]
+		set value [common::get_property "CONFIG.${memtype}_$arg" $periph]
             }
             if {[llength $value] == 0} {
                 set value 0