URL
https://opencores.org/ocsvn/dblclockfft/dblclockfft/trunk
Subversion Repositories dblclockfft
[/] [dblclockfft/] [trunk/] [bench/] [cpp/] [butterfly_tb.cpp] - Rev 3
Go to most recent revision | Compare with Previous | Blame | View Log
#include <stdio.h> #include <stdint.h> #include "Vbutterfly.h" #include "verilated.h" void tick(Vbutterfly *bfly) { bfly->i_clk = 0; bfly->eval(); bfly->i_clk = 1; bfly->eval(); } void reset(Vbutterfly *bfly) { bfly->i_ce = 0; bfly->i_rst = 1; tick(bfly); bfly->i_ce = 0; bfly->i_rst = 0; tick(bfly); } int main(int argc, char **argv, char **envp) { Verilated::commandArgs(argc, argv); Vbutterfly *bfly = new Vbutterfly; int16_t ir0, ii0, lstr, lsti; int32_t sumr, sumi, difr, difi; int32_t smr, smi, dfr, dfi; int rnd = 0; reset(bfly); for(int k=0; k<270; k++) { int32_t or0, oi0, or1, oi1; bfly->i_ce = 1; bfly->i_sync = ((k&0x0ff)==0); // Let's pick some random values, ... ir0 = rand(); if (ir0&4) ir0 = -ir0; ii0 = rand(); if (ii0&2) ii0 = -ii0; bfly->i_data = ((ir0&0x0ffff) << 16) | (ii0 & 0x0ffff); tick(bfly); printf("k=%3d: COEF=%08x, LFT=%08x, RHT=%08x, AUX=%d, OLFT =%09lx, ORHT=%09lx, AUX=%d\n", k, bfly->i_coef, bfly->i_left, bfly->i_right, bfly->i_aux, bfly->o_left, bfly->o_right, bfly->o_sync); or0 = (bfly->o_data >> 17) & 0x01ffff; oi0 = bfly->o_data & 0x01ffff; if (or0 & 0x010000) or0 |= (-1<<16); if (oi0 & 0x010000) oi0 |= (-1<<16); if (k>3) { /* printf("\tOR0 = %6x, OI0 = %6x, SUM = %6x + %6x, DIF = %6x + %6x\n", or0, oi0, sumr, sumi, difr, difi); */ if (0==(k&1)) { if (or0 != sumr) {fprintf(stderr, "FAIL 1\n"); exit(-1);} if (oi0 != sumi) {fprintf(stderr, "FAIL 2\n"); exit(-1);} } else if (1==(k&1)) { if (or0 != difr) {fprintf(stderr, "FAIL 3\n"); exit(-1);} if (oi0 != difi) {fprintf(stderr, "FAIL 4\n"); exit(-1);} } } if (((4==(k&0x0ff))?1:0) != bfly->o_sync) { fprintf(stderr, "BAD O-SYNC\n"); exit(-1); } if (1 == (k&1)) { sumr = smr; sumi = smi; difr=dfr, difi= dfi; smr = lstr + ir0 + rnd; smi = lsti + ii0 + rnd; dfr = lstr - ir0 + rnd; dfi = lsti - ii0 + rnd; } lstr = ir0; lsti = ii0; } delete bfly; exit(0); }
Go to most recent revision | Compare with Previous | Blame | View Log