From 1b1ff89c162f398965f759b5a7d7926414459adf Mon Sep 17 00:00:00 2001
From: Hans Baier <hansfbaier@gmail.com>
Date: Fri, 16 Dec 2022 17:00:59 +0700
Subject: [PATCH] write_io_banks.tcl: use a reliable way to distinguish high
 performance banks

Signed-off-by: Hans Baier <hansfbaier@gmail.com>
---
 fuzzers/030-iob18/write_io_banks.tcl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/fuzzers/030-iob18/write_io_banks.tcl b/fuzzers/030-iob18/write_io_banks.tcl
index c433e5e8..aca8c1d0 100644
--- a/fuzzers/030-iob18/write_io_banks.tcl
+++ b/fuzzers/030-iob18/write_io_banks.tcl
@@ -12,8 +12,7 @@ set fp [open "iobanks.txt" "w"]
 foreach iobank [get_iobanks] {
     foreach site [get_sites -of $iobank] {
         # we only care about the high performance banks here
-        # and those are numbered 32, 33, 34...
-        if {[string match "3*" $iobank]} {
+        if {[string match "BT_HIGH_PERFORMANCE" [get_property BANK_TYPE $iobank]]} {
             puts $fp "$site,$iobank"
         }
     }