Subversion Repositories dblclockfft

////////////////////////////////////////////////////////////////////////////

//

// Filename:    mpy_tb.cpp

//

// Project:     A Doubletime Pipelined FFT

//

// Purpose:     A test-bench for the shift and add shiftaddmpy.v subfile of

//              the double clocked FFT.  This file may be run autonomously. 

//              If so, the last line output will either read "SUCCESS" on

//              success, or some other failure message otherwise.

//

//              This file depends upon verilator to both compile, run, and

//              therefore test shiftaddmpy.v

//

// Creator:     Dan Gisselquist, Ph.D.

//              Gisselquist Technology, LLC

//

///////////////////////////////////////////////////////////////////////////

//

// Copyright (C) 2015, Gisselquist Technology, LLC

//

// This program is free software (firmware): you can redistribute it and/or

// modify it under the terms of  the GNU General Public License as published

// by the Free Software Foundation, either version 3 of the License, 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 MERCHANTIBILITY or

// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

// for more details.

//

// You should have received a copy of the GNU General Public License along

// with this program.  (It's in the $(ROOT)/doc directory, run make with no

// target there if the PDF file isn't present.)  If not, see

// <http://www.gnu.org/licenses/> for a copy.

//

// License:     GPL, v3, as defined and found on www.gnu.org,

//              http://www.gnu.org/licenses/gpl.html

//

//

///////////////////////////////////////////////////////////////////////////

#include "fftsize.h"

#ifdef  USE_OLD_MULTIPLY

#include "Vshiftaddmpy.h"

typedef Vshiftaddmpy    Vmpy;

#define AW      TST_SHIFTADDMPY_AW

#define BW      TST_SHIFTADDMPY_BW

#define DELAY   (TST_SHIFTADDMPY_AW+2)

#else

#include "Vlongbimpy.h"

typedef Vlongbimpy      Vmpy;

#define AW      TST_LONGBIMPY_AW

#define BW      TST_LONGBIMPY_BW

#define DELAY   ((AW/2)+(AW&1)+2)

#endif

#include "verilated.h"

#include "twoc.h"

class   MPYTB {

public:

        Vmpy    *mpy;

        long    vals[32];

        int     m_addr;

        MPYTB(void) {

                mpy = new Vmpy;

                for(int i=0; i<32; i++)

                        vals[i] = 0;

                m_addr = 0;

        }

        ~MPYTB(void) {

                delete mpy;

        }

        void    tick(void) {

                mpy->i_clk = 0;

                mpy->eval();

                mpy->i_clk = 1;

                mpy->eval();

        }

        void    reset(void) {

                mpy->i_clk = 0;

                mpy->i_ce = 1;

                mpy->i_a = 0;

                mpy->i_b = 0;

                for(int k=0; k<20; k++)

                        tick();

        }

        bool    test(const int ia, const int ib) {

                bool    success;

                long    a, b, out;

                a = sbits(ia, AW);

                b = sbits(ib, BW);

                mpy->i_ce = 1;

                mpy->i_a = ubits(a, AW);

                mpy->i_b = ubits(b, BW);

                vals[m_addr&31] = a * b;

                tick();

                if (rand()&1) {

                        mpy->i_ce = 0;

                        tick();

                }

                printf("k=%3d: A =%04x, B =%05x -> O = %9lx (ANS=%10lx)\n",

                        m_addr, (int)ubits(a,AW), (int)ubits(b,BW),

                        (long)mpy->o_r, ubits(vals[m_addr&31], AW+BW+4));

                out = sbits(mpy->o_r, AW+BW);

                m_addr++;

                success = (m_addr < (DELAY+2))||(out == vals[(m_addr-DELAY)&31]);

                if (!success) {

                        printf("WRONG ANSWER: %8lx (exp) != %8lx (sut)\n", vals[(m_addr-DELAY)&0x01f], out);

                        exit(-1);

                }

                return success;

        }

};

int     main(int argc, char **argv, char **envp) {

        Verilated::commandArgs(argc, argv);

        MPYTB           *tb = new MPYTB;

        tb->reset();

        for(int k=0; k<15; k++) {

                int     a, b;

                a = (1<<k);

                b = 1;

                tb->test(a, b);

        }

        for(int k=0; k<15; k++) {

                int     a, b, out;

                a = (1<<15);

                b = (1<<k);

                tb->test(a, b);

        }

        for(int k=0; k<2048; k++) {

                int     a, b, out;

                tb->test(rand(), rand());

        }

        delete  tb;

        printf("SUCCESS!\n");

        exit(0);

}