From 21c7a2dd64546e33ff02e1c163679afd8efc167a Mon Sep 17 00:00:00 2001
From: Kishore Kumar Korathaluri <kkorath@xilinx.com>
Date: Mon, 5 Jan 2015 15:02:06 +0530
Subject: [PATCH] iomodule : added namespace for all HSI TCL commands.

Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
---
 .../drivers/iomodule/data/iomodule.tcl             | 14 +++++++-------
 .../drivers/iomodule/data/iomodule_tapp.tcl        |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/XilinxProcessorIPLib/drivers/iomodule/data/iomodule.tcl b/XilinxProcessorIPLib/drivers/iomodule/data/iomodule.tcl
index e87f7bd9..b3b406d4 100755
--- a/XilinxProcessorIPLib/drivers/iomodule/data/iomodule.tcl
+++ b/XilinxProcessorIPLib/drivers/iomodule/data/iomodule.tcl
@@ -303,7 +303,7 @@ proc iomodule_define_vector_table {periph config_inc config_file} {
 
      set i 0
     foreach source_pin $source_ports {
-        set source_periph [get_cells -of_objects $source_pin ]
+        set source_periph [hsi::get_cells -of_objects $source_pin ]
         if { [llength $source_periph ] == 0} {
             #external interrupt port case
             set width [hsi::utils::get_port_width $source_pin]
@@ -320,12 +320,12 @@ proc iomodule_define_vector_table {periph config_inc config_file} {
             set port_type($i) "local"
             set source_name($i) [get_property NAME $source_periph]
             set source_port_name($i) [get_property NAME $source_pin]
-            set source_driver [get_drivers -filter "HW_INSTANCE==$source_periph"]
+            set source_driver [hsi::get_drivers -filter "HW_INSTANCE==$source_periph"]
     		set source_interrupt_handler($i) $default_interrupt_handler
             incr i
         }
         if {[string compare -nocase $source_driver ""] != 0} {
-            set int_array [get_arrays interrupt_handler -of_objects $source_driver]
+            set int_array [hsi::get_arrays interrupt_handler -of_objects $source_driver]
             if {[string compare -nocase $int_array ""] != 0} {
                 set int_array_elems [xget_handle $int_array "ELEMENTS" "*"]
                 foreach int_array_elem $int_array_elems {
@@ -493,7 +493,7 @@ proc xredefine_iomodule {drvhandle config_inc} {
 	set i 0
 	lappend source_list
         foreach source_pin $source_ports {
-        set source_periph($i) [get_cells -of_objects $source_pin ]
+        set source_periph($i) [hsi::get_cells -of_objects $source_pin ]
         if { [llength $source_periph($i) ] == 0} {
             #external interrupt port case
             set width [hsi::utils::get_port_width $source_pin]
@@ -511,7 +511,7 @@ proc xredefine_iomodule {drvhandle config_inc} {
             set port_type($i) "local"
             set source_name($i) [get_property NAME $source_periph($i)]
             set source_port_name($i) [get_property NAME $source_pin]
-            set source_driver [get_drivers -filter "HW_INSTANCE==$source_periph($i)"]
+            set source_driver [hsi::get_drivers -filter "HW_INSTANCE==$source_periph($i)"]
     	    set source_interrupt_handler($i) $default_interrupt_handler
 	    lappend source_list $source_name($i)
             incr i
@@ -530,7 +530,7 @@ proc xredefine_iomodule {drvhandle config_inc} {
                 continue
             }
 
-            set drv [get_drivers -filter "HW_INSTANCE==$source_name($i)"]
+            set drv [hsi::get_drivers -filter "HW_INSTANCE==$source_name($i)"]
             set iptype [get_property IPTYPE $source_periph($i)]
 
 #           if {[llength $source_name($i)] != 0 && [llength $drv] != 0 && 
@@ -633,7 +633,7 @@ proc xfind_instance {drvhandle instname} {
 # (from external source).
 ##########################################################################
 proc xget_port_type {periph} {
-    set mhs [get_cells -of_object $periph]
+    set mhs [hsi::get_cells -of_object $periph]
     if {[llength $mhs] == 0} {
         return "global"
     } else {
diff --git a/XilinxProcessorIPLib/drivers/iomodule/data/iomodule_tapp.tcl b/XilinxProcessorIPLib/drivers/iomodule/data/iomodule_tapp.tcl
index 7adf6e88..abd732aa 100755
--- a/XilinxProcessorIPLib/drivers/iomodule/data/iomodule_tapp.tcl
+++ b/XilinxProcessorIPLib/drivers/iomodule/data/iomodule_tapp.tcl
@@ -108,7 +108,7 @@ proc gen_testfunc_call {swproj mhsinst} {
 
     set ipname [get_property NAME $mhsinst] 
     set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
-    set stdout [get_property CONFIG.STDOUT [get_os]]
+    set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
     if { $stdout == "" || $stdout == "none" } {
        set hasStdout 0
     } else {