From 73da6c30ece637b4d88d6ea6e3214270d7e72341 Mon Sep 17 00:00:00 2001 From: John McMaster Date: Tue, 11 Dec 2018 17:56:02 -0800 Subject: [PATCH] intpips: generate print current tile number Signed-off-by: John McMaster --- fuzzers/050-intpips/generate.tcl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/fuzzers/050-intpips/generate.tcl b/fuzzers/050-intpips/generate.tcl index cd3e31ca..5abf5ba9 100644 --- a/fuzzers/050-intpips/generate.tcl +++ b/fuzzers/050-intpips/generate.tcl @@ -32,8 +32,13 @@ proc write_txtdata {filename} { puts "Writing $filename." set fp [open $filename w] set all_pips [lsort -unique [get_pips -of_objects [get_nets -hierarchical]]] - foreach tile [get_tiles [regsub -all {CLBL[LM]} [get_tiles -of_objects [get_sites -of_objects [get_pblocks roi]]] INT]] { - puts "Dumping pips from tile $tile" + # FIXME: getting IOB. Don't think this works correctly + set tiles [get_tiles [regsub -all {CLBL[LM]} [get_tiles -of_objects [get_sites -of_objects [get_pblocks roi]]] INT]] + set ntiles [llength $tiles] + set tilei 0 + foreach tile $tiles { + incr tilei + puts "Dumping pips from tile $tile ($tilei / $ntiles)" foreach pip [filter $all_pips "TILE == $tile"] { set src_wire [get_wires -uphill -of_objects $pip] set dst_wire [get_wires -downhill -of_objects $pip]