ip_alt- avalon/reset definitions

main
Rejeesh Kutty 2015-07-21 10:55:13 -04:00
parent 445c4c835d
commit 264f9ffbfc
1 changed files with 10 additions and 7 deletions

View File

@ -1,7 +1,7 @@
# keep interface-mess out of the way - keeping it pretty is a waste of time
proc ad_alt_intf {type name dir width {remap ""}} {
proc ad_alt_intf {type name dir width {arg_1 ""} {arg_2 ""}} {
if {(($type eq "clock") && ($dir eq "input"))} {
add_interface if_${name} clock sink
@ -18,39 +18,42 @@ proc ad_alt_intf {type name dir width {remap ""}} {
if {(($type eq "reset") && ($dir eq "input"))} {
add_interface if_${name} reset sink
add_interface_port if_${name} ${name} reset ${dir} ${width}
set_interface_property if_${name} associatedclock if_${remap}
set_interface_property if_${name} associatedclock ${arg_1}
return
}
if {(($type eq "reset") && ($dir eq "output"))} {
add_interface if_${name} reset source
add_interface_port if_${name} ${name} reset ${dir} ${width}
set_interface_property if_${name} associatedclock if_${remap}
set_interface_property if_${name} associatedclock ${arg_1}
set_interface_property if_${name} associatedResetSinks ${arg_2}
return
}
if {(($type eq "reset-n") && ($dir eq "input"))} {
add_interface if_${name} reset sink
add_interface_port if_${name} ${name} reset_n ${dir} ${width}
set_interface_property if_${name} associatedclock if_${remap}
set_interface_property if_${name} associatedclock ${arg_1}
return
}
if {(($type eq "reset-n") && ($dir eq "output"))} {
add_interface if_${name} reset source
add_interface_port if_${name} ${name} reset_n ${dir} ${width}
set_interface_property if_${name} associatedclock if_${remap}
set_interface_property if_${name} associatedclock ${arg_1}
set_interface_property if_${name} associatedResetSinks ${arg_2}
return
}
if {(($type eq "intr") && ($dir eq "output"))} {
add_interface if_${name} interrupt source
add_interface_port if_${name} ${name} irq ${dir} ${width}
set_interface_property if_${name} associatedclock if_${remap}
set_interface_property if_${name} associatedclock ${arg_1}
return
}
if {$remap eq ""} {
set remap $arg_1
if {$arg_1 eq ""} {
set remap $name
}