OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [or1ksim/] [testsuite/] [test-code-or1k/] [mc-common/] [mc-common.c] - Blame information for rev 90

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 90 jeremybenn 
/* mc_common.c -- Memory Controller testbenck common routines
2 
 
3 
   Copyright (C) 2001 Ivan Guzvinec
4 
   Copyright (C) 2010 Embecosm Limited
5 
 
6 
   Contributor Ivan Guzvinec <ivang@opencores.org>
7 
   Contributor Jeremy Bennett <jeremy.bennett@embecosm.com>
8 
 
9 
   This file is part of OpenRISC 1000 Architectural Simulator.
10 
 
11 
   This program is free software; you can redistribute it and/or modify it
12 
   under the terms of the GNU General Public License as published by the Free
13 
   Software Foundation; either version 3 of the License, or (at your option)
14 
   any later version.
15 
 
16 
   This program is distributed in the hope that it will be useful, but WITHOUT
17 
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 
   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
19 
   more details.
20 
 
21 
   You should have received a copy of the GNU General Public License along
22 
   with this program.  If not, see <http:  www.gnu.org/licenses/>.  */
23 
 
24 
/* ----------------------------------------------------------------------------
25 
   This code is commented throughout for use with Doxygen.
26 
   --------------------------------------------------------------------------*/
27 
 
28 
#include "support.h"
29 
#include "mc-common.h"
30 
 
31 
static int r_Xn;
32 
static int r_mod;
33 
 
34 
void randomin(unsigned long seed)
35 
{
36 
  r_Xn = seed;
37 
  r_mod = 33554431; /* 2^25 - 1*/
38 
}
39 
 
40 
unsigned long random(unsigned long max)
41 
{
42 
  r_Xn = ((r_Xn * (r_Xn + 1))%r_mod);
43 
  if (r_Xn == 0) r_Xn = 42+1;
44 
  return r_Xn%max;
45 
}
46 
 
47 
void mc_clear_row(unsigned long nFrom, unsigned long nTo)
48 
{
49 
  MEMLOC32 mem32 = 0;
50 
  unsigned long i;
51 
 
52 
  for(i=nFrom; i<nTo; i+=4) {
53 
    mem32  = (unsigned long*)i;
54 
    *mem32 = 0UL;
55 
  }
56 
}
57 
 
58 
unsigned long mc_test_row_8(int run, int seq, unsigned long nFrom,
59 
                            unsigned long nTo)
60 
{
61 
    MEMLOC8  mem8  = 0;
62 
    MEMLOC16 mem16 = 0;
63 
    MEMLOC32 mem32 = 0;
64 
 
65 
    unsigned char pattern    = 0;
66 
    unsigned short pattern16 = 0;
67 
    unsigned long pattern32  = 0;
68 
    unsigned char read;
69 
    unsigned short read16;
70 
    unsigned long read32;
71 
    int inc = 0;
72 
 
73 
    unsigned long i;
74 
 
75 
    /* number of locations to test */
76 
    unsigned long nWords = nTo - nFrom;
77 
 
78 
    /* JPB. Switch split due to bug in GCC with PIC and larger switches */
79 
    switch (run) {
80 
    case 0:
81 
        pattern = MC_TEST_PAT1_8;
82 
        pattern16 = (pattern << 8);
83 
        pattern32 = (pattern16 << 16); break;
84 
    case 1:
85 
        pattern = MC_TEST_PAT2_8;
86 
        pattern16 = (pattern << 8);
87 
        pattern32 = (pattern16 << 16); break;
88 
    case 2:
89 
        pattern = MC_TEST_PAT3_8;
90 
        pattern16 = (pattern << 8);
91 
        pattern32 = (pattern16 << 16); break;
92 
    } /*switch*/
93 
 
94 
    switch (run) {
95 
    case 3:
96 
        pattern = MC_TEST_PAT4_8;
97 
        pattern16 = (pattern << 8);
98 
        pattern32 = (pattern16 << 16); break;
99 
    case 4:
100 
        pattern32 = pattern16 = pattern = 0; inc = 1; break;
101 
    } /*switch*/
102 
 
103 
    printf ("\tmc_test_row_8(0x%02dX, %d, 0x%08lX, 0x%08lX);\n", pattern, seq,
104 
            nFrom, nTo);
105 
 
106 
    switch (seq) {
107 
    case 0: /*seq. row write, row read*/
108 
        for (i=nFrom; i<nTo; i++) {
109 
            mem8  = (unsigned char*)i;
110 
            *mem8 = pattern;
111 
            if (inc) pattern++;
112 
        } /*for*/
113 
 
114 
        if (inc) pattern = 0;
115 
        for (i=nFrom; i<nTo; i++) {
116 
            mem8 = (unsigned char*)i;
117 
            read = *mem8;
118 
 
119 
            if ( read != pattern ) {
120 
                printf("\ti=%lX, read=0x%02dX, pattern=0x%02dX\n", i, read,
121 
                       pattern);
122 
                return (unsigned long)mem8;
123 
            }
124 
 
125 
            if (inc) pattern++;
126 
        } /*for*/
127 
        break;
128 
    case 1: /*seq. word write, word read*/
129 
        for (i=nFrom; i<nTo; i++) {
130 
            mem8  = (unsigned char*)i;
131 
            *mem8 = pattern;
132 
            read = *mem8;
133 
 
134 
            if (read != pattern ) {
135 
                printf("\ti=%lX, read=0x%02dX, pattern=0x%02dX\n", i, read,
136 
                       pattern);
137 
                return (unsigned long)mem8;
138 
            }
139 
 
140 
            mem16  = (unsigned short*)(i & 0xFFFFFFFELU);
141 
            read16 = *mem16;
142 
            if (read16 != pattern16) {
143 
                printf("\ti=%lX, read16=0x%04dX, pattern16=0x%04dX\n", i,
144 
                       read16, pattern16);
145 
                return (unsigned long)mem16;
146 
            }
147 
            mem32  = (unsigned long*)(i & 0xFFFFFFFCLU);
148 
            read32 = *mem32;
149 
            if (read32 != pattern32) {
150 
                printf("\ti=%lX, read32=0x%08lX, pattern32=0x%08lX\n", i,
151 
                       read32, pattern32);
152 
                return (unsigned long)mem32;
153 
            }
154 
 
155 
            if (inc) pattern++;
156 
            switch ((i+1)%4) {
157 
            case 0:
158 
                pattern16 = (pattern << 8);
159 
                pattern32 = (pattern << 24); break;
160 
            case 1:
161 
                pattern16 += pattern;
162 
                pattern32 = pattern16 << 16; break;
163 
            case 2:
164 
                pattern16 = (pattern << 8);
165 
                pattern32 += pattern16;break;
166 
            case 3:
167 
                pattern16 += pattern;
168 
                pattern32 += pattern; break;
169 
            } /*switch i%4*/
170 
        } /*for*/
171 
        break;
172 
    case 2: /*rand. word write, word read*/
173 
        for (i=0; i<nWords; i++) {
174 
            mem8  = (unsigned char*)(nFrom + random(nWords));
175 
            *mem8 = pattern;
176 
            read  = *mem8;
177 
 
178 
            if (read != pattern ) {
179 
                printf("\ti=%lX, read=0x%02dX, pattern=0x%02dX\n", i, read,
180 
                       pattern);
181 
                return (unsigned long)mem8;
182 
            }
183 
 
184 
            if (inc) pattern++;
185 
        }
186 
        break;
187 
    } /*switch seq*/
188 
 
189 
    return 0;
190 
} /* mc_test_row_8 */
191 
 
192 
unsigned long mc_test_row_16(int run, int seq, unsigned long nFrom,
193 
                             unsigned long nTo)
194 
{
195 
    MEMLOC16 mem16 = 0;
196 
    MEMLOC32 mem32 = 0;
197 
 
198 
    unsigned short pattern16 = 0;
199 
    unsigned long pattern32  = 0;
200 
    unsigned short read16;
201 
    unsigned long read32;
202 
    int inc = 0;
203 
 
204 
    unsigned long i;
205 
 
206 
    unsigned long nWords = (nTo - nFrom)/2;
207 
 
208 
    /* JPB. Switch split due to bug in GCC with PIC and larger switches */
209 
    switch (run) {
210 
    case 0:
211 
        pattern16 = MC_TEST_PAT1_16;
212 
        pattern32 = (pattern16 << 16); break;
213 
    case 1:
214 
        pattern16 = MC_TEST_PAT2_16;
215 
        pattern32 = (pattern16 << 16); break;
216 
    case 2:
217 
        pattern16 = MC_TEST_PAT3_16;
218 
        pattern32 = (pattern16 << 16);break;
219 
    } /*switch*/
220 
 
221 
    switch (run) {
222 
    case 3:
223 
        pattern16 = MC_TEST_PAT4_16;
224 
        pattern32 = (pattern16 << 16); break;
225 
    case 4:
226 
        pattern16 = pattern32 = 0; inc = 1; break;
227 
    } /*switch*/
228 
 
229 
    printf ("\tmc_test_row_16(0x%04dX, %d, 0x%08lX, 0x%08lX);\n", pattern16,
230 
            seq, nFrom, nTo);
231 
 
232 
    switch (seq) {
233 
    case 0: /*seq. row write, row read*/
234 
        for (i=nFrom; i<nTo; i+=2) {
235 
            mem16  = (unsigned short*)i;
236 
            *mem16 = pattern16;
237 
            if (inc) pattern16++;
238 
        } /*for*/
239 
 
240 
        if (inc) pattern16 = 0;
241 
        for (i=nFrom; i<nTo; i+=2) {
242 
            mem16  = (unsigned short*)i;
243 
            read16 = *mem16;
244 
 
245 
            if ( read16 != pattern16 ) {
246 
                printf("\ti=%lX, read16=0x%04dX, pattern16=0x%04dX\n", i,
247 
                       read16, pattern16);
248 
                return (unsigned long)mem16;
249 
            }
250 
 
251 
            if (inc) pattern16++;
252 
        } /*for*/
253 
        break;
254 
    case 1: /*seq. word write, word read*/
255 
        for (i=nFrom; i<nTo; i+=2) {
256 
            mem16  = (unsigned short*)i;
257 
            *mem16 = pattern16;
258 
            read16 = *mem16;
259 
 
260 
            if (read16 != pattern16 ) {
261 
                printf("\ti=%lX, read16=0x%04dX, pattern16=0x%04dX\n", i,
262 
                       read16, pattern16);
263 
                return (unsigned long)mem16;
264 
            }
265 
 
266 
            mem32  = (unsigned long*)(i & 0xFFFFFFFCLU);
267 
            read32 = *mem32;
268 
            if (read32 != pattern32) {
269 
                printf("\ti=%lX, read32=0x%08lX, pattern32=0x%08lX\n", i,
270 
                       read32, pattern32);
271 
                return (unsigned long)mem32;
272 
            }
273 
 
274 
            if (inc) pattern16++;
275 
            switch ((i+2)%4) {
276 
            case 0:
277 
                pattern32 = (pattern16 << 16); break;
278 
            case 2:
279 
                pattern32 += pattern16;
280 
            } /*switch i%4*/
281 
        } /*for*/
282 
        break;
283 
    case 2: /*rand. word write, word read*/
284 
        for (i=0; i<nWords; i++) {
285 
            mem16  = (unsigned short*)(nFrom + random(nWords)*2);
286 
            *mem16 = pattern16;
287 
            read16 = *mem16;
288 
 
289 
            if (read16 != pattern16 ) {
290 
                printf("\ti=%lX, read16=0x%04dX, pattern16=0x%04dX\n", i,
291 
                       read16, pattern16);
292 
                return (unsigned long)mem16;
293 
            }
294 
 
295 
            if (inc) pattern16++;
296 
        }
297 
        break;
298 
    } /*switch seq*/
299 
    return 0;
300 
} /* mc_test_row_16 */
301 
 
302 
unsigned long mc_test_row_32(int run, int seq, unsigned long nFrom,
303 
                             unsigned long nTo)
304 
{
305 
    MEMLOC32 mem32 = 0;
306 
 
307 
    unsigned long pattern32 = 0;
308 
    unsigned long read32;
309 
    int inc = 0;
310 
 
311 
    unsigned long i;
312 
 
313 
    unsigned long nWords = (nTo - nFrom)/4;
314 
 
315 
    /* JPB. Switch split due to bug in GCC with PIC and larger switches */
316 
    switch (run) {
317 
    case 0:
318 
        pattern32 = MC_TEST_PAT1_32; break;
319 
    case 1:
320 
        pattern32 = MC_TEST_PAT2_32; break;
321 
    case 2:
322 
        pattern32 = MC_TEST_PAT3_32; break;
323 
    } /*switch*/
324 
 
325 
    switch (run) {
326 
    case 3:
327 
        pattern32 = MC_TEST_PAT4_32; break;
328 
    case 4:
329 
        pattern32 = nFrom; inc = 1; break;
330 
    } /*switch*/
331 
 
332 
    printf ("\tmc_test_row_32(0x%08lX, %d, 0x%08lX, 0x%08lX);\n", pattern32,
333 
            seq, nFrom, nTo);
334 
 
335 
    switch (seq) {
336 
    case 0: /*seq. row write, row read*/
337 
        for (i=nFrom; i<nTo; i+=4) {
338 
            mem32  = (unsigned long*)i;
339 
            *mem32 = pattern32;
340 
            if (inc) pattern32 += 4;
341 
        } /*for*/
342 
 
343 
        if (inc) pattern32 = nFrom;
344 
        for (i=nFrom; i<nTo; i+=4) {
345 
            mem32 = (unsigned long *)i;
346 
            read32 = *mem32;
347 
 
348 
            if ( read32 != pattern32 ) {
349 
                printf("\ti=%lX, read32=0x%08lX, pattern32=0x%08lX\n", i,
350 
                       read32, pattern32);
351 
                return (unsigned long)mem32;
352 
            }
353 
 
354 
            if (inc) pattern32 += 4;
355 
        } /*for*/
356 
        break;
357 
    case 1: /*seq. word write, word read*/
358 
        for (i=nFrom; i<nTo; i+=4) {
359 
            mem32  = (unsigned long*)i;
360 
            *mem32 = pattern32;
361 
            read32 = *mem32;
362 
 
363 
            if (read32 != pattern32 ) {
364 
                printf("\ti=%lX, read32=0x%08lX, pattern32=0x%08lX\n", i,
365 
                       read32, pattern32);
366 
                return (unsigned long)mem32;
367 
            }
368 
 
369 
            if (inc) pattern32 += 4;
370 
 
371 
        }
372 
        break;
373 
    case 2: /*rand. word write, word read*/
374 
        for (i=0; i<nWords; i++) {
375 
            mem32 = (unsigned long*)(nFrom + random(nWords)*4);
376 
            if (inc)
377 
                pattern32 = (unsigned long)mem32;
378 
            *mem32 = pattern32;
379 
            read32  = *mem32;
380 
 
381 
            if (read32 != pattern32 ) {
382 
                printf("\ti=%lX, read32=0x%08lX, pattern32=0x%08lX\n", i,
383 
                       read32, pattern32);
384 
                return (unsigned long)mem32;
385 
            }
386 
        } /*for*/
387 
        break;
388 
    } /*switch seq*/
389 
    return 0;
390 
} /* mc_test_row_32 */
391 
 
392 
 
393 
/*---------------------------------------------------------------------------*/
394 
 
395 
 
396 
/*-----[ Common Functions ]--------------------------------------------------*/
397 
unsigned long mc_test_row(unsigned long nFrom, unsigned long nTo,
398 
                          unsigned long flags)
399 
{
400 
    int nRun, nSize, nSeq;
401 
    int ret = 0;
402 
 
403 
    printf("\nmc_test_row(0x%08lX, 0x%08lX)\n", nFrom, nTo);
404 
 
405 
    for (nRun = 0; nRun < 5; nRun++) {
406 
      /* JPB. Switch split due to bug in GCC with PIC and larger switches */
407 
        switch (nRun) {
408 
        case 0:
409 
            if ( (flags & MC_TEST_RUN0) != MC_TEST_RUN0 )
410 
                continue;
411 
            break;
412 
        case 1:
413 
            if ( (flags & MC_TEST_RUN1) != MC_TEST_RUN1 )
414 
                continue;
415 
            break;
416 
        case 2:
417 
            if ( (flags & MC_TEST_RUN01) != MC_TEST_RUN01 )
418 
                continue;
419 
            break;
420 
        } /*switch*/
421 
 
422 
        switch (nRun) {
423 
        case 3:
424 
            if ( (flags & MC_TEST_RUN10) != MC_TEST_RUN10 )
425 
                continue;
426 
            break;
427 
        case 4:
428 
            if ( (flags & MC_TEST_RUNINC) != MC_TEST_RUNINC )
429 
                continue;
430 
        } /*switch*/
431 
 
432 
        for (nSeq = 0; nSeq < 3; nSeq++) {
433 
            switch (nSeq) {
434 
            case 0:
435 
                if ( (flags & MC_TEST_SEQ) != MC_TEST_SEQ )
436 
                    continue;
437 
                break;
438 
            case 1:
439 
                if ( (flags & MC_TEST_SEQ1) != MC_TEST_SEQ1 )
440 
                    continue;
441 
                break;
442 
            case 2:
443 
              if ( (flags & MC_TEST_RAND) != MC_TEST_RAND )
444 
                    continue;
445 
            } /*switch*/
446 
 
447 
            for (nSize = 0; nSize < 3; nSize++) {
448 
                switch (nSize) {
449 
                case 0:
450 
                    if ( (flags & MC_TEST_8) != MC_TEST_8 )
451 
                        continue;
452 
                    ret = mc_test_row_8(nRun, nSeq, nFrom, nTo);
453 
                    break;
454 
                case 1:
455 
                    if ( (flags & MC_TEST_16) != MC_TEST_16)
456 
                        continue;
457 
                    ret = mc_test_row_16(nRun, nSeq, nFrom, nTo);
458 
                    break;
459 
                case 2:
460 
                    if ( (flags & MC_TEST_32) != MC_TEST_32)
461 
                        continue;
462 
                    ret = mc_test_row_32(nRun, nSeq, nFrom, nTo);
463 
                } /*switch*/
464 
 
465 
                if (ret) return ret;
466 
                mc_clear_row(nFrom, nTo);
467 
            } /*for nSize*/
468 
        } /*for nSeq*/
469 
        /*report(0xDEADDEAD);*/
470 
    } /*for nRun*/
471 
 
472 
    return 0;
473 
} /* mc_test_row */

powered by: WebSVN 2.1.0

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