OpenCores
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.