Annotation of /trunk/xvidcore/examples/xvid_bench.c

Revision 1794 - (view) (download)

1 :	edgomez	1382	/*****************************************************************************
2 :	Isibaar	225	*
3 :	edgomez	1382	* XVID MPEG-4 VIDEO CODEC
4 :			* - Unit tests and benches -
5 :	Isibaar	225	*
6 :	edgomez	1382	* Copyright(C) 2002 Pascal Massimino <skal@planet-d.net>
7 :	Isibaar	225	*
8 :	edgomez	1382	* This program is free software; you can redistribute it and/or modify
9 :			* it under the terms of the GNU General Public License as published by
10 :			* the Free Software Foundation; either version 2 of the License, or
11 :			* (at your option) any later version.
12 :	Isibaar	225	*
13 :	edgomez	1382	* This program is distributed in the hope that it will be useful,
14 :			* but WITHOUT ANY WARRANTY; without even the implied warranty of
15 :			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 :			* GNU General Public License for more details.
17 :	Isibaar	225	*
18 :	edgomez	1382	* You should have received a copy of the GNU General Public License
19 :			* along with this program; if not, write to the Free Software
20 :			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 :			*
22 :	Isibaar	1794	* $Id: xvid_bench.c,v 1.36 2008-11-14 15:43:27 Isibaar Exp $
23 :	edgomez	1382	*
24 :			****************************************************************************/
25 :	Isibaar	225
26 :	edgomez	1382	/*****************************************************************************
27 :	Isibaar	225	*
28 :			* 'Reference' output is at the end of file.
29 :			*
30 :	edgomez	1382	* compiles with something like:
31 :			* gcc -o xvid_bench xvid_bench.c -I../src/ -lxvidcore -lm
32 :	Isibaar	225	*
33 :	edgomez	1382	****************************************************************************/
34 :	Isibaar	225
35 :			#include <stdio.h>
36 :			#include <stdlib.h>
37 :	edgomez	1382	#include <string.h> /* for memset */
38 :	Isibaar	225	#include <assert.h>
39 :
40 :	suxen_drol	860	#ifndef WIN32
41 :	edgomez	1382	#include <sys/time.h> /* for gettimeofday */
42 :	suxen_drol	860	#else
43 :			#include <time.h>
44 :			#endif
45 :
46 :
47 :	Isibaar	225	#include "xvid.h"
48 :
49 :	edgomez	851	// inner guts
50 :	Isibaar	225	#include "dct/idct.h"
51 :			#include "dct/fdct.h"
52 :			#include "image/colorspace.h"
53 :			#include "image/interpolate8x8.h"
54 :			#include "utils/mem_transfer.h"
55 :	edgomez	1382	#include "quant/quant.h"
56 :	Isibaar	225	#include "motion/sad.h"
57 :			#include "utils/emms.h"
58 :			#include "utils/timer.h"
59 :			#include "quant/quant_matrix.c"
60 :			#include "bitstream/cbp.h"
61 :	Skal	1746	#include "bitstream/bitstream.h"
62 :	Isibaar	225
63 :	Isibaar	262	#include <math.h>
64 :	suxen_drol	860
65 :			#ifndef M_PI
66 :			#define M_PI 3.14159265358979323846
67 :			#endif
68 :
69 :	Skal	1614	int speed_ref = 100; /* on slow machines, decrease this value */
70 :			int verbose = 0;
71 :			unsigned int cpu_mask;
72 :	Isibaar	225
73 :			/*********************************************************************
74 :			* misc
75 :			*********************************************************************/
76 :
77 :	edgomez	1382	/* returns time in micro-s*/
78 :	Isibaar	225	double gettime_usec()
79 :			{
80 :	suxen_drol	860	#ifndef WIN32
81 :	edgomez	1382	struct timeval tv;
82 :			gettimeofday(&tv, 0);
83 :			return tv.tv_sec*1.0e6 + tv.tv_usec;
84 :	suxen_drol	860	#else
85 :			clock_t clk;
86 :			clk = clock();
87 :	Skal	1613	return clk * 1000. / CLOCKS_PER_SEC; /* clock() returns time in Milliseconds */
88 :	suxen_drol	860	#endif
89 :	Isibaar	225	}
90 :
91 :	edgomez	1382	/* returns squared deviates (mean(vv)-mean(v)^2) of a 8x8 block /
92 :	Isibaar	225	double sqr_dev(uint8_t v[8*8])
93 :			{
94 :	edgomez	1382	double sum=0.;
95 :			double sum2=0.;
96 :			int n;
97 :			for (n=0;n<8*8;n++)
98 :			{
99 :			sum += v[n];
100 :			sum2 += v[n]*v[n];
101 :			}
102 :			sum2 /= n;
103 :			sum /= n;
104 :			return sum2-sum*sum;
105 :	Isibaar	225	}
106 :
107 :			/*********************************************************************
108 :			* cpu init
109 :			*********************************************************************/
110 :
111 :			typedef struct {
112 :	edgomez	1382	const char *name;
113 :			unsigned int cpu;
114 :	Isibaar	225	} CPU;
115 :
116 :	Skal	1621	CPU cpu_list[] = {
117 :			{ "PLAINC ", 0 },
118 :	edgomez	1382	#ifdef ARCH_IS_IA32
119 :	Skal	1621	{ "MMX ", XVID_CPU_MMX },
120 :			{ "MMXEXT ", XVID_CPU_MMXEXT \| XVID_CPU_MMX },
121 :			{ "SSE2 ", XVID_CPU_SSE2 \| XVID_CPU_MMX },
122 :	Isibaar	1794	{ "SSE3 ", XVID_CPU_SSE3 \| XVID_CPU_SSE2 \| XVID_CPU_MMX },
123 :			{ "SSE41 ", XVID_CPU_SSE41\| XVID_CPU_SSE3 \| XVID_CPU_SSE2 \| XVID_CPU_MMX },
124 :			{ "3DNOW ", XVID_CPU_3DNOW },
125 :	Skal	1621	{ "3DNOWE ", XVID_CPU_3DNOW \| XVID_CPU_3DNOWEXT },
126 :	edgomez	1382	#endif
127 :	edgomez	1412	#ifdef ARCH_IS_PPC
128 :	Skal	1621	{ "ALTIVEC", XVID_CPU_ALTIVEC },
129 :	edgomez	1412	#endif
130 :	edgomez	1586	#ifdef ARCH_IS_X86_64
131 :	Skal	1621	{ "X86_64 ", XVID_CPU_ASM},
132 :	edgomez	1586	#endif
133 :	Skal	1621	#ifdef ARCH_IS_IA64
134 :			// { "IA64 ", XVID_CPU_IA64 },
135 :	edgomez	1382	#endif
136 :	Skal	1621	// { "TSC ", XVID_CPU_TSC },
137 :			{ 0, 0 }
138 :			};
139 :	Isibaar	225
140 :
141 :			int init_cpu(CPU *cpu)
142 :			{
143 :	edgomez	1382	xvid_gbl_info_t xinfo;
144 :	Isibaar	225
145 :	edgomez	1382	/* Get the available CPU flags */
146 :			memset(&xinfo, 0, sizeof(xinfo));
147 :			xinfo.version = XVID_VERSION;
148 :			xvid_global(NULL, XVID_GBL_INFO, &xinfo, NULL);
149 :
150 :			/* Are we trying to test a subset of the host CPU features */
151 :			if ((xinfo.cpu_flags & cpu->cpu) == cpu->cpu) {
152 :			int xerr;
153 :			xvid_gbl_init_t xinit;
154 :			memset(&xinit, 0, sizeof(xinit));
155 :			xinit.cpu_flags = cpu->cpu \| XVID_CPU_FORCE;
156 :			xinit.version = XVID_VERSION;
157 :			xerr = xvid_global(NULL, XVID_GBL_INIT, &xinit, NULL);
158 :			if (xerr==XVID_ERR_FAIL) {
159 :			/* libxvidcore failed to init */
160 :			return 0;
161 :			}
162 :			} else {
163 :			/* The host CPU doesn't support some required feature for this test */
164 :			return(0);
165 :			}
166 :			return 1;
167 :	Isibaar	225	}
168 :
169 :	edgomez	1382	#define CRC32_REMAINDER 0xCBF43926
170 :			#define CRC32_INITIAL 0xffffffff
171 :
172 :			#define DO1(c, crc) ((crc) = crc32tab[((unsigned int)((crc)>>24) ^ (*c++)) & 0xff] ^ ((crc) << 8))
173 :			#define DO2(c, crc) DO1(c, crc); DO1(c, crc);
174 :			#define DO4(c, crc) DO2(c, crc); DO2(c, crc);
175 :			#define DO8(c, crc) DO4(c, crc); DO4(c, crc);
176 :
177 :			/******************************************************************************
178 :			* Precomputed AAL5 CRC32 lookup table
179 :			******************************************************************************/
180 :
181 :			static unsigned long crc32tab[256] = {
182 :
183 :			0x00000000L, 0x04C11DB7L, 0x09823B6EL, 0x0D4326D9L,
184 :			0x130476DCL, 0x17C56B6BL, 0x1A864DB2L, 0x1E475005L,
185 :			0x2608EDB8L, 0x22C9F00FL, 0x2F8AD6D6L, 0x2B4BCB61L,
186 :			0x350C9B64L, 0x31CD86D3L, 0x3C8EA00AL, 0x384FBDBDL,
187 :			0x4C11DB70L, 0x48D0C6C7L, 0x4593E01EL, 0x4152FDA9L,
188 :			0x5F15ADACL, 0x5BD4B01BL, 0x569796C2L, 0x52568B75L,
189 :			0x6A1936C8L, 0x6ED82B7FL, 0x639B0DA6L, 0x675A1011L,
190 :			0x791D4014L, 0x7DDC5DA3L, 0x709F7B7AL, 0x745E66CDL,
191 :			0x9823B6E0L, 0x9CE2AB57L, 0x91A18D8EL, 0x95609039L,
192 :			0x8B27C03CL, 0x8FE6DD8BL, 0x82A5FB52L, 0x8664E6E5L,
193 :			0xBE2B5B58L, 0xBAEA46EFL, 0xB7A96036L, 0xB3687D81L,
194 :			0xAD2F2D84L, 0xA9EE3033L, 0xA4AD16EAL, 0xA06C0B5DL,
195 :			0xD4326D90L, 0xD0F37027L, 0xDDB056FEL, 0xD9714B49L,
196 :			0xC7361B4CL, 0xC3F706FBL, 0xCEB42022L, 0xCA753D95L,
197 :			0xF23A8028L, 0xF6FB9D9FL, 0xFBB8BB46L, 0xFF79A6F1L,
198 :			0xE13EF6F4L, 0xE5FFEB43L, 0xE8BCCD9AL, 0xEC7DD02DL,
199 :			0x34867077L, 0x30476DC0L, 0x3D044B19L, 0x39C556AEL,
200 :			0x278206ABL, 0x23431B1CL, 0x2E003DC5L, 0x2AC12072L,
201 :			0x128E9DCFL, 0x164F8078L, 0x1B0CA6A1L, 0x1FCDBB16L,
202 :			0x018AEB13L, 0x054BF6A4L, 0x0808D07DL, 0x0CC9CDCAL,
203 :			0x7897AB07L, 0x7C56B6B0L, 0x71159069L, 0x75D48DDEL,
204 :			0x6B93DDDBL, 0x6F52C06CL, 0x6211E6B5L, 0x66D0FB02L,
205 :			0x5E9F46BFL, 0x5A5E5B08L, 0x571D7DD1L, 0x53DC6066L,
206 :			0x4D9B3063L, 0x495A2DD4L, 0x44190B0DL, 0x40D816BAL,
207 :			0xACA5C697L, 0xA864DB20L, 0xA527FDF9L, 0xA1E6E04EL,
208 :			0xBFA1B04BL, 0xBB60ADFCL, 0xB6238B25L, 0xB2E29692L,
209 :			0x8AAD2B2FL, 0x8E6C3698L, 0x832F1041L, 0x87EE0DF6L,
210 :			0x99A95DF3L, 0x9D684044L, 0x902B669DL, 0x94EA7B2AL,
211 :			0xE0B41DE7L, 0xE4750050L, 0xE9362689L, 0xEDF73B3EL,
212 :			0xF3B06B3BL, 0xF771768CL, 0xFA325055L, 0xFEF34DE2L,
213 :			0xC6BCF05FL, 0xC27DEDE8L, 0xCF3ECB31L, 0xCBFFD686L,
214 :			0xD5B88683L, 0xD1799B34L, 0xDC3ABDEDL, 0xD8FBA05AL,
215 :			0x690CE0EEL, 0x6DCDFD59L, 0x608EDB80L, 0x644FC637L,
216 :			0x7A089632L, 0x7EC98B85L, 0x738AAD5CL, 0x774BB0EBL,
217 :			0x4F040D56L, 0x4BC510E1L, 0x46863638L, 0x42472B8FL,
218 :			0x5C007B8AL, 0x58C1663DL, 0x558240E4L, 0x51435D53L,
219 :			0x251D3B9EL, 0x21DC2629L, 0x2C9F00F0L, 0x285E1D47L,
220 :			0x36194D42L, 0x32D850F5L, 0x3F9B762CL, 0x3B5A6B9BL,
221 :			0x0315D626L, 0x07D4CB91L, 0x0A97ED48L, 0x0E56F0FFL,
222 :			0x1011A0FAL, 0x14D0BD4DL, 0x19939B94L, 0x1D528623L,
223 :			0xF12F560EL, 0xF5EE4BB9L, 0xF8AD6D60L, 0xFC6C70D7L,
224 :			0xE22B20D2L, 0xE6EA3D65L, 0xEBA91BBCL, 0xEF68060BL,
225 :			0xD727BBB6L, 0xD3E6A601L, 0xDEA580D8L, 0xDA649D6FL,
226 :			0xC423CD6AL, 0xC0E2D0DDL, 0xCDA1F604L, 0xC960EBB3L,
227 :			0xBD3E8D7EL, 0xB9FF90C9L, 0xB4BCB610L, 0xB07DABA7L,
228 :			0xAE3AFBA2L, 0xAAFBE615L, 0xA7B8C0CCL, 0xA379DD7BL,
229 :			0x9B3660C6L, 0x9FF77D71L, 0x92B45BA8L, 0x9675461FL,
230 :			0x8832161AL, 0x8CF30BADL, 0x81B02D74L, 0x857130C3L,
231 :			0x5D8A9099L, 0x594B8D2EL, 0x5408ABF7L, 0x50C9B640L,
232 :			0x4E8EE645L, 0x4A4FFBF2L, 0x470CDD2BL, 0x43CDC09CL,
233 :			0x7B827D21L, 0x7F436096L, 0x7200464FL, 0x76C15BF8L,
234 :			0x68860BFDL, 0x6C47164AL, 0x61043093L, 0x65C52D24L,
235 :			0x119B4BE9L, 0x155A565EL, 0x18197087L, 0x1CD86D30L,
236 :			0x029F3D35L, 0x065E2082L, 0x0B1D065BL, 0x0FDC1BECL,
237 :			0x3793A651L, 0x3352BBE6L, 0x3E119D3FL, 0x3AD08088L,
238 :			0x2497D08DL, 0x2056CD3AL, 0x2D15EBE3L, 0x29D4F654L,
239 :			0xC5A92679L, 0xC1683BCEL, 0xCC2B1D17L, 0xC8EA00A0L,
240 :			0xD6AD50A5L, 0xD26C4D12L, 0xDF2F6BCBL, 0xDBEE767CL,
241 :			0xE3A1CBC1L, 0xE760D676L, 0xEA23F0AFL, 0xEEE2ED18L,
242 :			0xF0A5BD1DL, 0xF464A0AAL, 0xF9278673L, 0xFDE69BC4L,
243 :			0x89B8FD09L, 0x8D79E0BEL, 0x803AC667L, 0x84FBDBD0L,
244 :			0x9ABC8BD5L, 0x9E7D9662L, 0x933EB0BBL, 0x97FFAD0CL,
245 :			0xAFB010B1L, 0xAB710D06L, 0xA6322BDFL, 0xA2F33668L,
246 :			0xBCB4666DL, 0xB8757BDAL, 0xB5365D03L, 0xB1F740B4L
247 :
248 :			};
249 :
250 :			uint32_t
251 :	Skal	1614	calc_crc(uint8_t *mem, int len, uint32_t crc)
252 :	edgomez	1382	{
253 :			while( len >= 8) {
254 :			DO8(mem, crc);
255 :			len -= 8;
256 :			}
257 :
258 :			while( len ) {
259 :			DO1(mem, crc);
260 :			len--;
261 :			}
262 :
263 :	Skal	1614	return crc;
264 :	edgomez	1382	}
265 :
266 :	Skal	1621	void byte_swap(uint8_t *mem, int len, int element_size) {
267 :			#ifdef ARCH_IS_BIG_ENDIAN
268 :			int i;
269 :
270 :			if(element_size == 1) {
271 :			/* No need to swap */
272 :			} else if(element_size == 2) {
273 :			uint8_t temp[2];
274 :
275 :			for(i=0; i < (len/2); i++ ) {
276 :			temp[0] = mem[0];
277 :			temp[1] = mem[1];
278 :			mem[0] = temp[1];
279 :			mem[1] = temp[0];
280 :
281 :			mem += 2;
282 :			}
283 :			} else if(element_size == 4) {
284 :			uint8_t temp[4];
285 :
286 :			for(i=0; i < (len/4); i++ ) {
287 :			temp[0] = mem[0];
288 :			temp[1] = mem[1];
289 :			temp[2] = mem[2];
290 :			temp[3] = mem[3];
291 :			mem[0] = temp[3];
292 :			mem[1] = temp[2];
293 :			mem[2] = temp[1];
294 :			mem[3] = temp[0];
295 :
296 :			mem += 4;
297 :			}
298 :			} else {
299 :			printf("ERROR: byte_swap unsupported element_size(%u)\n", element_size);
300 :			}
301 :			#endif
302 :			}
303 :
304 :	Isibaar	225	/*********************************************************************
305 :			* test DCT
306 :			*********************************************************************/
307 :
308 :			#define ABS(X) ((X)<0 ? -(X) : (X))
309 :
310 :			void test_dct()
311 :			{
312 :	edgomez	1382	const int nb_tests = 300*speed_ref;
313 :			int tst;
314 :			CPU *cpu;
315 :			int i;
316 :			DECLARE_ALIGNED_MATRIX(iDst0, 8, 8, short, 16);
317 :			DECLARE_ALIGNED_MATRIX(iDst, 8, 8, short, 16);
318 :			DECLARE_ALIGNED_MATRIX(fDst, 8, 8, short, 16);
319 :			double overhead;
320 :	Isibaar	225
321 :	edgomez	1382	printf( "\n ===== test fdct/idct =====\n" );
322 :	Isibaar	225
323 :	edgomez	1382	for(i=0; i<88; ++i) iDst0[i] = (i7-i*i) & 0x7f;
324 :			overhead = gettime_usec();
325 :			for(tst=0; tst<nb_tests; ++tst)
326 :			{
327 :			for(i=0; i<8*8; ++i) fDst[i] = iDst0[i];
328 :			for(i=0; i<8*8; ++i) iDst[i] = fDst[i];
329 :			}
330 :			overhead = gettime_usec() - overhead;
331 :	Isibaar	225
332 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
333 :			{
334 :			double t, PSNR, MSE;
335 :	Isibaar	225
336 :	edgomez	1382	if (!init_cpu(cpu))
337 :			continue;
338 :	Isibaar	225
339 :	edgomez	1382	t = gettime_usec();
340 :			emms();
341 :			for(tst=0; tst<nb_tests; ++tst)
342 :			{
343 :			for(i=0; i<8*8; ++i) fDst[i] = iDst0[i];
344 :			fdct(fDst);
345 :			for(i=0; i<8*8; ++i) iDst[i] = fDst[i];
346 :			idct(iDst);
347 :			}
348 :			emms();
349 :			t = (gettime_usec() - t - overhead) / nb_tests;
350 :			MSE = 0.;
351 :			for(i=0; i<8*8; ++i) {
352 :			double delta = 1.0*(iDst[i] - iDst0[i]);
353 :			MSE += delta*delta;
354 :			}
355 :			PSNR = (MSE==0.) ? 1.e6 : -4.3429448*log( MSE/64. );
356 :			printf( "%s - %.3f usec PSNR=%.3f MSE=%.3f %s\n",
357 :			cpu->name, t, PSNR, MSE,
358 :			(ABS(MSE)>=64)? "\| ERROR" :"");
359 :			}
360 :	Isibaar	225	}
361 :
362 :			/*********************************************************************
363 :			* test SAD
364 :			*********************************************************************/
365 :
366 :			void test_sad()
367 :			{
368 :	edgomez	1382	const int nb_tests = 2000*speed_ref;
369 :			int tst;
370 :			CPU *cpu;
371 :			int i;
372 :			DECLARE_ALIGNED_MATRIX(Cur, 16, 16, uint8_t, 16);
373 :			DECLARE_ALIGNED_MATRIX(Ref1, 16, 16, uint8_t, 16);
374 :			DECLARE_ALIGNED_MATRIX(Ref2, 16, 16, uint8_t, 16);
375 :	Isibaar	225
376 :	edgomez	1382	printf( "\n ====== test SAD ======\n" );
377 :			for(i=0; i<16*16;++i) {
378 :			Cur[i] = (i/5) ^ 0x05;
379 :			Ref1[i] = (i + 0x0b) & 0xff;
380 :			Ref2[i] = i ^ 0x76;
381 :			}
382 :	Isibaar	225
383 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
384 :			{
385 :			double t;
386 :			uint32_t s;
387 :			if (!init_cpu(cpu))
388 :			continue;
389 :	Isibaar	225
390 :	edgomez	1382	t = gettime_usec();
391 :			emms();
392 :			for(tst=0; tst<nb_tests; ++tst) s = sad8(Cur, Ref1, 16);
393 :			emms();
394 :			t = (gettime_usec() - t) / nb_tests;
395 :			printf("%s - sad8 %.3f usec sad=%d %s\n",
396 :			cpu->name, t, s,
397 :			(s!=3776)?"\| ERROR": "" );
398 :	Isibaar	225
399 :	edgomez	1382	t = gettime_usec();
400 :			emms();
401 :			for(tst=0; tst<nb_tests; ++tst) s = sad16(Cur, Ref1, 16, -1);
402 :			emms();
403 :			t = (gettime_usec() - t) / nb_tests;
404 :			printf("%s - sad16 %.3f usec sad=%d %s\n",
405 :			cpu->name, t, s,
406 :			(s!=27214)?"\| ERROR": "" );
407 :	Isibaar	225
408 :	edgomez	1382	t = gettime_usec();
409 :			emms();
410 :			for(tst=0; tst<nb_tests; ++tst) s = sad16bi(Cur, Ref1, Ref2, 16);
411 :			emms();
412 :			t = (gettime_usec() - t) / nb_tests;
413 :			printf( "%s - sad16bi %.3f usec sad=%d %s\n",
414 :			cpu->name, t, s,
415 :			(s!=26274)?"\| ERROR": "" );
416 :	chl	898
417 :	edgomez	1382	t = gettime_usec();
418 :			emms();
419 :			for(tst=0; tst<nb_tests; ++tst) s = dev16(Cur, 16);
420 :			emms();
421 :			t = (gettime_usec() - t) / nb_tests;
422 :			printf( "%s - dev16 %.3f usec sad=%d %s\n",
423 :			cpu->name, t, s,
424 :			(s!=3344)?"\| ERROR": "" );
425 :	Isibaar	225
426 :	edgomez	1382	printf( " --- \n" );
427 :			}
428 :	Isibaar	225	}
429 :
430 :			/*********************************************************************
431 :			* test interpolation
432 :			*********************************************************************/
433 :
434 :			#define ENTER \
435 :	edgomez	1382	for(i=0; i<16*8; ++i) Dst[i] = 0; \
436 :			t = gettime_usec(); \
437 :			emms();
438 :	Isibaar	225
439 :			#define LEAVE \
440 :	edgomez	1382	emms(); \
441 :			t = (gettime_usec() - t) / nb_tests; \
442 :			iCrc = calc_crc((uint8_t*)Dst, sizeof(Dst), CRC32_INITIAL)
443 :	Isibaar	225
444 :			#define TEST_MB(FUNC, R) \
445 :	edgomez	1382	ENTER \
446 :			for(tst=0; tst<nb_tests; ++tst) (FUNC)(Dst, Src0, 16, (R)); \
447 :			LEAVE
448 :	Isibaar	225
449 :			#define TEST_MB2(FUNC) \
450 :	edgomez	1382	ENTER \
451 :			for(tst=0; tst<nb_tests; ++tst) (FUNC)(Dst, Src0, 16); \
452 :			LEAVE
453 :	Isibaar	225
454 :
455 :			void test_mb()
456 :			{
457 :	edgomez	1382	const int nb_tests = 2000*speed_ref;
458 :			CPU *cpu;
459 :			const uint8_t Src0[16*9] = {
460 :			/* try to have every possible combinaison of rounding... */
461 :			0, 0, 1, 0, 2, 0, 3, 0, 4 ,0,0,0, 0,0,0,0,
462 :			0, 1, 1, 1, 2, 1, 3, 1, 3 ,0,0,0, 0,0,0,0,
463 :			0, 2, 1, 2, 2, 2, 3, 2, 2 ,0,0,0, 0,0,0,0,
464 :			0, 3, 1, 3, 2, 3, 3, 3, 1 ,0,0,0, 0,0,0,0,
465 :			1, 3, 0, 2, 1, 0, 2, 3, 4 ,0,0,0, 0,0,0,0,
466 :			2, 2, 1, 2, 0, 1, 3, 5, 3 ,0,0,0, 0,0,0,0,
467 :			3, 1, 2, 3, 1, 2, 2, 6, 2 ,0,0,0, 0,0,0,0,
468 :			1, 0, 1, 3, 0, 3, 1, 6, 1 ,0,0,0, 0,0,0,0,
469 :			4, 3, 2, 1, 2, 3, 4, 0, 3 ,0,0,0, 0,0,0,0
470 :			};
471 :			uint8_t Dst[16*8] = {0};
472 :	Isibaar	225
473 :	edgomez	1382	printf( "\n === test block motion ===\n" );
474 :	Isibaar	225
475 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
476 :			{
477 :			double t;
478 :			int tst, i, iCrc;
479 :	Isibaar	225
480 :	edgomez	1382	if (!init_cpu(cpu))
481 :			continue;
482 :	Isibaar	225
483 :	edgomez	1382	TEST_MB(interpolate8x8_halfpel_h, 0);
484 :			printf("%s - interp- h-round0 %.3f usec crc32=0x%08x %s\n",
485 :			cpu->name, t, iCrc,
486 :			(iCrc!=0x115381ba)?"\| ERROR": "" );
487 :	Isibaar	225
488 :	edgomez	1382	TEST_MB(interpolate8x8_halfpel_h, 1);
489 :			printf("%s - round1 %.3f usec crc32=0x%08x %s\n",
490 :			cpu->name, t, iCrc,
491 :			(iCrc!=0x2b1f528f)?"\| ERROR": "" );
492 :	Isibaar	225
493 :
494 :	edgomez	1382	TEST_MB(interpolate8x8_halfpel_v, 0);
495 :			printf("%s - interp- v-round0 %.3f usec crc32=0x%08x %s\n",
496 :			cpu->name, t, iCrc,
497 :			(iCrc!=0x423cdcc7)?"\| ERROR": "" );
498 :	Isibaar	225
499 :	edgomez	1382	TEST_MB(interpolate8x8_halfpel_v, 1);
500 :			printf("%s - round1 %.3f usec crc32=0x%08x %s\n",
501 :			cpu->name, t, iCrc,
502 :			(iCrc!=0x42202efe)?"\| ERROR": "" );
503 :	Isibaar	225
504 :
505 :	edgomez	1382	TEST_MB(interpolate8x8_halfpel_hv, 0);
506 :			printf("%s - interp-hv-round0 %.3f usec crc32=0x%08x %s\n",
507 :			cpu->name, t, iCrc,
508 :			(iCrc!=0xd198d387)?"\| ERROR": "" );
509 :	Isibaar	225
510 :	edgomez	1382	TEST_MB(interpolate8x8_halfpel_hv, 1);
511 :			printf("%s - round1 %.3f usec crc32=0x%08x %s\n",
512 :			cpu->name, t, iCrc,
513 :			(iCrc!=0x9ecfd921)?"\| ERROR": "" );
514 :	Isibaar	225
515 :	Isibaar	262
516 :	edgomez	1382	/* this is a new function, as of 06.06.2002 */
517 :	Isibaar	262	#if 0
518 :	edgomez	1382	TEST_MB2(interpolate8x8_avrg);
519 :			printf("%s - interpolate8x8_c %.3f usec crc32=0x%08x %s\n",
520 :			cpu->name, t, iCrc,
521 :			(iCrc!=8107)?"\| ERROR": "" );
522 :	Isibaar	262	#endif
523 :
524 :	Skal	1651	/* New functions for field prediction by CK 1.10.2005 */
525 :			#pragma NEW8X4
526 :			TEST_MB(interpolate8x4_halfpel_h, 0);
527 :			printf("%s - interpfield-h -round0 %.3f usec crc32=0x%08x %s\n",
528 :			cpu->name, t, iCrc,
529 :			(iCrc!=0x9538d6df)?"\| ERROR": "" );
530 :
531 :			TEST_MB(interpolate8x4_halfpel_h, 1);
532 :			printf("%s - round1 %.3f usec crc32=0x%08x %s\n",
533 :			cpu->name, t, iCrc,
534 :			(iCrc!=0xde5f1db4)?"\| ERROR": "" );
535 :
536 :
537 :			TEST_MB(interpolate8x4_halfpel_v, 0);
538 :			printf("%s - interpfield- v-round0 %.3f usec crc32=0x%08x %s\n",
539 :			cpu->name, t, iCrc,
540 :			(iCrc!=0xea5a69ef)?"\| ERROR": "" );
541 :
542 :			TEST_MB(interpolate8x4_halfpel_v, 1);
543 :			printf("%s - round1 %.3f usec crc32=0x%08x %s\n",
544 :			cpu->name, t, iCrc,
545 :			(iCrc!=0x4f10ec0f)?"\| ERROR": "" );
546 :
547 :
548 :			TEST_MB(interpolate8x4_halfpel_hv, 0);
549 :			printf("%s - interpfield-hv-round0 %.3f usec crc32=0x%08x %s\n",
550 :			cpu->name, t, iCrc,
551 :			(iCrc!=0xf97ee367)?"\| ERROR": "" );
552 :
553 :			TEST_MB(interpolate8x4_halfpel_hv, 1);
554 :			printf("%s - round1 %.3f usec crc32=0x%08x %s\n",
555 :			cpu->name, t, iCrc,
556 :			(iCrc!=0xb6a9f581)?"\| ERROR": "" );
557 :			/* End of 8x4 functions */
558 :
559 :	edgomez	1382	printf( " --- \n" );
560 :			}
561 :	Isibaar	225	}
562 :
563 :	Skal	1707	#undef ENTER
564 :			#undef LEAVE
565 :			#undef TEST_MB
566 :			#undef TEST_MB2
567 :
568 :	Isibaar	225	/*********************************************************************
569 :			* test transfer
570 :			*********************************************************************/
571 :
572 :			#define INIT_TRANSFER \
573 :	edgomez	1382	for(i=0; i<8*32; ++i) { \
574 :			Src8[i] = i; Src16[i] = i; \
575 :			Dst8[i] = 0; Dst16[i] = 0; \
576 :			Ref1[i] = i^0x27; \
577 :			Ref2[i] = i^0x51; \
578 :			}
579 :	Isibaar	225
580 :			#define TEST_TRANSFER_BEGIN(DST) \
581 :	edgomez	1382	INIT_TRANSFER \
582 :			overhead = -gettime_usec(); \
583 :			for(tst=0; tst<nb_tests; ++tst) { \
584 :			for(i=0; i<8*32; ++i) (DST)[i] = i^0x6a;\
585 :			} \
586 :			overhead += gettime_usec(); \
587 :			t = gettime_usec(); \
588 :			emms(); \
589 :			for(tst=0; tst<nb_tests; ++tst) { \
590 :			for(i=0; i<8*32; ++i) (DST)[i] = i^0x6a;
591 :	Isibaar	225
592 :
593 :			#define TEST_TRANSFER_END(DST) \
594 :	edgomez	1382	} \
595 :			emms(); \
596 :			t = (gettime_usec()-t -overhead) / nb_tests;\
597 :	Skal	1621	byte_swap((uint8_t)(DST), 832*sizeof((DST)[0]), sizeof((DST)[0])); \
598 :	Skal	1620	s = calc_crc((uint8_t)(DST), 832*sizeof((DST)[0]), CRC32_INITIAL)
599 :	Isibaar	225
600 :			#define TEST_TRANSFER(FUNC, DST, SRC) \
601 :	edgomez	1382	TEST_TRANSFER_BEGIN(DST); \
602 :			(FUNC)((DST), (SRC), 32); \
603 :			TEST_TRANSFER_END(DST)
604 :	Isibaar	225
605 :
606 :			#define TEST_TRANSFER2_BEGIN(DST, SRC) \
607 :	edgomez	1382	INIT_TRANSFER \
608 :			overhead = -gettime_usec(); \
609 :			for(tst=0; tst<nb_tests; ++tst) { \
610 :			for(i=0; i<8*32; ++i) (DST)[i] = i^0x6a;\
611 :			for(i=0; i<8*32; ++i) (SRC)[i] = i^0x3e;\
612 :			} \
613 :			overhead += gettime_usec(); \
614 :			t = gettime_usec(); \
615 :			emms(); \
616 :			for(tst=0; tst<nb_tests; ++tst) { \
617 :			for(i=0; i<8*32; ++i) (DST)[i] = i^0x6a;\
618 :			for(i=0; i<8*32; ++i) (SRC)[i] = i^0x3e;
619 :	Isibaar	225
620 :			#define TEST_TRANSFER2_END(DST) \
621 :	edgomez	1382	} \
622 :			emms(); \
623 :			t = (gettime_usec()-t -overhead) / nb_tests;\
624 :	Skal	1621	byte_swap((uint8_t)(DST), 832*sizeof((DST)[0]), sizeof((DST)[0])); \
625 :	Skal	1620	s = calc_crc((uint8_t)(DST), 832*sizeof((DST)[0]), CRC32_INITIAL)
626 :	Isibaar	225
627 :			#define TEST_TRANSFER2(FUNC, DST, SRC, R1) \
628 :	edgomez	1382	TEST_TRANSFER2_BEGIN(DST,SRC); \
629 :			(FUNC)((DST), (SRC), (R1), 32); \
630 :			TEST_TRANSFER2_END(DST)
631 :	Isibaar	225
632 :			#define TEST_TRANSFER3(FUNC, DST, SRC, R1, R2)\
633 :	edgomez	1382	TEST_TRANSFER_BEGIN(DST); \
634 :			(FUNC)((DST), (SRC), (R1), (R2), 32); \
635 :			TEST_TRANSFER_END(DST)
636 :	Isibaar	225
637 :			void test_transfer()
638 :			{
639 :	edgomez	1382	const int nb_tests = 4000*speed_ref;
640 :			int i;
641 :			CPU *cpu;
642 :	Skal	1620	// uint8_t Src8[832], Dst8[832], Ref1[832], Ref2[832];
643 :			// int16_t Src16[832], Dst16[832];
644 :			DECLARE_ALIGNED_MATRIX(Src8, 8, 32, uint8_t, CACHE_LINE);
645 :			DECLARE_ALIGNED_MATRIX(Dst8, 8, 32, uint8_t, CACHE_LINE);
646 :			DECLARE_ALIGNED_MATRIX(Ref1, 8, 32, uint8_t, CACHE_LINE);
647 :			DECLARE_ALIGNED_MATRIX(Ref2, 8, 32, uint8_t, CACHE_LINE);
648 :			DECLARE_ALIGNED_MATRIX(Src16, 8, 32, uint16_t, CACHE_LINE);
649 :			DECLARE_ALIGNED_MATRIX(Dst16, 8, 32, uint16_t, CACHE_LINE);
650 :	Isibaar	225
651 :	edgomez	1382	printf( "\n === test transfer ===\n" );
652 :	Isibaar	225
653 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
654 :			{
655 :			double t, overhead;
656 :			int tst, s;
657 :	Isibaar	225
658 :	edgomez	1382	if (!init_cpu(cpu))
659 :			continue;
660 :	Isibaar	225
661 :	edgomez	1382	TEST_TRANSFER(transfer_8to16copy, Dst16, Src8);
662 :			printf("%s - 8to16 %.3f usec crc32=0x%08x %s\n",
663 :			cpu->name, t, s,
664 :			(s!=0x115814bb)?"\| ERROR": "");
665 :	Isibaar	225
666 :	edgomez	1382	TEST_TRANSFER(transfer_16to8copy, Dst8, Src16);
667 :			printf( "%s - 16to8 %.3f usec crc32=0x%08x %s\n",
668 :			cpu->name, t, s,
669 :			(s!=0xee7ccbb4)?"\| ERROR": "");
670 :	Isibaar	225
671 :	Skal	1651	/* New functions for field prediction by CK 1.10.2005 */
672 :			#pragma NEW8X4
673 :			TEST_TRANSFER(transfer8x4_copy, Dst8, Src8);
674 :			printf("%s - 8to4 %.3f usec crc32=0x%08x %s\n",
675 :			cpu->name, t, s,
676 :			(s!=0xbb9c3db5)?"\| ERROR": "");
677 :			/* End of new functions */
678 :
679 :	edgomez	1382	TEST_TRANSFER(transfer8x8_copy, Dst8, Src8);
680 :			printf("%s - 8to8 %.3f usec crc32=0x%08x %s\n",
681 :			cpu->name, t, s,
682 :			(s!=0xd37b3295)?"\| ERROR": "");
683 :	Isibaar	225
684 :	edgomez	1382	TEST_TRANSFER(transfer_16to8add, Dst8, Src16);
685 :			printf("%s - 16to8add %.3f usec crc32=0x%08x %s\n",
686 :			cpu->name, t, s,
687 :			(s!=0xdd817bf4)?"\| ERROR": "" );
688 :	Isibaar	225
689 :	edgomez	1382	TEST_TRANSFER2(transfer_8to16sub, Dst16, Src8, Ref1);
690 :			{
691 :			int s1, s2;
692 :	Skal	1620	s1 = calc_crc((uint8_t)Dst16, 832*sizeof(Dst16[0]), CRC32_INITIAL);
693 :			s2 = calc_crc((uint8_t)Src8, 832*sizeof(Src8[0]), CRC32_INITIAL);
694 :	edgomez	1382	printf("%s - 8to16sub %.3f usec crc32(1)=0x%08x crc32(2)=0x%08x %s %s\n",
695 :			cpu->name, t, s1, s2,
696 :			(s1!=0xa1e07163)?"\| ERROR1": "",
697 :			(s2!=0xd86c5d23)?"\| ERROR2": "" );
698 :			}
699 :
700 :			TEST_TRANSFER3(transfer_8to16sub2, Dst16, Src8, Ref1, Ref2);
701 :			printf("%s - 8to16sub2 %.3f usec crc32=0x%08x %s\n",
702 :			cpu->name, t, s,
703 :			(s!=0x99b6c4c7)?"\| ERROR": "" );
704 :
705 :			printf( " --- \n" );
706 :			}
707 :	Isibaar	225	}
708 :
709 :			/*********************************************************************
710 :			* test quantization
711 :			*********************************************************************/
712 :
713 :	Isibaar	262	#define TEST_QUANT(FUNC, DST, SRC) \
714 :	edgomez	1382	t = gettime_usec(); \
715 :			for(s=CRC32_INITIAL,qm=1; qm<=255; ++qm) { \
716 :			for(i=0; i<8*8; ++i) Quant[i] = qm; \
717 :			set_inter_matrix( mpeg_quant_matrices, Quant ); \
718 :			emms(); \
719 :			for(q=1; q<=max_Q; ++q) { \
720 :			for(tst=0; tst<nb_tests; ++tst) \
721 :			(FUNC)((DST), (SRC), q, mpeg_quant_matrices); \
722 :	Skal	1621	byte_swap((uint8_t)(DST), 64sizeof((DST)[0]), sizeof((DST)[0])); \
723 :			s = calc_crc((uint8_t)(DST), 64sizeof((DST)[0]), s); \
724 :	edgomez	1382	} \
725 :			emms(); \
726 :			} \
727 :			t = (gettime_usec()-t-overhead)/nb_tests/qm
728 :	Isibaar	225
729 :	Isibaar	262	#define TEST_QUANT2(FUNC, DST, SRC) \
730 :	edgomez	1382	t = gettime_usec(); \
731 :			for(s=CRC32_INITIAL,qm=1; qm<=255; ++qm) { \
732 :			for(i=0; i<8*8; ++i) Quant[i] = qm; \
733 :			set_intra_matrix( mpeg_quant_matrices, Quant ); \
734 :			emms(); \
735 :			for(q=1; q<=max_Q; ++q) { \
736 :			for(tst=0; tst<nb_tests; ++tst) \
737 :			(FUNC)((DST), (SRC), q, q, mpeg_quant_matrices); \
738 :	Skal	1621	byte_swap((uint8_t)(DST), 64sizeof((DST)[0]), sizeof((DST)[0])); \
739 :			s = calc_crc((uint8_t)(DST), 64sizeof((DST)[0]), s); \
740 :	edgomez	1382	} \
741 :			emms(); \
742 :			} \
743 :			t = (gettime_usec()-t-overhead)/nb_tests/qm
744 :	Isibaar	225
745 :	edgomez	1398	#define TEST_INTRA(REFFUNC, NEWFUNC, RANGE) \
746 :			{ int i,q,s;\
747 :			DECLARE_ALIGNED_MATRIX(Src, 8, 8, int16_t, 16); \
748 :			DECLARE_ALIGNED_MATRIX(Dst, 8, 8, int16_t, 16); \
749 :			DECLARE_ALIGNED_MATRIX(Dst2,8, 8, int16_t, 16); \
750 :			for(q=1;q<=max_Q;q++) \
751 :			for(s=-RANGE;s<RANGE;s++) { \
752 :			for(i=0;i<64;i++) Src[i]=s; \
753 :			(REFFUNC)((Dst),(Src),q,q,mpeg_quant_matrices); \
754 :			(NEWFUNC)((Dst2),(Src),q,q,mpeg_quant_matrices); \
755 :			for(i=0;i<64;i++) \
756 :			if(Dst[i]!=Dst2[i]) printf("ERROR : " #NEWFUNC " i%d quant:%d input:%d C_result:%d ASM_result:%d\n",i,q,s,Dst[i],Dst2[i]); \
757 :			} \
758 :			}
759 :
760 :			#define TEST_INTER(REFFUNC, NEWFUNC, RANGE) \
761 :			{ int i,q,s; \
762 :			DECLARE_ALIGNED_MATRIX(Src, 8, 8, int16_t, 16); \
763 :			DECLARE_ALIGNED_MATRIX(Dst, 8, 8, int16_t, 16); \
764 :			DECLARE_ALIGNED_MATRIX(Dst2,8, 8, int16_t, 16); \
765 :			for(q=1;q<=max_Q;q++) \
766 :			for(s=-RANGE;s<RANGE;s++) { \
767 :			for(i=0;i<64;i++) Src[i]=s; \
768 :			(REFFUNC)((Dst),(Src),q,mpeg_quant_matrices); \
769 :			(NEWFUNC)((Dst2),(Src),q,mpeg_quant_matrices); \
770 :			emms(); \
771 :			for(i=0;i<64;i++) \
772 :			if(Dst[i]!=Dst2[i]) printf("ERROR : " #NEWFUNC " i%d quant:%d input:%d C_result:%d ASM_result:%d\n",i,q,s,Dst[i],Dst2[i]); \
773 :			} \
774 :			}
775 :
776 :	Isibaar	225	void test_quant()
777 :			{
778 :	edgomez	1382	const int nb_tests = 1*speed_ref;
779 :			const int max_Q = 31;
780 :			DECLARE_ALIGNED_MATRIX(mpeg_quant_matrices, 8, 64, uint16_t, 16);
781 :	Isibaar	225
782 :	edgomez	1382	int i, qm;
783 :			CPU *cpu;
784 :			DECLARE_ALIGNED_MATRIX(Src, 8, 8, int16_t, 16);
785 :			DECLARE_ALIGNED_MATRIX(Dst, 8, 8, int16_t, 16);
786 :	edgomez	1398	DECLARE_ALIGNED_MATRIX(Dst2,8, 8, int16_t, 16);
787 :	edgomez	1382	uint8_t Quant[8*8];
788 :	Isibaar	225
789 :	edgomez	1382	printf( "\n ===== test quant =====\n" );
790 :	Isibaar	225
791 :	edgomez	1382	/* we deliberately enfringe the norm's specified range [-127,127], */
792 :			/* to test the robustness of the iquant module */
793 :			for(i=0; i<64; ++i) {
794 :			Src[i] = 1 + (i-32) * (i&6);
795 :			Dst[i] = 0;
796 :			}
797 :	Isibaar	225
798 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
799 :			{
800 :			double t, overhead;
801 :			int tst, q;
802 :			uint32_t s;
803 :	Isibaar	225
804 :	edgomez	1382	if (!init_cpu(cpu))
805 :	edgomez	1398	continue;
806 :	Isibaar	225
807 :	edgomez	1398	// exhaustive tests to compare against the (ref) C-version
808 :			TEST_INTRA(quant_h263_intra_c, quant_h263_intra, 2048);
809 :			TEST_INTRA(dequant_h263_intra_c, dequant_h263_intra , 512 );
810 :			TEST_INTER(quant_h263_inter_c, quant_h263_inter , 2048);
811 :			TEST_INTER(dequant_h263_inter_c, dequant_h263_inter , 512 );
812 :
813 :	edgomez	1382	overhead = -gettime_usec();
814 :			for(s=0,qm=1; qm<=255; ++qm) {
815 :			for(i=0; i<8*8; ++i) Quant[i] = qm;
816 :			set_inter_matrix(mpeg_quant_matrices, Quant );
817 :			for(q=1; q<=max_Q; ++q)
818 :			for(i=0; i<64; ++i) s+=Dst[i]^i^qm;
819 :			}
820 :			overhead += gettime_usec();
821 :	Isibaar	225
822 :	edgomez	1382	TEST_QUANT2(quant_mpeg_intra, Dst, Src);
823 :			printf("%s - quant_mpeg_intra %.3f usec crc32=0x%08x %s\n",
824 :			cpu->name, t, s,
825 :			(s!=0xfd6a21a4)? "\| ERROR": "");
826 :	Isibaar	225
827 :	edgomez	1382	TEST_QUANT(quant_mpeg_inter, Dst, Src);
828 :			printf("%s - quant_mpeg_inter %.3f usec crc32=0x%08x %s\n",
829 :			cpu->name, t, s,
830 :			(s!=0xf6de7757)?"\| ERROR": "");
831 :	Isibaar	225
832 :	edgomez	1382	TEST_QUANT2(dequant_mpeg_intra, Dst, Src);
833 :			printf("%s - dequant_mpeg_intra %.3f usec crc32=0x%08x %s\n",
834 :			cpu->name, t, s,
835 :			(s!=0x2def7bc7)?"\| ERROR": "");
836 :	Isibaar	225
837 :	edgomez	1382	TEST_QUANT(dequant_mpeg_inter, Dst, Src);
838 :			printf("%s - dequant_mpeg_inter %.3f usec crc32=0x%08x %s\n",
839 :			cpu->name, t, s,
840 :			(s!=0xd878c722)?"\| ERROR": "");
841 :
842 :			TEST_QUANT2(quant_h263_intra, Dst, Src);
843 :			printf("%s - quant_h263_intra %.3f usec crc32=0x%08x %s\n",
844 :			cpu->name, t, s,
845 :			(s!=0x2eba9d43)?"\| ERROR": "");
846 :
847 :			TEST_QUANT(quant_h263_inter, Dst, Src);
848 :			printf("%s - quant_h263_inter %.3f usec crc32=0x%08x %s\n",
849 :			cpu->name, t, s,
850 :			(s!=0xbd315a7e)?"\| ERROR": "");
851 :
852 :			TEST_QUANT2(dequant_h263_intra, Dst, Src);
853 :			printf("%s - dequant_h263_intra %.3f usec crc32=0x%08x %s\n",
854 :			cpu->name, t, s,
855 :			(s!=0x9841212a)?"\| ERROR": "");
856 :
857 :			TEST_QUANT(dequant_h263_inter, Dst, Src);
858 :			printf("%s - dequant_h263_inter %.3f usec crc32=0x%08x %s\n",
859 :			cpu->name, t, s,
860 :			(s!=0xe7df8fba)?"\| ERROR": "");
861 :
862 :			printf( " --- \n" );
863 :			}
864 :	Isibaar	225	}
865 :
866 :			/*********************************************************************
867 :	edgomez	1424	* test distortion operators
868 :			*********************************************************************/
869 :
870 :			static void ieee_reseed(long s);
871 :			static long ieee_rand(int Min, int Max);
872 :
873 :			#define TEST_SSE(FUNCTION, SRC1, SRC2, STRIDE) \
874 :			do { \
875 :			t = gettime_usec(); \
876 :			tst = nb_tests; \
877 :			while((tst--)>0) sse = (FUNCTION)((SRC1), (SRC2), (STRIDE)); \
878 :			emms(); \
879 :			t = (gettime_usec() - t)/(double)nb_tests; \
880 :			} while(0)
881 :
882 :
883 :			void test_sse()
884 :			{
885 :			const int nb_tests = 100000*speed_ref;
886 :			int i;
887 :			CPU *cpu;
888 :			DECLARE_ALIGNED_MATRIX(Src1, 8, 8, int16_t, 16);
889 :			DECLARE_ALIGNED_MATRIX(Src2, 8, 8, int16_t, 16);
890 :			DECLARE_ALIGNED_MATRIX(Src3, 8, 8, int16_t, 16);
891 :			DECLARE_ALIGNED_MATRIX(Src4, 8, 8, int16_t, 16);
892 :
893 :			printf( "\n ===== test sse =====\n" );
894 :
895 :			ieee_reseed(1);
896 :			for(i=0; i<64; ++i) {
897 :			Src1[i] = ieee_rand(-2048, 2047);
898 :			Src2[i] = ieee_rand(-2048, 2047);
899 :			Src3[i] = ieee_rand(-2048, 2047);
900 :			Src4[i] = ieee_rand(-2048, 2047);
901 :			}
902 :
903 :			for(cpu = cpu_list; cpu->name!=0; ++cpu)
904 :			{
905 :			double t;
906 :			int tst, sse;
907 :
908 :			if (!init_cpu(cpu))
909 :			continue;
910 :
911 :			/* 16 bit element blocks */
912 :			TEST_SSE(sse8_16bit, Src1, Src2, 16);
913 :			printf("%s - sse8_16bit#1 %.3f usec sse=%d %s\n",
914 :			cpu->name, t, sse, (sse!=182013834)?"\| ERROR": "");
915 :			TEST_SSE(sse8_16bit, Src1, Src3, 16);
916 :			printf("%s - sse8_16bit#2 %.3f usec sse=%d %s\n",
917 :			cpu->name, t, sse, (sse!=142545203)?"\| ERROR": "");
918 :			TEST_SSE(sse8_16bit, Src1, Src4, 16);
919 :			printf("%s - sse8_16bit#3 %.3f usec sse=%d %s\n",
920 :			cpu->name, t, sse, (sse!=146340935)?"\| ERROR": "");
921 :			TEST_SSE(sse8_16bit, Src2, Src3, 16);
922 :			printf("%s - sse8_16bit#4 %.3f usec sse=%d %s\n",
923 :			cpu->name, t, sse, (sse!=130136661)?"\| ERROR": "");
924 :			TEST_SSE(sse8_16bit, Src2, Src4, 16);
925 :			printf("%s - sse8_16bit#5 %.3f usec sse=%d %s\n",
926 :			cpu->name, t, sse, (sse!=136870353)?"\| ERROR": "");
927 :			TEST_SSE(sse8_16bit, Src3, Src4, 16);
928 :			printf("%s - sse8_16bit#6 %.3f usec sse=%d %s\n",
929 :			cpu->name, t, sse, (sse!=164107772)?"\| ERROR": "");
930 :
931 :			/* 8 bit element blocks */
932 :			TEST_SSE(sse8_8bit, (int8_t)Src1, (int8_t)Src2, 8);
933 :			printf("%s - sse8_8bit#1 %.3f usec sse=%d %s\n",
934 :			cpu->name, t, sse, (sse!=1356423)?"\| ERROR": "");
935 :			TEST_SSE(sse8_8bit, (int8_t)Src1, (int8_t)Src3, 8);
936 :			printf("%s - sse8_8bit#2 %.3f usec sse=%d %s\n",
937 :			cpu->name, t, sse, (sse!=1173074)?"\| ERROR": "");
938 :			TEST_SSE(sse8_8bit, (int8_t)Src1, (int8_t)Src4, 8);
939 :			printf("%s - sse8_8bit#3 %.3f usec sse=%d %s\n",
940 :			cpu->name, t, sse, (sse!=1092357)?"\| ERROR": "");
941 :			TEST_SSE(sse8_8bit, (int8_t)Src2, (int8_t)Src3, 8);
942 :			printf("%s - sse8_8bit#4 %.3f usec sse=%d %s\n",
943 :			cpu->name, t, sse, (sse!=1360239)?"\| ERROR": "");
944 :			TEST_SSE(sse8_8bit, (int8_t)Src2, (int8_t)Src4, 8);
945 :			printf("%s - sse8_8bit#5 %.3f usec sse=%d %s\n",
946 :			cpu->name, t, sse, (sse!=1208414)?"\| ERROR": "");
947 :			TEST_SSE(sse8_8bit, (int8_t)Src3, (int8_t)Src4, 8);
948 :			printf("%s - sse8_8bit#6 %.3f usec sse=%d %s\n",
949 :			cpu->name, t, sse, (sse!=1099285)?"\| ERROR": "");
950 :
951 :			printf(" ---\n");
952 :			}
953 :			}
954 :
955 :			/*********************************************************************
956 :	Isibaar	225	* test non-zero AC counting
957 :			*********************************************************************/
958 :
959 :	Skal	1629	#define TEST_CBP(FUNC, SRC, NB) \
960 :	edgomez	1382	t = gettime_usec(); \
961 :			emms(); \
962 :	Skal	1629	for(tst=0; tst<NB; ++tst) { \
963 :	edgomez	1382	cbp = (FUNC)((SRC)); \
964 :			} \
965 :			emms(); \
966 :			t = (gettime_usec()-t ) / nb_tests;
967 :	Isibaar	225
968 :			void test_cbp()
969 :			{
970 :	edgomez	1382	const int nb_tests = 10000*speed_ref;
971 :	Skal	1629	int i, n, m;
972 :	edgomez	1382	CPU *cpu;
973 :			DECLARE_ALIGNED_MATRIX(Src1, 6, 64, int16_t, 16);
974 :			DECLARE_ALIGNED_MATRIX(Src2, 6, 64, int16_t, 16);
975 :			DECLARE_ALIGNED_MATRIX(Src3, 6, 64, int16_t, 16);
976 :			DECLARE_ALIGNED_MATRIX(Src4, 6, 64, int16_t, 16);
977 :	suxen_drol	1641	DECLARE_ALIGNED_MATRIX(Src5, 6, 64, int16_t, 16);
978 :	Isibaar	225
979 :	edgomez	1382	printf( "\n ===== test cbp =====\n" );
980 :	Isibaar	225
981 :	edgomez	1382	for(i=0; i<6*64; ++i) {
982 :			Src1[i] = (ii3/8192)&(i/64)&1; /* 'random' */
983 :			Src2[i] = (i<364); / half-full */
984 :			Src3[i] = ((i+32)>3*64);
985 :			Src4[i] = (i==(364+2) \|\| i==(564+9));
986 :	suxen_drol	1641	Src5[i] = ieee_rand(0,1) ? -1 : 1; /* +/- test */
987 :	edgomez	1382	}
988 :	Isibaar	225
989 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
990 :			{
991 :			double t;
992 :			int tst, cbp;
993 :	Isibaar	225
994 :	edgomez	1382	if (!init_cpu(cpu))
995 :			continue;
996 :
997 :	Skal	1629	TEST_CBP(calc_cbp, Src1, nb_tests);
998 :	edgomez	1424	printf("%s - calc_cbp#1 %.3f usec cbp=0x%02x %s\n",
999 :	edgomez	1382	cpu->name, t, cbp, (cbp!=0x15)?"\| ERROR": "");
1000 :	Skal	1629	TEST_CBP(calc_cbp, Src2, nb_tests);
1001 :	edgomez	1424	printf("%s - calc_cbp#2 %.3f usec cbp=0x%02x %s\n",
1002 :	edgomez	1382	cpu->name, t, cbp, (cbp!=0x38)?"\| ERROR": "");
1003 :	Skal	1629	TEST_CBP(calc_cbp, Src3, nb_tests);
1004 :	edgomez	1424	printf("%s - calc_cbp#3 %.3f usec cbp=0x%02x %s\n",
1005 :	edgomez	1382	cpu->name, t, cbp, (cbp!=0x0f)?"\| ERROR": "" );
1006 :	Skal	1629	TEST_CBP(calc_cbp, Src4, nb_tests);
1007 :	edgomez	1424	printf("%s - calc_cbp#4 %.3f usec cbp=0x%02x %s\n",
1008 :	edgomez	1382	cpu->name, t, cbp, (cbp!=0x05)?"\| ERROR": "" );
1009 :	suxen_drol	1641	TEST_CBP(calc_cbp, Src5, nb_tests);
1010 :			printf("%s - calc_cbp#4 %.3f usec cbp=0x%02x %s\n",
1011 :			cpu->name, t, cbp, (cbp!=0x3f)?"\| ERROR": "" );
1012 :	edgomez	1382	printf( " --- \n" );
1013 :			}
1014 :	Skal	1629
1015 :			for(cpu = cpu_list; cpu->name!=0; ++cpu) /* bench suggested by Carlo (carlo dot bramix at libero dot it) */
1016 :			{
1017 :			double t;
1018 :			int tst, cbp, err;
1019 :
1020 :			if (!init_cpu(cpu))
1021 :			continue;
1022 :
1023 :			err = 0;
1024 :			for(n=0; n<6; ++n)
1025 :			{
1026 :			for(m=0; m<64; ++m)
1027 :			{
1028 :			for(i=0; i<6*64; ++i)
1029 :			Src1[i] = (i== (m + n*64));
1030 :
1031 :			TEST_CBP(calc_cbp, Src1, 1);
1032 :			if (cbp!= (((m!=0)<<(5-n))))
1033 :			{
1034 :			printf( "%s - calc_cbp#5: ERROR at pos %d / %d!\n", cpu->name, n, m);
1035 :			err = 1;
1036 :			break;
1037 :			}
1038 :			}
1039 :			}
1040 :			if (!err)
1041 :			printf( " %s - calc_cbp#5 : OK\n", cpu->name );
1042 :
1043 :			}
1044 :	Isibaar	225	}
1045 :
1046 :			/*********************************************************************
1047 :	Isibaar	262	* fdct/idct IEEE1180 compliance
1048 :			*********************************************************************/
1049 :
1050 :			typedef struct {
1051 :	edgomez	1382	long Errors[64];
1052 :			long Sqr_Errors[64];
1053 :			long Max_Errors[64];
1054 :			long Nb;
1055 :	Isibaar	262	} STATS_8x8;
1056 :
1057 :			void init_stats(STATS_8x8 *S)
1058 :			{
1059 :	edgomez	1382	int i;
1060 :			for(i=0; i<64; ++i) {
1061 :			S->Errors[i] = 0;
1062 :			S->Sqr_Errors[i] = 0;
1063 :			S->Max_Errors[i] = 0;
1064 :			}
1065 :			S->Nb = 0;
1066 :	Isibaar	262	}
1067 :
1068 :			void store_stats(STATS_8x8 *S, short Blk[64], short Ref[64])
1069 :			{
1070 :	edgomez	1382	int i;
1071 :			for(i=0; i<64; ++i)
1072 :			{
1073 :			short Err = Blk[i] - Ref[i];
1074 :			S->Errors[i] += Err;
1075 :			S->Sqr_Errors[i] += Err * Err;
1076 :			if (Err<0) Err = -Err;
1077 :			if (S->Max_Errors[i]<Err)
1078 :			S->Max_Errors[i] = Err;
1079 :			}
1080 :			S->Nb++;
1081 :	Isibaar	262	}
1082 :
1083 :			void print_stats(STATS_8x8 *S)
1084 :			{
1085 :	edgomez	1382	int i;
1086 :			double Norm;
1087 :	Isibaar	262
1088 :	edgomez	1382	assert(S->Nb>0);
1089 :			Norm = 1. / (double)S->Nb;
1090 :			printf("\n== Max absolute values of errors ==\n");
1091 :			for(i=0; i<64; i++) {
1092 :			printf(" %4ld", S->Max_Errors[i]);
1093 :			if ((i&7)==7) printf("\n");
1094 :			}
1095 :	Isibaar	262
1096 :	edgomez	1382	printf("\n== Mean square errors ==\n");
1097 :			for(i=0; i<64; i++)
1098 :			{
1099 :			double Err = Norm * (double)S->Sqr_Errors[i];
1100 :			printf(" %.3f", Err);
1101 :			if ((i&7)==7) printf("\n");
1102 :			}
1103 :	Isibaar	262
1104 :	edgomez	1382	printf("\n== Mean errors ==\n");
1105 :			for(i=0; i<64; i++)
1106 :			{
1107 :			double Err = Norm * (double)S->Errors[i];
1108 :			printf(" %.3f", Err);
1109 :			if ((i&7)==7) printf("\n");
1110 :			}
1111 :			printf("\n");
1112 :	Isibaar	262	}
1113 :
1114 :			static const char *CHECK(double v, double l) {
1115 :	edgomez	1382	if (fabs(v)<=l) return "ok";
1116 :			else return "FAIL!";
1117 :	Isibaar	262	}
1118 :
1119 :			void report_stats(STATS_8x8 S, const double Limits)
1120 :			{
1121 :	edgomez	1382	int i;
1122 :			double Norm, PE, PMSE, OMSE, PME, OME;
1123 :	Isibaar	262
1124 :	edgomez	1382	assert(S->Nb>0);
1125 :			Norm = 1. / (double)S->Nb;
1126 :			PE = 0.;
1127 :			for(i=0; i<64; i++) {
1128 :			if (PE<S->Max_Errors[i])
1129 :			PE = S->Max_Errors[i];
1130 :			}
1131 :	Isibaar	262
1132 :	edgomez	1382	PMSE = 0.;
1133 :			OMSE = 0.;
1134 :			for(i=0; i<64; i++)
1135 :			{
1136 :			double Err = Norm * (double)S->Sqr_Errors[i];
1137 :			OMSE += Err;
1138 :			if (PMSE < Err) PMSE = Err;
1139 :			}
1140 :			OMSE /= 64.;
1141 :	Isibaar	262
1142 :	edgomez	1382	PME = 0.;
1143 :			OME = 0.;
1144 :			for(i=0; i<64; i++)
1145 :			{
1146 :			double Err = Norm * (double)S->Errors[i];
1147 :			OME += Err;
1148 :			Err = fabs(Err);
1149 :			if (PME < Err) PME = Err;
1150 :			}
1151 :			OME /= 64.;
1152 :	Isibaar	262
1153 :	edgomez	1382	printf( "Peak error: %4.4f\n", PE );
1154 :			printf( "Peak MSE: %4.4f\n", PMSE );
1155 :			printf( "Overall MSE: %4.4f\n", OMSE );
1156 :			printf( "Peak ME: %4.4f\n", PME );
1157 :			printf( "Overall ME: %4.4f\n", OME );
1158 :
1159 :			if (Limits!=0)
1160 :			{
1161 :			printf( "[PE<=%.4f %s] ", Limits[0], CHECK(PE, Limits[0]) );
1162 :			printf( "\n" );
1163 :			printf( "[PMSE<=%.4f %s]", Limits[1], CHECK(PMSE, Limits[1]) );
1164 :			printf( "[OMSE<=%.4f %s]", Limits[2], CHECK(OMSE, Limits[2]) );
1165 :			printf( "\n" );
1166 :			printf( "[PME<=%.4f %s] ", Limits[3], CHECK(PME , Limits[3]) );
1167 :			printf( "[OME<=%.4f %s] ", Limits[4], CHECK(OME , Limits[4]) );
1168 :			printf( "\n" );
1169 :			}
1170 :	Isibaar	262	}
1171 :
1172 :	edgomez	1382	///* ////////////////////////////////////////////////////// */
1173 :	Isibaar	262	/* Pseudo-random generator specified by IEEE 1180 */
1174 :
1175 :			static long ieee_seed = 1;
1176 :			static void ieee_reseed(long s) {
1177 :	edgomez	1382	ieee_seed = s;
1178 :	Isibaar	262	}
1179 :			static long ieee_rand(int Min, int Max)
1180 :			{
1181 :	edgomez	1382	static double z = (double) 0x7fffffff;
1182 :	Isibaar	262
1183 :	edgomez	1382	long i,j;
1184 :			double x;
1185 :	Isibaar	262
1186 :	edgomez	1382	ieee_seed = (ieee_seed * 1103515245) + 12345;
1187 :			i = ieee_seed & 0x7ffffffe;
1188 :			x = ((double) i) / z;
1189 :			x *= (Max-Min+1);
1190 :			j = (long)x;
1191 :			j = j + Min;
1192 :			assert(j>=Min && j<=Max);
1193 :			return (short)j;
1194 :	Isibaar	262	}
1195 :
1196 :			#define CLAMP(x, M) (x) = ((x)<-(M)) ? (-(M)) : ((x)>=(M) ? ((M)-1) : (x))
1197 :
1198 :			static double Cos[8][8];
1199 :			static void init_ref_dct()
1200 :			{
1201 :	edgomez	1382	int i, j;
1202 :			for(i=0; i<8; i++)
1203 :			{
1204 :			double scale = (i == 0) ? sqrt(0.125) : 0.5;
1205 :			for (j=0; j<8; j++)
1206 :			Cos[i][j] = scalecos( (M_PI/8.0)i*(j + 0.5) );
1207 :			}
1208 :	Isibaar	262	}
1209 :
1210 :			void ref_idct(short *M)
1211 :			{
1212 :	edgomez	1382	int i, j, k;
1213 :			double Tmp[8][8];
1214 :	Isibaar	262
1215 :	edgomez	1382	for(i=0; i<8; i++) {
1216 :			for(j=0; j<8; j++)
1217 :			{
1218 :			double Sum = 0.0;
1219 :			for (k=0; k<8; k++) Sum += Cos[k][j]M[8i+k];
1220 :			Tmp[i][j] = Sum;
1221 :			}
1222 :			}
1223 :			for(i=0; i<8; i++) {
1224 :			for(j=0; j<8; j++) {
1225 :			double Sum = 0.0;
1226 :			for (k=0; k<8; k++) Sum += Cos[k][i]*Tmp[k][j];
1227 :			M[8*i+j] = (short)floor(Sum + .5);
1228 :			}
1229 :			}
1230 :	Isibaar	262	}
1231 :
1232 :			void ref_fdct(short *M)
1233 :			{
1234 :	edgomez	1382	int i, j, k;
1235 :			double Tmp[8][8];
1236 :	Isibaar	262
1237 :	edgomez	1382	for(i=0; i<8; i++) {
1238 :			for(j=0; j<8; j++)
1239 :			{
1240 :			double Sum = 0.0;
1241 :			for (k=0; k<8; k++) Sum += Cos[j][k]M[8i+k];
1242 :			Tmp[i][j] = Sum;
1243 :			}
1244 :			}
1245 :			for(i=0; i<8; i++) {
1246 :			for(j=0; j<8; j++) {
1247 :			double Sum = 0.0;
1248 :			for (k=0; k<8; k++) Sum += Cos[i][k]*Tmp[k][j];
1249 :			M[8*i+j] = (short)floor(Sum + 0.5);
1250 :			}
1251 :			}
1252 :	Isibaar	262	}
1253 :
1254 :			void test_IEEE1180_compliance(int Min, int Max, int Sign)
1255 :			{
1256 :	edgomez	1382	static const double ILimits[5] = { 1., 0.06, 0.02, 0.015, 0.0015 };
1257 :			int Loops = 10000;
1258 :			int i, m, n;
1259 :			DECLARE_ALIGNED_MATRIX(Blk0, 8, 8, short, 16); /* reference */
1260 :			DECLARE_ALIGNED_MATRIX(Blk, 8, 8, short, 16);
1261 :			DECLARE_ALIGNED_MATRIX(iBlk, 8, 8, short, 16);
1262 :			DECLARE_ALIGNED_MATRIX(Ref_FDCT, 8, 8, short, 16);
1263 :			DECLARE_ALIGNED_MATRIX(Ref_IDCT, 8, 8, short, 16);
1264 :	Isibaar	262
1265 :	edgomez	1382	STATS_8x8 FStats; /* forward dct stats */
1266 :			STATS_8x8 IStats; /* inverse dct stats */
1267 :	Isibaar	262
1268 :	edgomez	1382	CPU *cpu;
1269 :	Isibaar	262
1270 :	edgomez	1382	init_ref_dct();
1271 :	Isibaar	262
1272 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
1273 :			{
1274 :			if (!init_cpu(cpu))
1275 :			continue;
1276 :	Isibaar	262
1277 :	edgomez	1382	printf( "\n===== IEEE test for %s ==== (Min=%d Max=%d Sign=%d Loops=%d)\n",
1278 :			cpu->name, Min, Max, Sign, Loops);
1279 :	Isibaar	262
1280 :	edgomez	1382	init_stats(&IStats);
1281 :			init_stats(&FStats);
1282 :	Isibaar	262
1283 :	edgomez	1382	ieee_reseed(1);
1284 :			for(n=0; n<Loops; ++n)
1285 :			{
1286 :			for(i=0; i<64; ++i)
1287 :			Blk0[i] = (short)ieee_rand(Min,Max) * Sign;
1288 :	Isibaar	262
1289 :	edgomez	1382	/* hmm, I'm not quite sure this is exactly */
1290 :			/* the tests described in the norm. check... */
1291 :	Isibaar	262
1292 :	edgomez	1382	memcpy(Ref_FDCT, Blk0, 64*sizeof(short));
1293 :			ref_fdct(Ref_FDCT);
1294 :			for(i=0; i<64; i++) CLAMP( Ref_FDCT[i], 2048 );
1295 :	Isibaar	262
1296 :	edgomez	1382	memcpy(Blk, Blk0, 64*sizeof(short));
1297 :			emms(); fdct(Blk); emms();
1298 :			for(i=0; i<64; i++) CLAMP( Blk[i], 2048 );
1299 :	Isibaar	262
1300 :	edgomez	1382	store_stats(&FStats, Blk, Ref_FDCT);
1301 :	Isibaar	262
1302 :
1303 :	edgomez	1382	memcpy(Ref_IDCT, Ref_FDCT, 64*sizeof(short));
1304 :			ref_idct(Ref_IDCT);
1305 :			for (i=0; i<64; i++) CLAMP( Ref_IDCT[i], 256 );
1306 :	Isibaar	262
1307 :	edgomez	1382	memcpy(iBlk, Ref_FDCT, 64*sizeof(short));
1308 :			emms(); idct(iBlk); emms();
1309 :			for(i=0; i<64; i++) CLAMP( iBlk[i], 256 );
1310 :	Isibaar	262
1311 :	edgomez	1382	store_stats(&IStats, iBlk, Ref_IDCT);
1312 :			}
1313 :	Isibaar	262
1314 :
1315 :	edgomez	1382	printf( "\n -- FDCT report --\n" );
1316 :	edgomez	851	// print_stats(&FStats);
1317 :	edgomez	1382	report_stats(&FStats, 0); /* so far I know, IEEE1180 says nothing for fdct */
1318 :	Isibaar	262
1319 :	edgomez	1382	for(i=0; i<64; i++) Blk[i] = 0;
1320 :			emms(); fdct(Blk); emms();
1321 :			for(m=i=0; i<64; i++) if (Blk[i]!=0) m++;
1322 :			printf( "FDCT(0) == 0 ? %s\n", (m!=0) ? "NOPE!" : "yup." );
1323 :	Isibaar	262
1324 :	edgomez	1382	printf( "\n -- IDCT report --\n" );
1325 :	edgomez	851	// print_stats(&IStats);
1326 :	edgomez	1382	report_stats(&IStats, ILimits);
1327 :	Isibaar	262
1328 :
1329 :	edgomez	1382	for(i=0; i<64; i++) Blk[i] = 0;
1330 :			emms(); idct(Blk); emms();
1331 :			for(m=i=0; i<64; i++) if (Blk[i]!=0) m++;
1332 :			printf( "IDCT(0) == 0 ? %s\n", (m!=0) ? "NOPE!" : "yup." );
1333 :			}
1334 :	Isibaar	262	}
1335 :
1336 :
1337 :			void test_dct_saturation(int Min, int Max)
1338 :			{
1339 :	edgomez	1382	/* test behaviour on input range fringe */
1340 :	Isibaar	262
1341 :	edgomez	1382	int i, n, p;
1342 :			CPU *cpu;
1343 :			// const short IDCT_MAX = 2047; /* 12bits input */
1344 :	edgomez	851	// const short IDCT_MIN = -2048;
1345 :	edgomez	1382	// const short IDCT_OUT = 256; /* 9bits ouput */
1346 :			const int Partitions = 4;
1347 :			const int Loops = 10000 / Partitions;
1348 :	Isibaar	262
1349 :	edgomez	1382	init_ref_dct();
1350 :	Isibaar	262
1351 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
1352 :			{
1353 :			short Blk0[64], Blk[64];
1354 :			STATS_8x8 Stats;
1355 :	Isibaar	262
1356 :	edgomez	1382	if (!init_cpu(cpu))
1357 :			continue;
1358 :	Isibaar	262
1359 :	edgomez	1382	printf( "\n===== IEEE test for %s Min=%d Max=%d =====\n",
1360 :			cpu->name, Min, Max );
1361 :	Isibaar	262
1362 :	edgomez	1382	/* FDCT tests // */
1363 :	Isibaar	262
1364 :	edgomez	1382	init_stats(&Stats);
1365 :	Isibaar	262
1366 :	edgomez	1382	/* test each computation channels separately */
1367 :			for(i=0; i<64; i++) Blk[i] = Blk0[i] = ((i/8)==(i%8)) ? Max : 0;
1368 :			ref_fdct(Blk0);
1369 :			emms(); fdct(Blk); emms();
1370 :			store_stats(&Stats, Blk, Blk0);
1371 :	Isibaar	262
1372 :	edgomez	1382	for(i=0; i<64; i++) Blk[i] = Blk0[i] = ((i/8)==(i%8)) ? Min : 0;
1373 :			ref_fdct(Blk0);
1374 :			emms(); fdct(Blk); emms();
1375 :			store_stats(&Stats, Blk, Blk0);
1376 :	Isibaar	262
1377 :	edgomez	1382	/* randomly saturated inputs */
1378 :			for(p=0; p<Partitions; ++p)
1379 :			{
1380 :			for(n=0; n<Loops; ++n)
1381 :			{
1382 :			for(i=0; i<64; ++i)
1383 :			Blk0[i] = Blk[i] = (ieee_rand(0,Partitions)>=p)? Max : Min;
1384 :			ref_fdct(Blk0);
1385 :			emms(); fdct(Blk); emms();
1386 :			store_stats(&Stats, Blk, Blk0);
1387 :			}
1388 :			}
1389 :			printf( "\n -- FDCT saturation report --\n" );
1390 :			report_stats(&Stats, 0);
1391 :	Isibaar	262
1392 :
1393 :	edgomez	1382	/* IDCT tests // */
1394 :	Isibaar	262	#if 0
1395 :	edgomez	1382	/* no finished yet */
1396 :	Isibaar	262
1397 :	edgomez	1382	init_stats(&Stats);
1398 :	Isibaar	262
1399 :	edgomez	1382	/* test each computation channel separately */
1400 :			for(i=0; i<64; i++) Blk[i] = Blk0[i] = ((i/8)==(i%8)) ? IDCT_MAX : 0;
1401 :			ref_idct(Blk0);
1402 :			emms(); idct(Blk); emms();
1403 :			for(i=0; i<64; i++) { CLAMP(Blk0[i], IDCT_OUT); CLAMP(Blk[i], IDCT_OUT); }
1404 :			store_stats(&Stats, Blk, Blk0);
1405 :	Isibaar	262
1406 :	edgomez	1382	for(i=0; i<64; i++) Blk[i] = Blk0[i] = ((i/8)==(i%8)) ? IDCT_MIN : 0;
1407 :			ref_idct(Blk0);
1408 :			emms(); idct(Blk); emms();
1409 :			for(i=0; i<64; i++) { CLAMP(Blk0[i], IDCT_OUT); CLAMP(Blk[i], IDCT_OUT); }
1410 :			store_stats(&Stats, Blk, Blk0);
1411 :	Isibaar	262
1412 :	edgomez	1382	/* randomly saturated inputs */
1413 :			for(p=0; p<Partitions; ++p)
1414 :			{
1415 :			for(n=0; n<Loops; ++n)
1416 :			{
1417 :			for(i=0; i<64; ++i)
1418 :			Blk0[i] = Blk[i] = (ieee_rand(0,Partitions)>=p)? IDCT_MAX : IDCT_MIN;
1419 :			ref_idct(Blk0);
1420 :			emms(); idct(Blk); emms();
1421 :			for(i=0; i<64; i++) { CLAMP(Blk0[i],IDCT_OUT); CLAMP(Blk[i],IDCT_OUT); }
1422 :			store_stats(&Stats, Blk, Blk0);
1423 :			}
1424 :			}
1425 :	Isibaar	262
1426 :	edgomez	1382	printf( "\n -- IDCT saturation report --\n" );
1427 :			print_stats(&Stats);
1428 :			report_stats(&Stats, 0);
1429 :	Isibaar	262	#endif
1430 :	edgomez	1382	}
1431 :	Isibaar	262	}
1432 :
1433 :			/*********************************************************************
1434 :	Isibaar	225	* measure raw decoding speed
1435 :			*********************************************************************/
1436 :
1437 :	Skal	1614	void test_dec(const char *name, int width, int height, int ref_chksum)
1438 :	Isibaar	225	{
1439 :	edgomez	1382	FILE *f = 0;
1440 :			void *dechandle = 0;
1441 :			int xerr;
1442 :			xvid_gbl_init_t xinit;
1443 :			xvid_dec_create_t xparam;
1444 :			xvid_dec_frame_t xframe;
1445 :	Isibaar	225	double t = 0.;
1446 :			int nb = 0;
1447 :	edgomez	1382	uint8_t *buf = 0;
1448 :	Skal	1614	uint8_t *yuv_out = 0;
1449 :	edgomez	1382	int buf_size, pos;
1450 :			uint32_t chksum = 0;
1451 :	Skal	1614	int bps = (width+31) & ~31;
1452 :	Isibaar	225
1453 :	edgomez	1382	memset(&xinit, 0, sizeof(xinit));
1454 :	Skal	1614	xinit.cpu_flags = cpu_mask;
1455 :	edgomez	1382	xinit.version = XVID_VERSION;
1456 :			xvid_global(NULL, 0, &xinit, NULL);
1457 :	Isibaar	225
1458 :	edgomez	1382	memset(&xparam, 0, sizeof(xparam));
1459 :	Skal	1614	xparam.width = width;
1460 :	Isibaar	225	xparam.height = height;
1461 :	edgomez	1382	xparam.version = XVID_VERSION;
1462 :	Isibaar	225	xerr = xvid_decore(NULL, XVID_DEC_CREATE, &xparam, NULL);
1463 :	edgomez	1382	if (xerr==XVID_ERR_FAIL) {
1464 :	Skal	1614	printf("ERROR: can't init decoder (err=%d)\n", xerr);
1465 :	edgomez	1382	return;
1466 :	Isibaar	225	}
1467 :			dechandle = xparam.handle;
1468 :
1469 :
1470 :			f = fopen(name, "rb");
1471 :	edgomez	1382	if (f==0) {
1472 :	Skal	1614	printf( "ERROR: can't open file '%s'\n", name);
1473 :	edgomez	1382	return;
1474 :			}
1475 :			fseek(f, 0, SEEK_END);
1476 :			buf_size = ftell(f);
1477 :			fseek(f, 0, SEEK_SET);
1478 :			if (buf_size<=0) {
1479 :	Skal	1614	printf("ERROR: error while stating file\n");
1480 :	edgomez	1382	goto End;
1481 :			}
1482 :	Isibaar	225
1483 :	Skal	1614	buf = malloc(buf_size);
1484 :			yuv_out = calloc(1, bpsheight3/2 + 15);
1485 :			if (buf==0 \|\| yuv_out==0) {
1486 :			printf( "ERROR: malloc failed!\n" );
1487 :	edgomez	1382	goto End;
1488 :			}
1489 :	Isibaar	225
1490 :	edgomez	1382	if (fread(buf, buf_size, 1, f)!=1) {
1491 :	Skal	1614	printf( "ERROR: file-read failed\n" );
1492 :	edgomez	1382	goto End;
1493 :			}
1494 :	Isibaar	225
1495 :	edgomez	1382	nb = 0;
1496 :			pos = 0;
1497 :			t = -gettime_usec();
1498 :			while(1) {
1499 :	Skal	1614	int y;
1500 :
1501 :	edgomez	1382	memset(&xframe, 0, sizeof(xframe));
1502 :			xframe.version = XVID_VERSION;
1503 :			xframe.bitstream = buf + pos;
1504 :			xframe.length = buf_size - pos;
1505 :	Skal	1614	xframe.output.plane[0] = (uint8_t*)(((size_t)yuv_out + 15) & ~15);
1506 :	suxen_drol	1638	xframe.output.plane[1] = (uint8_t)xframe.output.plane[0] + bpsheight;
1507 :			xframe.output.plane[2] = (uint8_t*)xframe.output.plane[1] + bps/2;
1508 :	Skal	1614	xframe.output.stride[0] = bps;
1509 :			xframe.output.stride[1] = bps;
1510 :			xframe.output.stride[2] = bps;
1511 :			xframe.output.csp = XVID_CSP_I420;
1512 :	edgomez	1382	xerr = xvid_decore(dechandle, XVID_DEC_DECODE, &xframe, 0);
1513 :	Skal	1614	if (xerr<0) {
1514 :			printf("ERROR: decoding failed for frame #%d (err=%d)!\n", nb, xerr);
1515 :			break;
1516 :			}
1517 :			else if (xerr==0)
1518 :			break;
1519 :			else if (verbose>0) printf("#%d %d\n", nb, xerr );
1520 :
1521 :			pos += xerr;
1522 :	edgomez	1382	nb++;
1523 :	Skal	1614
1524 :			for(y=0; y<height/2; ++y) {
1525 :	suxen_drol	1638	chksum = calc_crc((uint8_t)xframe.output.plane[0] + (2y+0)*bps, width, chksum);
1526 :			chksum = calc_crc((uint8_t)xframe.output.plane[0] + (2y+1)*bps, width, chksum);
1527 :			chksum = calc_crc((uint8_t)xframe.output.plane[1] + ybps, width/2, chksum);
1528 :			chksum = calc_crc((uint8_t)xframe.output.plane[2] + ybps, width/2, chksum);
1529 :	edgomez	1382	}
1530 :			if (pos==buf_size)
1531 :			break;
1532 :			}
1533 :			t += gettime_usec();
1534 :	Skal	1614	if (ref_chksum==0) {
1535 :			if (t>0.)
1536 :			printf( "%d frames decoded in %.3f s -> %.1f FPS Checksum:0x%.8x\n", nb, t1.e-6f, (float)(nb1.e6f/t), chksum );
1537 :			}
1538 :			else {
1539 :			printf("FPS:%.1f Checksum: 0x%.8x Expected:0x%.8x \| %s\n",
1540 :			t>0. ? (float)(nb*1.e6f/t) : 0.f, chksum, ref_chksum, (chksum==ref_chksum) ? "OK" : "ERROR");
1541 :			}
1542 :	Isibaar	225
1543 :	edgomez	1382	End:
1544 :	Skal	1614	if (yuv_out!=0) free(yuv_out);
1545 :	edgomez	1382	if (buf!=0) free(buf);
1546 :			if (dechandle!=0) {
1547 :			xerr= xvid_decore(dechandle, XVID_DEC_DESTROY, NULL, NULL);
1548 :			if (xerr==XVID_ERR_FAIL)
1549 :	Skal	1614	printf("ERROR: destroy-decoder failed (err=%d)!\n", xerr);
1550 :	edgomez	1382	}
1551 :			if (f!=0) fclose(f);
1552 :	Isibaar	225	}
1553 :
1554 :			/*********************************************************************
1555 :			* non-regression tests
1556 :			*********************************************************************/
1557 :
1558 :			void test_bugs1()
1559 :			{
1560 :	edgomez	1382	CPU *cpu;
1561 :			uint16_t mpeg_quant_matrices[64*8];
1562 :	Isibaar	225
1563 :	edgomez	1382	printf( "\n ===== (de)quant4_intra saturation bug? =====\n" );
1564 :	Isibaar	225
1565 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
1566 :			{
1567 :			int i;
1568 :			int16_t Src[88], Dst[88];
1569 :	Isibaar	225
1570 :	edgomez	1382	if (!init_cpu(cpu))
1571 :			continue;
1572 :	Isibaar	225
1573 :	edgomez	1382	for(i=0; i<64; ++i) Src[i] = i-32;
1574 :			set_intra_matrix( mpeg_quant_matrices, get_default_intra_matrix() );
1575 :			dequant_mpeg_intra(Dst, Src, 31, 5, mpeg_quant_matrices);
1576 :			printf( "dequant_mpeg_intra with CPU=%s: ", cpu->name);
1577 :			printf( " Out[]= " );
1578 :			for(i=0; i<64; ++i) printf( "[%d]", Dst[i]);
1579 :			printf( "\n" );
1580 :			}
1581 :	Isibaar	225
1582 :	edgomez	1382	printf( "\n ===== (de)quant4_inter saturation bug? =====\n" );
1583 :	Isibaar	225
1584 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
1585 :			{
1586 :			int i;
1587 :			int16_t Src[88], Dst[88];
1588 :	Isibaar	225
1589 :	edgomez	1382	if (!init_cpu(cpu))
1590 :			continue;
1591 :	Isibaar	225
1592 :	edgomez	1382	for(i=0; i<64; ++i) Src[i] = i-32;
1593 :			set_inter_matrix( mpeg_quant_matrices, get_default_inter_matrix() );
1594 :			dequant_mpeg_inter(Dst, Src, 31, mpeg_quant_matrices);
1595 :			printf( "dequant_mpeg_inter with CPU=%s: ", cpu->name);
1596 :			printf( " Out[]= " );
1597 :			for(i=0; i<64; ++i) printf( "[%d]", Dst[i]);
1598 :			printf( "\n" );
1599 :			}
1600 :	Isibaar	225	}
1601 :
1602 :			void test_dct_precision_diffs()
1603 :			{
1604 :	edgomez	1382	CPU *cpu;
1605 :			DECLARE_ALIGNED_MATRIX(Blk, 8, 8, int16_t, 16);
1606 :			DECLARE_ALIGNED_MATRIX(Blk0, 8, 8, int16_t, 16);
1607 :	Isibaar	225
1608 :	edgomez	1382	printf( "\n ===== fdct/idct precision diffs =====\n" );
1609 :	Isibaar	225
1610 :	edgomez	1382	for(cpu = cpu_list; cpu->name!=0; ++cpu)
1611 :			{
1612 :			int i;
1613 :	Isibaar	225
1614 :	edgomez	1382	if (!init_cpu(cpu))
1615 :			continue;
1616 :	Isibaar	225
1617 :	edgomez	1382	for(i=0; i<8*8; ++i) {
1618 :			Blk0[i] = (i7-ii) & 0x7f;
1619 :			Blk[i] = Blk0[i];
1620 :			}
1621 :	Isibaar	225
1622 :	edgomez	1382	fdct(Blk);
1623 :			idct(Blk);
1624 :			printf( " fdct+idct diffs with CPU=%s: \n", cpu->name );
1625 :			for(i=0; i<8; ++i) {
1626 :			int j;
1627 :			for(j=0; j<8; ++j) printf( " %d ", Blk[i8+j]-Blk0[i8+j]);
1628 :			printf("\n");
1629 :			}
1630 :			printf("\n");
1631 :			}
1632 :	Isibaar	225	}
1633 :
1634 :	Isibaar	262	void test_quant_bug()
1635 :			{
1636 :	edgomez	1382	const int max_Q = 31;
1637 :			int i, n, qm, q;
1638 :			CPU *cpu;
1639 :			DECLARE_ALIGNED_MATRIX(Src, 8, 8, int16_t, 16);
1640 :			DECLARE_ALIGNED_MATRIX(Dst, 8, 8, int16_t, 16);
1641 :			uint8_t Quant[8*8];
1642 :			CPU cpu_bug_list[] = { { "PLAINC", 0 }, { "MMX ", XVID_CPU_MMX }, {0,0} };
1643 :			uint16_t Crcs_Inter[2][32];
1644 :			uint16_t Crcs_Intra[2][32];
1645 :			DECLARE_ALIGNED_MATRIX(mpeg_quant_matrices, 8, 64, uint16_t, 16);
1646 :	Isibaar	225
1647 :	edgomez	1382	printf( "\n ===== test MPEG4-quantize bug =====\n" );
1648 :	Isibaar	262
1649 :	edgomez	1382	for(i=0; i<64; ++i) Src[i] = 2048*(i-32)/32;
1650 :
1651 :	Isibaar	262	#if 1
1652 :	edgomez	1382	for(qm=1; qm<=255; ++qm)
1653 :			{
1654 :			for(i=0; i<8*8; ++i) Quant[i] = qm;
1655 :			set_inter_matrix( mpeg_quant_matrices, Quant );
1656 :	Isibaar	262
1657 :	edgomez	1382	for(n=0, cpu = cpu_bug_list; cpu->name!=0; ++cpu, ++n)
1658 :			{
1659 :			uint16_t s;
1660 :	Isibaar	262
1661 :	edgomez	1382	if (!init_cpu(cpu))
1662 :			continue;
1663 :	Isibaar	262
1664 :	edgomez	1382	for(q=1; q<=max_Q; ++q) {
1665 :			emms();
1666 :			quant_mpeg_inter( Dst, Src, q, mpeg_quant_matrices );
1667 :			emms();
1668 :			for(s=0, i=0; i<64; ++i) s+=((uint16_t)Dst[i])^i;
1669 :			Crcs_Inter[n][q] = s;
1670 :			}
1671 :			}
1672 :	Isibaar	262
1673 :	edgomez	1382	for(q=1; q<=max_Q; ++q)
1674 :			for(i=0; i<n-1; ++i)
1675 :			if (Crcs_Inter[i][q]!=Crcs_Inter[i+1][q])
1676 :			printf( "Discrepancy Inter: qm=%d, q=%d -> %d/%d !\n",
1677 :			qm, q, Crcs_Inter[i][q], Crcs_Inter[i+1][q]);
1678 :			}
1679 :	Isibaar	262	#endif
1680 :
1681 :			#if 1
1682 :	edgomez	1382	for(qm=1; qm<=255; ++qm)
1683 :			{
1684 :			for(i=0; i<8*8; ++i) Quant[i] = qm;
1685 :			set_intra_matrix( mpeg_quant_matrices, Quant );
1686 :	Isibaar	262
1687 :	edgomez	1382	for(n=0, cpu = cpu_bug_list; cpu->name!=0; ++cpu, ++n)
1688 :			{
1689 :			uint16_t s;
1690 :	Isibaar	262
1691 :	edgomez	1382	if (!init_cpu(cpu))
1692 :			continue;
1693 :	Isibaar	262
1694 :	edgomez	1382	for(q=1; q<=max_Q; ++q) {
1695 :			emms();
1696 :			quant_mpeg_intra( Dst, Src, q, q, mpeg_quant_matrices);
1697 :			emms();
1698 :			for(s=0, i=0; i<64; ++i) s+=((uint16_t)Dst[i])^i;
1699 :			Crcs_Intra[n][q] = s;
1700 :			}
1701 :			}
1702 :	Isibaar	262
1703 :	edgomez	1382	for(q=1; q<=max_Q; ++q)
1704 :			for(i=0; i<n-1; ++i)
1705 :			if (Crcs_Intra[i][q]!=Crcs_Intra[i+1][q])
1706 :			printf( "Discrepancy Intra: qm=%d, q=%d -> %d/%d!\n",
1707 :			qm, q, Crcs_Inter[i][q], Crcs_Inter[i+1][q]);
1708 :			}
1709 :	Isibaar	262	#endif
1710 :			}
1711 :	Skal	1707
1712 :			/*********************************************************************
1713 :			* test some YUV func
1714 :			*********************************************************************/
1715 :
1716 :			#define ENTER \
1717 :			for(i=0; i<(int)sizeof(Dst0); ++i) Dst0[0][i] = 0; \
1718 :			t = gettime_usec(); \
1719 :			emms();
1720 :
1721 :			#define LEAVE \
1722 :			emms(); \
1723 :			t = (gettime_usec() - t) / nb_tests; \
1724 :			iCrc = calc_crc((uint8_t*)Dst0, sizeof(Dst0), CRC32_INITIAL)
1725 :
1726 :			#define TEST_YUYV(FUNC, S) \
1727 :			ENTER \
1728 :			for(tst=0; tst<nb_tests; ++tst) (FUNC)(Dst0[0], S*WIDTH, Src0[0], Src0[1], Src0[2], WIDTH, WIDTH/2, WIDTH, HEIGHT, 0); \
1729 :			LEAVE
1730 :
1731 :	Skal	1742	#define WIDTH 128
1732 :			#define HEIGHT 32
1733 :	Skal	1707	void test_yuv()
1734 :			{
1735 :			const int nb_tests = 200*speed_ref;
1736 :			CPU *cpu;
1737 :			uint8_t Src0[3][WIDTH*HEIGHT];
1738 :			uint8_t Dst0[4][WIDTH*HEIGHT];
1739 :			int i, j;
1740 :			double t;
1741 :			int tst, iCrc;
1742 :
1743 :			colorspace_init();
1744 :			ieee_reseed(1);
1745 :			for(i=0; i<(int)sizeof(Src0); ++i) Src0[0][i] = ieee_rand(0,255);
1746 :	Skal	1742	for(i=0; i<(int)sizeof(Dst0); ++i) Dst0[0][i] = 0x5a;
1747 :	Skal	1707
1748 :			printf( "\n === test YUV ===\n" );
1749 :
1750 :			init_cpu(&cpu_list[0]);
1751 :			TEST_YUYV(yv12_to_yuyv_c, 4);
1752 :			printf(" yv12_to_yuyv_c %.3f usec crc32=0x%08x %s\n",
1753 :			t, iCrc, (iCrc!=0xeb1a0b0a)?"\| ERROR": "" );
1754 :			TEST_YUYV(yv12_to_uyvy_c, 4);
1755 :			printf(" yv12_to_uyvy_c %.3f usec crc32=0x%08x %s\n",
1756 :			t, iCrc, (iCrc!=0x6e82f55b)?"\| ERROR": "" );
1757 :
1758 :			#ifdef ARCH_IS_IA32
1759 :			init_cpu(&cpu_list[1]);
1760 :			TEST_YUYV(yv12_to_yuyv_mmx, 4);
1761 :			printf(" yv12_to_yuyv_mmx %.3f usec crc32=0x%08x %s\n",
1762 :			t, iCrc, (iCrc!=0xeb1a0b0a)?"\| ERROR": "" );
1763 :
1764 :			TEST_YUYV(yv12_to_uyvy_mmx, 4);
1765 :			printf(" yv12_to_uyvy_mmx %.3f usec crc32=0x%08x %s\n",
1766 :			t, iCrc, (iCrc!=0x6e82f55b)?"\| ERROR": "" );
1767 :			#endif
1768 :
1769 :			#ifdef ARCH_IS_PPC
1770 :			init_cpu(&cpu_list[1]);
1771 :			TEST_YUYV(yv12_to_yuyv_altivec_c, 4);
1772 :			printf(" yv12_to_yuyv_altivec_c %.3f usec crc32=0x%08x %s\n",
1773 :			t, iCrc, (iCrc!=0xeb1a0b0a)?"\| ERROR": "" );
1774 :
1775 :			TEST_YUYV(yv12_to_uyvy_altivec_c, 4);
1776 :			printf(" yv12_to_uyvy_altivec_c %.3f usec crc32=0x%08x %s\n",
1777 :			t, iCrc, (iCrc!=0x6e82f55b)?"\| ERROR": "" );
1778 :			#endif
1779 :			printf( " --- \n" );
1780 :			}
1781 :	Skal	1742
1782 :			#define TEST_YV2(FUNC, WITH_UV, WITH_FLIP) \
1783 :			ENTER \
1784 :			for(tst=0; tst<nb_tests; ++tst) (FUNC)(Dst0[0], Dst0[1], Dst0[2], WIDTH, WIDTH, \
1785 :			Src0[0], (WITH_UV) ? Src0[1] : 0, (WITH_UV) ? Src0[2] : 0, WIDTH, WIDTH, \
1786 :			WIDTH-2, HEIGHT-2, WITH_FLIP); \
1787 :			LEAVE
1788 :
1789 :			#define PRINT_NxN(DATA,W,H,STR) { \
1790 :			int i,j; \
1791 :			for(j=0; j<(H); ++j) { \
1792 :			for(i=0; i<(W); ++i) printf( "0x%.2x ", (DATA)[i+j*(STR)] );\
1793 :			printf("\n"); \
1794 :			} \
1795 :			printf("---\n"); \
1796 :			}
1797 :
1798 :			static const int yv12_CRCs[2][2] = {
1799 :			{0x5cab7cf0,0xdab46541}
1800 :			, {0xe8bae865,0x1faf77b7}
1801 :			};
1802 :
1803 :			void test_yuv2()
1804 :			{
1805 :			const int nb_tests = 800*speed_ref;
1806 :			CPU *cpu;
1807 :			uint8_t Src0[3][WIDTH*HEIGHT];
1808 :			uint8_t Dst0[3][WIDTH*HEIGHT];
1809 :			int with_uv, with_flip;
1810 :			int i, j;
1811 :			double t;
1812 :			int tst, iCrc;
1813 :
1814 :			colorspace_init();
1815 :			ieee_reseed(1);
1816 :			for(i=0; i<(int)sizeof(Src0); ++i) Src0[0][i] = ieee_rand(0,255);
1817 :
1818 :			printf( "\n === test YV2 ===\n" );
1819 :			for(with_flip=0; with_flip<=1; ++with_flip) {
1820 :			for(with_uv=0; with_uv<=1; ++with_uv) {
1821 :			init_cpu(&cpu_list[0]);
1822 :			TEST_YV2(yv12_to_yv12_c, with_uv, with_flip);
1823 :			printf(" yv12_to_yv12_c %.3f usec \tcrc32=0x%08x %s\n",
1824 :			t, iCrc, (iCrc!=yv12_CRCs[with_flip][with_uv])?"\| ERROR": "" );
1825 :			/* if (!with_uv) PRINT_NxN(Dst0[1], WIDTH/2, HEIGHT/2, WIDTH ); */
1826 :
1827 :			#ifdef ARCH_IS_IA32
1828 :			init_cpu(&cpu_list[1]);
1829 :			TEST_YV2(yv12_to_yv12_mmx, with_uv, with_flip);
1830 :			printf(" yv12_to_yv12_mmx %.3f usec \tcrc32=0x%08x %s\n",
1831 :			t, iCrc, (iCrc!=yv12_CRCs[with_flip][with_uv])?"\| ERROR": "" );
1832 :			/* if (!with_uv) PRINT_NxN(Dst0[1], WIDTH/2, HEIGHT/2, WIDTH ); */
1833 :
1834 :			TEST_YV2(yv12_to_yv12_xmm, with_uv, with_flip);
1835 :			printf(" yv12_to_yv12_xmm %.3f usec \tcrc32=0x%08x %s\n",
1836 :			t, iCrc, (iCrc!=yv12_CRCs[with_flip][with_uv])?"\| ERROR": "" );
1837 :			#endif
1838 :			}
1839 :
1840 :			printf( " --- \n" );
1841 :			}
1842 :			printf( " ===== \n" );
1843 :			}
1844 :
1845 :	Skal	1707	#undef WIDTH
1846 :			#undef HEIGHT
1847 :			#undef ENTER
1848 :			#undef LEAVE
1849 :
1850 :	Skal	1616	/*********************************************************************/
1851 :	Isibaar	262
1852 :	Skal	1616	static uint32_t __inline log2bin_v1(uint32_t value)
1853 :			{
1854 :			int n = 0;
1855 :			while (value) {
1856 :			value >>= 1;
1857 :			n++;
1858 :			}
1859 :			return n;
1860 :			}
1861 :
1862 :	Skal	1617	static const uint8_t log2_tab_16[16] = { 0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4 };
1863 :	Skal	1616
1864 :			static uint32_t __inline log2bin_v2(uint32_t value)
1865 :			{
1866 :			int n = 0;
1867 :			if (value & 0xffff0000) {
1868 :			value >>= 16;
1869 :			n += 16;
1870 :			}
1871 :			if (value & 0xff00) {
1872 :			value >>= 8;
1873 :			n += 8;
1874 :			}
1875 :			if (value & 0xf0) {
1876 :			value >>= 4;
1877 :			n += 4;
1878 :			}
1879 :			return n + log2_tab_16[value];
1880 :			}
1881 :
1882 :			void test_log2bin()
1883 :			{
1884 :			const int nb_tests = 3000*speed_ref;
1885 :			int n, crc1=0, crc2=0;
1886 :			uint32_t s, s0;
1887 :			double t1, t2;
1888 :
1889 :			t1 = gettime_usec();
1890 :			s0 = (int)(t1*31.241);
1891 :			for(s=s0, n=0; n<nb_tests; ++n, s=(s*12363+31)&0x7fffffff)
1892 :			crc1 += log2bin_v1(s);
1893 :			t1 = (gettime_usec()-t1) / nb_tests;
1894 :
1895 :			t2 = gettime_usec();
1896 :			for(s=s0, n=0; n<nb_tests; ++n, s=(s*12363+31)&0x7fffffff)
1897 :			crc2 += log2bin_v2(s);
1898 :			t2 = (gettime_usec() - t2) / nb_tests;
1899 :	Skal	1617
1900 :	Skal	1616	printf( "log2bin_v1: %.3f sec crc=%d\n", t1, crc1 );
1901 :			printf( "log2bin_v2: %.3f sec crc=%d\n", t2, crc2 );
1902 :			if (crc1!=crc2) printf( " CRC ERROR !\n" );
1903 :			}
1904 :
1905 :	Skal	1617	/*********************************************************************/
1906 :
1907 :			static void __inline old_gcd(int num, int den)
1908 :			{
1909 :			int i = *num;
1910 :			while (i > 1) {
1911 :			if (num % i == 0 && den % i == 0) {
1912 :			*num /= i;
1913 :			*den /= i;
1914 :			i = *num;
1915 :			continue;
1916 :			}
1917 :			i--;
1918 :			}
1919 :			}
1920 :
1921 :			static uint32_t gcd(int num, int den)
1922 :			{
1923 :			int tmp;
1924 :			while( (tmp=num%den) ) { num = den; den = tmp; }
1925 :			return den;
1926 :			}
1927 :			static void __inline new_gcd(int num, int den)
1928 :			{
1929 :			const int div = gcd(num, den);
1930 :			if (num) {
1931 :			*num /= div;
1932 :			*den /= div;
1933 :			}
1934 :			}
1935 :
1936 :			void test_gcd()
1937 :			{
1938 :	Skal	1746	const int nb_tests = 10*speed_ref;
1939 :	Skal	1617	int i;
1940 :			uint32_t crc1=0, crc2=0;
1941 :			uint32_t n0, n, d0, d;
1942 :			double t1, t2;
1943 :
1944 :			t1 = gettime_usec();
1945 :			n0 = 0xfffff & (int)(t1*31.241);
1946 :			d0 = 0xfffff & (int)( ((n0*4123)%17) \| 1 );
1947 :			for(n=n0, d=d0, i=0; i<nb_tests; ++i) {
1948 :			old_gcd(&n, &d);
1949 :			crc1 = (((crc1>>4)^d) + ((crc1<<2)^n) ) & 0xffffff;
1950 :			n = d;
1951 :			d = (d*12363+31) & 0xffff;
1952 :			d \|= !d;
1953 :			}
1954 :			t1 = (gettime_usec()-t1) / nb_tests;
1955 :
1956 :			t2 = gettime_usec();
1957 :			for(n=n0, d=d0, i=0; i<nb_tests; ++i) {
1958 :			new_gcd(&n, &d);
1959 :			crc2 = (((crc2>>4)^d) + ((crc2<<2)^n) ) & 0xffffff;
1960 :			n = d;
1961 :			d = (d*12363+31) & 0xffff;
1962 :			d \|= !d;
1963 :			}
1964 :			t2 = (gettime_usec() - t2) / nb_tests;
1965 :
1966 :			printf( "old_gcd: %.3f sec crc=%d\n", t1, crc1 );
1967 :			printf( "new_gcd: %.3f sec crc=%d\n", t2, crc2 );
1968 :			if (crc1!=crc2) printf( " CRC ERROR !\n" );
1969 :			}
1970 :
1971 :	Isibaar	225	/*********************************************************************
1972 :	Skal	1651	* test compiler
1973 :			*********************************************************************/
1974 :
1975 :			void test_compiler() {
1976 :			int nb_err = 0;
1977 :			int32_t v;
1978 :			if (sizeof(uint16_t)<2) {
1979 :	Skal	1652	printf( "ERROR: sizeof(uint16_t)<2 !!\n" );
1980 :	Skal	1651	nb_err++;
1981 :			}
1982 :			if (sizeof(int16_t)<2) {
1983 :	Skal	1652	printf( "ERROR: sizeof(int16_t)<2 !!\n" );
1984 :	Skal	1651	nb_err++;
1985 :			}
1986 :			if (sizeof(uint8_t)!=1) {
1987 :	Skal	1652	printf( "ERROR: sizeof(uint8_t)!=1 !!\n" );
1988 :	Skal	1651	nb_err++;
1989 :			}
1990 :			if (sizeof(int8_t)!=1) {
1991 :	Skal	1652	printf( "ERROR: sizeof(int8_t)!=1 !!\n" );
1992 :	Skal	1651	nb_err++;
1993 :			}
1994 :			if (sizeof(uint32_t)<4) {
1995 :	Skal	1652	printf( "ERROR: sizeof(uint32_t)<4 !!\n" );
1996 :	Skal	1651	nb_err++;
1997 :			}
1998 :			if (sizeof(int32_t)<4) {
1999 :	Skal	1652	printf( "ERROR: sizeof(int32_t)<4 !!\n" );
2000 :	Skal	1651	nb_err++;
2001 :			}
2002 :			/* yes, i know, this test is silly. But better be safe than sorry. :) */
2003 :			for(v=1000; v>=0; v--) {
2004 :			if ( (v>>2) != v/4)
2005 :			nb_err++;
2006 :			}
2007 :			for(v=-1000; v!=-1; v++) {
2008 :			if ( (v>>2) != (v/4)-!!(v%4))
2009 :			nb_err++;
2010 :			}
2011 :			if (nb_err!=0) {
2012 :			printf( "ERROR! please post your platform/compiler specs to xvid-devel@xvid.org !\n" );
2013 :			}
2014 :			}
2015 :	Skal	1746
2016 :	Skal	1731	/*********************************************************************
2017 :			* test SSIM functions
2018 :			*********************************************************************/
2019 :	Skal	1651
2020 :	Skal	1731	typedef int (lumfunc)(uint8_t ptr, int stride);
2021 :			typedef void (csfunc)(uint8_t ptro, uint8_t* ptrc, int stride, int lumo, int lumc, int* pdevo, int* pdevc, int* pcorr);
2022 :
2023 :			extern int lum_8x8_c(uint8_t* ptr, int stride);
2024 :			extern int lum_8x8_mmx(uint8_t* ptr, int stride);
2025 :			extern int lum_2x8_c(uint8_t* ptr, int stride);
2026 :	Skal	1743	extern void consim_c(uint8_t* ptro, uint8_t* ptrc, int stride, int lumo, int lumc, int* pdevo, int* pdevc, int* pcorr);
2027 :	Skal	1731	extern void consim_mmx(uint8_t* ptro, uint8_t* ptrc, int stride, int lumo, int lumc, int* pdevo, int* pdevc, int* pcorr);
2028 :			extern void consim_sse2(uint8_t* ptro, uint8_t* ptrc, int stride, int lumo, int lumc, int* pdevo, int* pdevc, int* pcorr);
2029 :
2030 :			void test_SSIM()
2031 :			{
2032 :			const int nb_tests = 3000*speed_ref;
2033 :			int tst;
2034 :			CPU *cpu;
2035 :			int i;
2036 :			int devs[3];
2037 :			long lumo, lumc;
2038 :			DECLARE_ALIGNED_MATRIX(Ref1, 16, 16, uint8_t, 16);
2039 :			DECLARE_ALIGNED_MATRIX(Ref2, 16, 16, uint8_t, 16);
2040 :			lumfunc lum8x8;
2041 :			lumfunc lum2x8;
2042 :			csfunc csim;
2043 :
2044 :			ieee_reseed(1);
2045 :			printf( "\n ====== test SSIM ======\n" );
2046 :			for(i=0; i<16*16;++i) {
2047 :			long v1, v2;
2048 :			v1 = ieee_rand(-256, 511);
2049 :			v2 = ieee_rand(-256, 511);
2050 :			Ref1[i] = (v1<0) ? 0 : (v1>255) ? 255 : v1;
2051 :			Ref2[i] = (v2<0) ? 0 : (v2>255) ? 255 : v2;
2052 :			}
2053 :			lumc = ieee_rand(0, 255);
2054 :			lumo = ieee_rand(0, 255);
2055 :
2056 :			for(cpu = cpu_list; cpu->name!=0; ++cpu)
2057 :			{
2058 :			double t;
2059 :			int m;
2060 :			if (!init_cpu(cpu))
2061 :			continue;
2062 :			lum8x8 = lum_8x8_c;
2063 :			lum2x8 = lum_2x8_c;
2064 :	Skal	1743	csim = consim_c;
2065 :	Isibaar	1767	#ifdef ARCH_IS_IA32
2066 :	Skal	1731	if (cpu->cpu & XVID_CPU_MMX){
2067 :			lum8x8 = lum_8x8_mmx;
2068 :			csim = consim_mmx;
2069 :			}
2070 :			if (cpu->cpu & XVID_CPU_MMX){
2071 :			csim = consim_sse2;
2072 :			}
2073 :	Isibaar	1767	#endif
2074 :	Skal	1731	t = gettime_usec();
2075 :			emms();
2076 :			for(tst=0; tst<nb_tests; ++tst) m = lum8x8(Ref1, 16);
2077 :			emms();
2078 :			t = (gettime_usec() - t) / nb_tests;
2079 :			printf("%s - ssim-lum8x8 %.3f usec m=%d %s\n",
2080 :			cpu->name, t, m,
2081 :			(m!=8230)?"\| ERROR": "" );
2082 :
2083 :			t = gettime_usec();
2084 :			emms();
2085 :	Skal	1738	for(tst=0; tst<nb_tests; ++tst) m = lum2x8(Ref1+8, 16);
2086 :	Skal	1731	emms();
2087 :			t = (gettime_usec() - t) / nb_tests;
2088 :			printf("%s - ssim-lum2x8 %.3f usec m=%d %s\n",
2089 :			cpu->name, t, m,
2090 :	Skal	1738	(m!=681)?"\| ERROR": "" );
2091 :	Skal	1731
2092 :			t = gettime_usec();
2093 :			emms();
2094 :			for(tst=0; tst<nb_tests; ++tst) csim(Ref1, Ref2, 16, lumo, lumc, devs+0, devs+1, devs+2);
2095 :			emms();
2096 :			t = (gettime_usec() - t) / nb_tests;
2097 :	Skal	1737	printf("%s - ssim-consim %.3f usec devs=[0x%x 0x%x 0x%x] %s\n",
2098 :	Skal	1731	cpu->name, t, devs[0], devs[1], devs[2],
2099 :	Skal	1743	(devs[0]!=0x1bdf0f \|\| devs[1]!=0x137258 \|\| devs[2]!=0xcdb13)?"\| ERROR": "" );
2100 :	Skal	1731	printf( " --- \n" );
2101 :			}
2102 :			}
2103 :
2104 :	Skal	1651	/*********************************************************************
2105 :	Skal	1746	* test bitstream functions
2106 :			*********************************************************************/
2107 :
2108 :			#define BIT_BUF_SIZE 2000
2109 :
2110 :			static void test_bits()
2111 :			{
2112 :			const int nb_tests = 50*speed_ref;
2113 :			int tst;
2114 :			uint32_t Crc;
2115 :			uint8_t Buf[BIT_BUF_SIZE];
2116 :			uint32_t Extracted[BIT_BUF_SIZE8]; / worst case: bits read 1 by 1 */
2117 :			int Lens[BIT_BUF_SIZE*8];
2118 :			double t1;
2119 :
2120 :
2121 :			printf( "\n === test bitstream ===\n" );
2122 :			ieee_reseed(1);
2123 :			Crc = 0;
2124 :
2125 :			t1 = gettime_usec();
2126 :			for(tst=0; tst<nb_tests; ++tst) {
2127 :			Bitstream bs;
2128 :			int m, m2, l, l2;
2129 :
2130 :			for(l=0; l<BIT_BUF_SIZE; ++l)
2131 :			Buf[l] = (uint8_t)ieee_rand(0,255);
2132 :
2133 :			l = BIT_BUF_SIZE - ieee_rand(1,BIT_BUF_SIZE/10);
2134 :			BitstreamInit(&bs, (void*)(Buf+BIT_BUF_SIZE-l), l);
2135 :
2136 :
2137 :			BitstreamReset(&bs);
2138 :			for(l2=l*8, m=0; l2>0; m++) {
2139 :			const int b = ieee_rand(1,32);
2140 :			Lens[m] = b;
2141 :			l2 -= b;
2142 :			if (l2<0) break;
2143 :			Extracted[m] = BitstreamShowBits(&bs, b);
2144 :			BitstreamSkip(&bs, b);
2145 :			// printf( "<= %d: %d 0x%x\n", m, b, Extracted[m]);
2146 :			}
2147 :
2148 :			BitstreamReset(&bs);
2149 :			for(m2=0; m2<m; ++m2) {
2150 :			const int b = Lens[m2];
2151 :			const uint32_t v = BitstreamGetBits(&bs, b);
2152 :			Crc \|= (v!=Extracted[m2]);
2153 :			// printf( "=> %d: %d 0x%x %c\n", m2, b, v, " *"[Crc]);
2154 :			}
2155 :			}
2156 :			t1 = (gettime_usec() - t1) / nb_tests;
2157 :			printf(" test_bits %.3f usec %s\n", t1, (Crc!=0)?"\| ERROR": "" );
2158 :			}
2159 :
2160 :			/*********************************************************************
2161 :	Isibaar	225	* main
2162 :			*********************************************************************/
2163 :
2164 :	Skal	1614	static void arg_missing(const char *opt)
2165 :	Isibaar	225	{
2166 :	Skal	1614	printf( "missing argument after option '%s'\n", opt);
2167 :			exit(-1);
2168 :			}
2169 :
2170 :			int main(int argc, const char *argv[])
2171 :			{
2172 :			int c, what = 0;
2173 :			int width, height;
2174 :			uint32_t chksum = 0;
2175 :	Skal	1746	const char * test_bitstream = 0;
2176 :	Skal	1614
2177 :			cpu_mask = 0; // default => will use autodectect
2178 :			for(c=1; c<argc; ++c)
2179 :			{
2180 :			if (!strcmp(argv[c], "-v")) verbose++;
2181 :			else if (!strcmp(argv[c], "-c")) cpu_mask = 0 /* PLAIN_C */ \| XVID_CPU_FORCE;
2182 :			else if (!strcmp(argv[c], "-mmx")) cpu_mask = XVID_CPU_MMX \| XVID_CPU_FORCE;
2183 :			else if (!strcmp(argv[c], "-mmxext")) cpu_mask = XVID_CPU_MMXEXT \| XVID_CPU_MMX \| XVID_CPU_FORCE;
2184 :	Skal	1618	else if (!strcmp(argv[c], "-sse2")) cpu_mask = XVID_CPU_SSE2 \| XVID_CPU_MMXEXT \| XVID_CPU_MMX \| XVID_CPU_FORCE;
2185 :	Isibaar	1794	else if (!strcmp(argv[c], "-sse3")) cpu_mask = XVID_CPU_SSE3 \| XVID_CPU_SSE2 \| XVID_CPU_MMXEXT \| XVID_CPU_MMX \| XVID_CPU_FORCE;
2186 :			else if (!strcmp(argv[c], "-sse4")) cpu_mask = XVID_CPU_SSE41 \| XVID_CPU_SSE3 \| XVID_CPU_SSE2 \| XVID_CPU_MMXEXT \| XVID_CPU_MMX \| XVID_CPU_FORCE;
2187 :			else if (!strcmp(argv[c], "-3dnow")) cpu_mask = XVID_CPU_3DNOW \| XVID_CPU_FORCE;
2188 :	Skal	1614	else if (!strcmp(argv[c], "-3dnowe")) cpu_mask = XVID_CPU_3DNOW \| XVID_CPU_3DNOWEXT \| XVID_CPU_FORCE;
2189 :			else if (!strcmp(argv[c], "-altivec")) cpu_mask = XVID_CPU_ALTIVEC \| XVID_CPU_FORCE;
2190 :			else if (!strcmp(argv[c], "-spd")) {
2191 :			if (++c==argc) arg_missing( argv[argc-1] );
2192 :			speed_ref = atoi(argv[c]);
2193 :			}
2194 :			else if (argv[c][0]!='-') {
2195 :			what = atoi(argv[c]);
2196 :			if (what==9) {
2197 :			if (c+4>argc) {
2198 :			printf("usage: %s %d bitstream width height (checksum)\n", argv[0], what);
2199 :			exit(-1);
2200 :			}
2201 :			test_bitstream = argv[++c];
2202 :			width = atoi(argv[++c]);
2203 :			height = atoi(argv[++c]);
2204 :			if (c+1<argc && argv[c+1][0]!='-') {
2205 :			if (sscanf(argv[c+1], "0x%x", &chksum)!=1) {
2206 :			printf( "can't read checksum value.\n" );
2207 :			exit(-1);
2208 :			}
2209 :			else c++;
2210 :			}
2211 :			// printf( "[%s] %dx%d (0x%.8x)\n", test_bitstream, width, height, chksum);
2212 :			}
2213 :			}
2214 :			else {
2215 :			printf( "unrecognized option '%s'\n", argv[c]);
2216 :			exit(-1);
2217 :			}
2218 :			}
2219 :
2220 :
2221 :	edgomez	1382	if (what==0 \|\| what==1) test_dct();
2222 :			if (what==0 \|\| what==2) test_mb();
2223 :			if (what==0 \|\| what==3) test_sad();
2224 :			if (what==0 \|\| what==4) test_transfer();
2225 :			if (what==0 \|\| what==5) test_quant();
2226 :			if (what==0 \|\| what==6) test_cbp();
2227 :	edgomez	1424	if (what==0 \|\| what==10) test_sse();
2228 :	Skal	1616	if (what==0 \|\| what==11) test_log2bin();
2229 :	Skal	1617	if (what==0 \|\| what==12) test_gcd();
2230 :	Skal	1651	if (what==0 \|\| what==13) test_compiler();
2231 :	Skal	1707	if (what==0 \|\| what==14) test_yuv();
2232 :	Skal	1731	if (what==0 \|\| what==15) test_SSIM();
2233 :	Skal	1742	if (what==0 \|\| what==16) test_yuv2();
2234 :	Skal	1746	if (what==0 \|\| what==17) test_bits();
2235 :	Isibaar	225
2236 :	edgomez	1382	if (what==7) {
2237 :			test_IEEE1180_compliance(-256, 255, 1);
2238 :			test_IEEE1180_compliance(-256, 255,-1);
2239 :			test_IEEE1180_compliance( -5, 5, 1);
2240 :			test_IEEE1180_compliance( -5, 5,-1);
2241 :			test_IEEE1180_compliance(-300, 300, 1);
2242 :			test_IEEE1180_compliance(-300, 300,-1);
2243 :			}
2244 :			if (what==8) test_dct_saturation(-256, 255);
2245 :	Isibaar	262
2246 :	Skal	1614	if (test_bitstream)
2247 :			test_dec(test_bitstream, width, height, chksum);
2248 :	edgomez	1382	if (what==-1) {
2249 :			test_dct_precision_diffs();
2250 :			test_bugs1();
2251 :			}
2252 :			if (what==-2)
2253 :			test_quant_bug();
2254 :	Isibaar	262
2255 :	edgomez	1424	if ((what >= 0 && what <= 6) \|\| what == 10) {
2256 :	edgomez	1382	printf("\n\n"
2257 :			"NB: If a function isn't optimised for a specific set of intructions,\n"
2258 :			" a C function is used instead. So don't panic if some functions\n"
2259 :			" may appear to be slow.\n");
2260 :			}
2261 :
2262 :			#ifdef ARCH_IS_IA32
2263 :			if (what == 0 \|\| what == 5) {
2264 :			printf("\n"
2265 :			"NB: MMX mpeg4 quantization is known to have very small errors (+/-1 magnitude)\n"
2266 :			" for 1 or 2 coefficients a block. This is mainly caused by the fact the unit\n"
2267 :			" test goes far behind the usual limits of real encoding. Please do not report\n"
2268 :			" this error to the developers.\n");
2269 :			}
2270 :			#endif
2271 :
2272 :			return 0;
2273 :	Isibaar	225	}
2274 :
2275 :	Skal	1617	/*********************************************************************/

No admin address has been configured	ViewVC Help
Powered by ViewVC 1.0.4