iomodule : added namespace for all HSI TCL commands.

Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
This commit is contained in:
Kishore Kumar Korathaluri 2015-01-05 15:02:06 +05:30 committed by Nava kishore Manne
parent 1a9148df31
commit f8d1c258f5
2 changed files with 8 additions and 8 deletions

View file

@ -303,7 +303,7 @@ proc iomodule_define_vector_table {periph config_inc config_file} {
set i 0 set i 0
foreach source_pin $source_ports { 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} { if { [llength $source_periph ] == 0} {
#external interrupt port case #external interrupt port case
set width [hsi::utils::get_port_width $source_pin] 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 port_type($i) "local"
set source_name($i) [get_property NAME $source_periph] set source_name($i) [get_property NAME $source_periph]
set source_port_name($i) [get_property NAME $source_pin] 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 set source_interrupt_handler($i) $default_interrupt_handler
incr i incr i
} }
if {[string compare -nocase $source_driver ""] != 0} { 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} { if {[string compare -nocase $int_array ""] != 0} {
set int_array_elems [xget_handle $int_array "ELEMENTS" "*"] set int_array_elems [xget_handle $int_array "ELEMENTS" "*"]
foreach int_array_elem $int_array_elems { foreach int_array_elem $int_array_elems {
@ -493,7 +493,7 @@ proc xredefine_iomodule {drvhandle config_inc} {
set i 0 set i 0
lappend source_list lappend source_list
foreach source_pin $source_ports { 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} { if { [llength $source_periph($i) ] == 0} {
#external interrupt port case #external interrupt port case
set width [hsi::utils::get_port_width $source_pin] 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 port_type($i) "local"
set source_name($i) [get_property NAME $source_periph($i)] set source_name($i) [get_property NAME $source_periph($i)]
set source_port_name($i) [get_property NAME $source_pin] 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 set source_interrupt_handler($i) $default_interrupt_handler
lappend source_list $source_name($i) lappend source_list $source_name($i)
incr i incr i
@ -530,7 +530,7 @@ proc xredefine_iomodule {drvhandle config_inc} {
continue 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)] set iptype [get_property IPTYPE $source_periph($i)]
# if {[llength $source_name($i)] != 0 && [llength $drv] != 0 && # if {[llength $source_name($i)] != 0 && [llength $drv] != 0 &&
@ -633,7 +633,7 @@ proc xfind_instance {drvhandle instname} {
# (from external source). # (from external source).
########################################################################## ##########################################################################
proc xget_port_type {periph} { proc xget_port_type {periph} {
set mhs [get_cells -of_object $periph] set mhs [hsi::get_cells -of_object $periph]
if {[llength $mhs] == 0} { if {[llength $mhs] == 0} {
return "global" return "global"
} else { } else {

View file

@ -108,7 +108,7 @@ proc gen_testfunc_call {swproj mhsinst} {
set ipname [get_property NAME $mhsinst] set ipname [get_property NAME $mhsinst]
set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"] 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" } { if { $stdout == "" || $stdout == "none" } {
set hasStdout 0 set hasStdout 0
} else { } else {