mirror of https://github.com/openXC7/prjxray.git
28 lines
1.0 KiB
Tcl
28 lines
1.0 KiB
Tcl
# Copyright (C) 2017-2020 The Project X-Ray Authors
|
|
#
|
|
# Use of this source code is governed by a ISC-style
|
|
# license that can be found in the LICENSE file or at
|
|
# https://opensource.org/licenses/ISC
|
|
#
|
|
# SPDX-License-Identifier: ISC
|
|
create_project -force -part $::env(XRAY_PART) design design
|
|
set_property design_mode PinPlanning [current_fileset]
|
|
open_io_design -name io_1
|
|
|
|
proc print_tile_pips {tile_type filename} {
|
|
set tile [lindex [get_tiles -filter "TYPE == $tile_type"] 0]
|
|
puts "Dumping BRAM PIPs for tile $tile ($tile_type) to $filename."
|
|
set fp [open $filename w]
|
|
foreach pip [lsort [get_pips -filter {IS_DIRECTIONAL} -of_objects [get_tiles $tile]]] {
|
|
set src [get_wires -uphill -of_objects $pip]
|
|
set dst [get_wires -downhill -of_objects $pip]
|
|
if {[llength [get_nodes -uphill -of_objects [get_nodes -of_objects $dst]]] != 1} {
|
|
puts $fp "$tile_type.[regsub {.*/} $dst ""].[regsub {.*/} $src ""]"
|
|
}
|
|
}
|
|
close $fp
|
|
}
|
|
|
|
print_tile_pips BRAM_L bram_pips_int_l.txt
|
|
print_tile_pips BRAM_R bram_pips_int_r.txt
|