FFTIFFTTest.bsv
上传用户:aoptech
上传日期:2014-09-22
资源大小:784k
文件大小:3k
- //----------------------------------------------------------------------//
- // The MIT License
- //
- // Copyright (c) 2007 Alfred Man Cheuk Ng, mcn02@mit.edu
- //
- // Permission is hereby granted, free of charge, to any person
- // obtaining a copy of this software and associated documentation
- // files (the "Software"), to deal in the Software without
- // restriction, including without limitation the rights to use,
- // copy, modify, merge, publish, distribute, sublicense, and/or sell
- // copies of the Software, and to permit persons to whom the
- // Software is furnished to do so, subject to the following conditions:
- //
- // The above copyright notice and this permission notice shall be
- // included in all copies or substantial portions of the Software.
- //
- // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
- // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
- // OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
- // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
- // HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
- // WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- // FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
- // OTHER DEALINGS IN THE SOFTWARE.
- //----------------------------------------------------------------------//
- import Connectable::*;
- import Complex::*;
- import FPComplex::*;
- import DataTypes::*;
- import CORDIC::*;
- import FixedPoint::*;
- import Vector::*;
- import FIFO::*;
- import FIFOF::*;
- import FParams::*;
- import FFTIFFT_Library::*;
- import GetPut::*;
- import FFTIFFT::*;
- import RandomGen::*;
- function Action fpcmplxVecWrite(Integer fwidth, FFTDataVec dataVec);
- return joinActions(map(fpcmplxWrite(fwidth),dataVec));
- endfunction // Action
- (* synthesize *)
- module mkFFTIFFTTest(Empty);
- RandomGen#(64) randGen <- mkMersenneTwister(64'hB573AE980FF1134C);
- FFTIFFT fft <- mkFFTIFFT;
- FFTIFFT ifft <- mkFFTIFFT;
- Reg#(FFTDataVec) dataVec <- mkReg(replicate(0));
- Reg#(Bit#(16)) putfftCnt <- mkReg(0);
- Reg#(Bit#(16)) putifftCnt <- mkReg(0);
- Reg#(Bit#(16)) getifftCnt <- mkReg(0);
- Reg#(Bit#(32)) cycle <- mkReg(0);
- rule putFFT(True);
- let randData <- randGen.genRand;
- FPComplex#(2,14) newfpcmplx = unpack(randData[31:0]);
- let newDataVec = shiftInAt0(dataVec,
- fpcmplxSignExtend(newfpcmplx));
- dataVec <= newDataVec;
- putfftCnt <= putfftCnt + 1;
- fft.putInput(False, dataVec);
- $write("fft_in_%h = [",putfftCnt);
- fpcmplxVecWrite(4, dataVec);
- $display("];");
- endrule
- rule putIFFT(True);
- let mesg <- fft.getOutput;
- putifftCnt <= putifftCnt + 1;
- ifft.putInput(True, mesg);
- $write("fft_out_%h = [",putifftCnt);
- fpcmplxVecWrite(4, mesg);
- $display("];");
- endrule
- rule getIFFT(True);
- let mesg <- ifft.getOutput;
- getifftCnt <= getifftCnt + 1;
- $write("ifft_out_%h = [",getifftCnt);
- fpcmplxVecWrite(4, mesg);
- $display("];");
- if (getifftCnt == 1024)
- $finish(0);
- endrule
-
- rule tick(True);
- cycle <= cycle + 1;
- $display("cycle: %d",cycle);
- endrule
-
- endmodule // mkFFTTest