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

Subversion Repositories or1k

[/] [or1k/] [branches/] [stable_0_2_x/] [or1ksim/] [testbench/] [mul.c] - Blame information for rev 604

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 224 markom 
/* Test l.mul, l.mac and l.macrc instructions */
2 
#include "support.h"
3 
 
4 
#define T1 0xa6312f33
5 
#define T2 0x0d4de375
6 
#define T3 0x61ab48dc
7 
 
8 
#ifndef OR1K
9 
 
10 
#include <stdlib.h>
11 
#define LONGEST long long
12 
 
13 
LONGEST acc = 0;
14 
#define MAC(x,y) {\
15 604 markom 
  printf ("[%08x,%08x]\t", (unsigned long)(x), (unsigned long)(y));\
16 224 markom 
  acc += (LONGEST)(x) * (LONGEST)(y);\
17 604 markom 
  printf ("(%08x,%08x)\n", (unsigned long)(acc >> 32), (unsigned long)(acc & 0xffffffff));\
18 224 markom 
}
19 
#define MACRC    (macrc())
20 
static inline long macrc() {
21 
  long result = acc >> 28;
22 
  //printf ("<%08x>\n", (unsigned long)result);
23 
  acc = 0;
24 
  return result;
25 
}
26 
#else /* OR1K */
27 
 
28 
#define MAC(x,y) asm volatile ("l.mac\t%0,%1" : : "r" (x), "r" (y))
29 
#define MACRC macrc()
30 
static inline long macrc() {
31 
  long x;
32 
  asm volatile ("l.macrc\t%0" : "=r" (x));
33 
  return x;
34 
}
35 
 
36 
#endif /* SIM */
37 
 
38 
long test_mul (long a, long b) {
39 
  long t;
40 
  int i;
41 
  for (i = 0; i < 100; i++) {
42 
    t = a * b;
43 
    t += 153;
44 
    a = t - a * 17;
45 
    b = t + b * 13333;
46 
 
47 
    /*printf ("(%08x,%08x)", a, b);*/
48 
  }
49 
  return a;
50 
}
51 
 
52 
long test_mac (long a, long b) {
53 
  long t = 1234567;
54 
  int i;
55 
  for (i = 0; i < 100; i++) {
56 
    MAC (a, b);
57 
    if (i & 3) {
58 
      a = t - a;
59 
      b = t + a;
60 
    } else {
61 
      a = MACRC;
62 
    }
63 
    MAC (a, 3);
64 
    MAC (a, 5);
65 
    MAC (a, 7);
66 
    //printf ("(%08x,%08x)", a, b);
67 
  }
68 
  return a;
69 
}
70 
 
71 
long test_mul_mac (long a, long b) {
72 
  long t = 1;
73 
  int i;
74 
  for (i = 0; i < 100; i++) {
75 
    a = a * 119;
76 
    MAC (a, b);
77 
    MAC (b, 423490431);
78 
    MAC (b, 113);
79 
    MAC (a, 997);
80 
    b = 87 * a * t;
81 
    if (i & 3) {
82 
      t = a * b;
83 
      a = t - a;
84 
      b = t + a;
85 
    } else {
86 
      a = MACRC;
87 
    }
88 
 //   printf ("(%08x,%08x)", a, b);
89 
  }
90 
  return a;
91 
}
92 
 
93 
int main () {
94 604 markom 
  unsigned t1;
95 
  unsigned t2;
96 
  unsigned t3;
97 
  printf ("%08x\n", MACRC);
98 
  t1 = test_mul (888888887, 0x87654321);
99 
  t2 = test_mac (888888887, 0x87654321);
100 
  t3 = test_mul_mac (888888887, 0x87654321);
101 224 markom 
  printf ("%08x, expected %08x\n", t1, T1);
102 
  printf ("%08x, expected %08x\n", t2, T2);
103 
  printf ("%08x, expected %08x\n", t3, T3);
104 309 markom 
  report (t1 ^ t2 ^ t3 ^ T1 ^ T2 ^ T3 ^ 0xdeaddead);
105 224 markom 
  if (t1 != T1 || t2 != T2 || t3 != T3) {
106 
    printf ("Test failed!\n");
107 
    if (t1 != T1) exit (1);
108 
    if (t2 != T2) exit (2);
109 
    if (t3 != T3) exit (3);
110 
  } else {
111 
    printf ("Test succesful.\n");
112 
    exit (0);
113 
  }
114 
  exit (0);
115 
}

powered by: WebSVN 2.1.0

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