fft_cplx_32_ts101.tcl

ADI TS系列的DSP FFT源代码

proc fft_cplx_32_TS101 { {target_name "TS101"} {test_name "test1"} } {
  cd "..\\"
	set benchmark_name "fft_flp32_TS101"
	set outdata_name "output"
  set indata_name "input"

	puts [format "Testing %s (%s) on target: %s" $benchmark_name $test_name $target_name]


  # build the program
	catch { dspprojectclose }
  dspprojectload [format "%s.dpj" $benchmark_name]
	dspprojectbuild Debug -all -wait

	# run the program
  #load the executable
  dspload [format "debug\\%s.dxe" $benchmark_name]  -wait
	dsprun -wait
  puts "program was executed"
#wait until the DSP has halted
#  dsphalt -wait

	set buf_size 64
	set fid [open "outputs/output_cplx_32.dat" w]
  puts $fid
	set memory [lindex [lindex [dspgetmeminfo] 0] 0]
	set outdata [dspgetmemblock $memory [dsplookupsymbol $outdata_name] $buf_size -format "Floating Point 32 bit"]

    set index 0
    while {$index < $buf_size} {
           set cur00 [lindex $outdata $index]
            puts $fid [format "%g" $cur00]
            set index [expr $index+1]
          }

  close $fid

  cd "tcl_TS101"
  puts "Done\n"

#	dspprojectclose
}