stv0g/embeddedsw
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

intc : added namespace for all HSI TCL commands.

Browse source 
Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
This commit is contained in:
Kishore Kumar Korathaluri 2015-01-05 15:00:47 +05:30 • committed by Nava kishore Manne
parent 583450df55
commit 1a9148df31
2 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
XilinxProcessorIPLib/drivers/intc/data/intc.tcl
View file

@ -249,7 +249,7 @@ proc intc_define_vector_table {periph config_inc config_file} {
variable cascade variable cascade
set periph_name [get_property NAME $periph] set periph_name [get_property NAME $periph]
set interrupt_pin [get_pins -of_objects $periph intr] set interrupt_pin [hsi::get_pins -of_objects $periph intr]
# Get pins/ports that are driving the interrupt # Get pins/ports that are driving the interrupt
lappend source_pins lappend source_pins
@ -282,11 +282,11 @@ proc intc_define_vector_table {periph config_inc config_file} {
} }
} else { } else {
#peripheral interrrupt case #peripheral interrrupt case
set source_periph [get_cells -of_objects $source_pin ] set source_periph [hsi::get_cells -of_objects $source_pin ]
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
} }
@ -454,7 +454,7 @@ proc xredefine_intc {drvhandle config_inc} {
incr i incr i
} }
} else { } else {
set source_periph [get_cells -of_objects $source_pin] set source_periph [hsi::get_cells -of_objects $source_pin]
set source_name($i) [get_property NAME $source_periph] set source_name($i) [get_property NAME $source_periph]
lappend source_list $source_name($i) lappend source_list $source_name($i)
incr i incr i
@ -468,7 +468,7 @@ proc xredefine_intc {drvhandle config_inc} {
if {[string compare -nocase $source_name($i) "system"] == 0} { if {[string compare -nocase $source_name($i) "system"] == 0} {
continue continue
} }
set drv [get_drivers -filter "HW_INSTANCE==$source_name($i)"] set drv [hsi::get_drivers -filter "HW_INSTANCE==$source_name($i)"]
if {[llength $source_name($i)] != 0 && [llength $drv] != 0} { if {[llength $source_name($i)] != 0 && [llength $drv] != 0} {
@ -591,7 +591,7 @@ proc check_cascade {drv_handle} {
if { [::hsi::utils::is_external_pin $source_pin] } { if { [::hsi::utils::is_external_pin $source_pin] } {
continue continue
} }
set source_periph [get_cells -of_objects $source_pin ] set source_periph [hsi::get_cells -of_objects $source_pin ]
set source_type [get_property IP_TYPE $source_periph] set source_type [get_property IP_TYPE $source_periph]
if {[string compare -nocase $source_type "INTERRUPT_CNTLR"] == 0} { if {[string compare -nocase $source_type "INTERRUPT_CNTLR"] == 0} {
return 1 return 1

4
XilinxProcessorIPLib/drivers/intc/data/intc_tapp.tcl
View file

@ -109,7 +109,7 @@ if {$cascade == 1} {
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 {
@ -195,7 +195,7 @@ proc check_cascade {mhsinst} {
if { [::hsi::utils::is_external_pin $source_pin] } { if { [::hsi::utils::is_external_pin $source_pin] } {
continue continue
} }
set source_periph [get_cells -of_objects $source_pin ] set source_periph [hsi::get_cells -of_objects $source_pin ]
set source_type [get_property IP_TYPE $source_periph] set source_type [get_property IP_TYPE $source_periph]
if {[string compare -nocase $source_type "INTERRUPT_CNTLR"] == 0} { if {[string compare -nocase $source_type "INTERRUPT_CNTLR"] == 0} {
return 1 return 1