wfjm.w11/tools/tcl/rbbram/perf.tcl

# $Id: perf.tcl 985 2018-01-03 08:59:40Z mueller $
#
# Copyright 2011-2014 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
#
# This program is free software; you may redistribute and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation, either version 3, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for complete details.
#
#  Revision History:
# Date         Rev Version  Comment
# 2015-02-07   643   1.1.2  perf_blk(): use proper rbmax, add nmax argument
# 2014-12-27   622   1.1.1  don't use read buffers in rblk speed test
# 2014-12-06   609   1.1    test 512,1024,2000 word wblk/rbld; retra buffer cut
# 2013-01-04   469   1.0.2  perf_blk: add optional 2nd arg: trace
# 2012-12-27   465   1.0.1  adopt format, cover small ms and large kb 
# 2011-04-17   376   1.0    Initial version
#

package provide rbbram 1.0

namespace eval rbbram {
  #
  # perf_blk: determine wblk/rblk write performance
  # 
  proc perf_blk {{tmax 1000} {trace 0} {nmax 2000}} {
    set rbmax [expr {[rlc get bsizemax] - 32}]

    if {$tmax < 1} { error "-E: perf_blk: tmax argument must be >= 1" }

    set amax [regget rbbram::CNTL(addr) -1]
    set rval \
"nblk   1 wblk   |  2 wblk   |  4 wblk   |  1 rblk   |  2 rblk   |  4 rblk   "
    append rval \
"\n      ms/r  kB/s  ms/r  kB/s  ms/r  kB/s  ms/r  kB/s  ms/r  kB/s  ms/r  kB/s"

    #  256 512 1024
    foreach nblk {1 2 4 8 16 32 64 128 256 512 768 1024 1536 2000} {
      if {$nblk > $nmax} {break}
      set wbuf0 {}
      set wbuf1 {}
      set wbuf2 {}
      set wbuf3 {}
      for {set i 0} {$i < $nblk} {incr i} {
        lappend wbuf0 $i
        lappend wbuf1 [expr {0x1000 + $i}]
        lappend wbuf2 [expr {0x2000 + $i}]
        lappend wbuf3 [expr {0x3000 + $i}]
      }

      set pval {}

      # single wblk
      if {$trace} { puts "1 wblk for $nblk" }
      set tbeg [clock milliseconds]
      set addr 0x0000
      for {set i 1} {1} {incr i} {
        rlc exec \
          -wreg br.cntl $addr  \
          -wblk br.data $wbuf0
        set trun [expr {[clock milliseconds] - $tbeg}]
        if {$trun > $tmax} { break }
        set addr [expr {( $addr + $nblk ) & $amax}]
      }
      lappend pval 1 $i $trun

      # double wblk
      if {$trace} { puts "2 wblk for $nblk" }
      set tbeg [clock milliseconds]
      set addr 0x0000
      for {set i 1} {1} {incr i} {
        rlc exec \
          -wreg br.cntl $addr  \
          -wblk br.data $wbuf0 \
          -wblk br.data $wbuf1
        set trun [expr {[clock milliseconds] - $tbeg}]
        if {$trun > $tmax} { break }
        set addr [expr {( $addr + 2 * $nblk ) & $amax}]
      }
      lappend pval 2 $i $trun

      # quad wblk
      if {$trace} { puts "4 wblk for $nblk" }
      set tbeg [clock milliseconds]
      set addr 0x0000
      for {set i 1} {1} {incr i} {
        rlc exec \
          -wreg br.cntl $addr  \
          -wblk br.data $wbuf0 \
          -wblk br.data $wbuf1 \
          -wblk br.data $wbuf2 \
          -wblk br.data $wbuf3 
        set trun [expr {[clock milliseconds] - $tbeg}]
        if {$trun > $tmax} { break }
        set addr [expr {( $addr + 4 * $nblk ) & $amax}]
      }
      lappend pval 4 $i $trun

      # single rblk
      if {$trace} { puts "1 rblk for $nblk" }
      set tbeg [clock milliseconds]
      set addr 0x0000
      for {set i 1} {1} {incr i} {
        rlc exec \
          -wreg br.cntl $addr \
          -rblk br.data $nblk
        set trun [expr {[clock milliseconds] - $tbeg}]
        if {$trun > $tmax} { break }
        set addr [expr {( $addr + $nblk ) & $amax}]
      }
      lappend pval 1 $i $trun

      # double rblk
      if {2*$nblk <= $rbmax} {
        if {$trace} { puts "2 rblk for $nblk" }
        set tbeg [clock milliseconds]
        set addr 0x0000
        for {set i 1} {1} {incr i} {
          rlc exec \
            -wreg br.cntl $addr \
            -rblk br.data $nblk \
            -rblk br.data $nblk
          set trun [expr {[clock milliseconds] - $tbeg}]
          if {$trun > $tmax} { break }
        set addr [expr {( $addr + 2 * $nblk ) & $amax}]
        }
        lappend pval 2 $i $trun
      } else {
        lappend pval 4 "-" "-"
      }

      # quad rblk
      if {4*$nblk <= $rbmax} {
        if {$trace} { puts "4 rblk for $nblk" }
        set tbeg [clock milliseconds]
        set addr 0x0000
        for {set i 1} {1} {incr i} {
          rlc exec \
            -wreg br.cntl $addr \
            -rblk br.data $nblk \
            -rblk br.data $nblk \
            -rblk br.data $nblk \
            -rblk br.data $nblk 
          set trun [expr {[clock milliseconds] - $tbeg}]
          if {$trun > $tmax} { break }
          set addr [expr {( $addr + 4 * $nblk ) & $amax}]
        }
        lappend pval 4 $i $trun
      } else {
        lappend pval 4 "-" "-"
      }

      set oline [format "\n%4d" $nblk]
      foreach {nr i trun} $pval {
        if {$i ne "-"} {
          set ms [expr {double($trun) / double($nr*$i)}]
          set kb [expr {double(2*$nr*$i*$nblk) / double($trun)}]
          if { $ms < 9.94 } {
            append oline [format " %5.2f" $ms]
          } else {
            append oline [format " %5.1f" $ms]
          }
          if { $kb > 999.9 } {
            append oline [format " %5.0f" $kb]
          } else {
            append oline [format " %5.1f" $kb]
          }
        } else {
          append oline "     -     -"
        }
      }

      append rval $oline
    }
    return $rval
  }
}