/* exit.c. Test of Or1ksim program multiplication instructions
|
/* exit.c. Test of Or1ksim program multiplication instructions
|
|
|
Copyright (C) 1999-2006 OpenCores
|
Copyright (C) 1999-2006 OpenCores
|
Copyright (C) 2010 Embecosm Limited
|
Copyright (C) 2010 Embecosm Limited
|
|
|
Contributors various OpenCores participants
|
Contributors various OpenCores participants
|
Contributor Jeremy Bennett <jeremy.bennett@embecosm.com>
|
Contributor Jeremy Bennett <jeremy.bennett@embecosm.com>
|
|
|
This file is part of OpenRISC 1000 Architectural Simulator.
|
This file is part of OpenRISC 1000 Architectural Simulator.
|
|
|
This program is free software; you can redistribute it and/or modify it
|
This program is free software; you can redistribute it and/or modify it
|
under the terms of the GNU General Public License as published by the Free
|
under the terms of the GNU General Public License as published by the Free
|
Software Foundation; either version 3 of the License, or (at your option)
|
Software Foundation; either version 3 of the License, or (at your option)
|
any later version.
|
any later version.
|
|
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
|
more details.
|
more details.
|
|
|
You should have received a copy of the GNU General Public License along
|
You should have received a copy of the GNU General Public License along
|
with this program. If not, see <http: www.gnu.org/licenses/>. */
|
with this program. If not, see <http: www.gnu.org/licenses/>. */
|
|
|
/* ----------------------------------------------------------------------------
|
/* ----------------------------------------------------------------------------
|
This code is commented throughout for use with Doxygen.
|
This code is commented throughout for use with Doxygen.
|
--------------------------------------------------------------------------*/
|
--------------------------------------------------------------------------*/
|
|
|
/* Test l.mul, l.mac and l.macrc instructions */
|
/* Test l.mul, l.mac and l.macrc instructions */
|
|
|
#include "support.h"
|
#include "support.h"
|
|
|
#define T1 0xa6312f33
|
#define T1 0xa6312f33
|
#define T2 0x059b8f08
|
#define T2 0x059b8f08
|
#define T3 0x00000000
|
#define T3 0x00000000
|
|
|
#define MAC(x,y) asm volatile ("l.mac\t%0,%1" : : "r" (x), "r" (y))
|
#define MAC(x,y) asm volatile ("l.mac\t%0,%1" : : "r" (x), "r" (y))
|
#define MACRC macrc()
|
#define MACRC macrc()
|
static inline long macrc() {
|
static inline long macrc() {
|
long x;
|
long x;
|
|
asm volatile ("l.nop\t");
|
|
asm volatile ("l.nop\t");
|
asm volatile ("l.macrc\t%0" : "=r" (x));
|
asm volatile ("l.macrc\t%0" : "=r" (x));
|
return x;
|
return x;
|
}
|
}
|
|
|
long test_mul (long a, long b) {
|
long test_mul (long a, long b) {
|
long t;
|
long t;
|
int i;
|
int i;
|
for (i = 0; i < 100; i++) {
|
for (i = 0; i < 100; i++) {
|
t = a * b;
|
t = a * b;
|
t += 153;
|
t += 153;
|
a = t - a * 17;
|
a = t - a * 17;
|
b = t + b * 13333;
|
b = t + b * 13333;
|
|
|
/*printf ("(%08x,%08x)", a, b);*/
|
/*printf ("(%08x,%08x)", a, b);*/
|
}
|
}
|
return a;
|
return a;
|
}
|
}
|
|
|
long test_mac (long a, long b) {
|
long test_mac (long a, long b) {
|
long t = 1234567;
|
long t = 1234567;
|
int i;
|
int i;
|
for (i = 0; i < 100; i++) {
|
for (i = 0; i < 100; i++) {
|
MAC (a, b);
|
MAC (a, b);
|
if (i & 3) {
|
if (i & 3) {
|
a = t - a;
|
a = t - a;
|
b = t + a;
|
b = t + a;
|
} else {
|
} else {
|
a = MACRC;
|
a = MACRC;
|
}
|
}
|
MAC (a, 3);
|
MAC (a, 3);
|
MAC (a, 5);
|
MAC (a, 5);
|
MAC (a, 7);
|
MAC (a, 7);
|
//printf ("(%08x,%08x)", a, b);
|
//printf ("(%08x,%08x)", a, b);
|
}
|
}
|
return a;
|
return a;
|
}
|
}
|
|
|
long test_mul_mac (long a, long b) {
|
long test_mul_mac (long a, long b) {
|
long t = 1;
|
long t = 1;
|
int i;
|
int i;
|
for (i = 0; i < 100; i++) {
|
for (i = 0; i < 100; i++) {
|
a = a * 119;
|
a = a * 119;
|
MAC (a, b);
|
MAC (a, b);
|
MAC (b, 423490431);
|
MAC (b, 423490431);
|
MAC (b, 113);
|
MAC (b, 113);
|
MAC (a, 997);
|
MAC (a, 997);
|
b = 87 * a * t;
|
b = 87 * a * t;
|
if (i & 3) {
|
if (i & 3) {
|
t = a * b;
|
t = a * b;
|
a = t - a;
|
a = t - a;
|
b = t + a;
|
b = t + a;
|
} else {
|
} else {
|
a = MACRC;
|
a = MACRC;
|
}
|
}
|
// printf ("(%08x,%08x)", a, b);
|
// printf ("(%08x,%08x)", a, b);
|
}
|
}
|
return a;
|
return a;
|
}
|
}
|
|
|
int main () {
|
int main () {
|
unsigned t1;
|
unsigned t1;
|
unsigned t2;
|
unsigned t2;
|
unsigned t3;
|
unsigned t3;
|
printf ("%08lx\n", MACRC);
|
printf ("%08lx\n", MACRC);
|
MAC (888888887, 0x87654321);
|
MAC (888888887, 0x87654321);
|
printf ("%08lx\n", MACRC);
|
printf ("%08lx\n", MACRC);
|
t1 = test_mul (888888887, 0x87654321);
|
t1 = test_mul (888888887, 0x87654321);
|
t2 = test_mac (888888887, 0x87654321);
|
t2 = test_mac (888888887, 0x87654321);
|
t3 = test_mul_mac (888888887, 0x87654321);
|
t3 = test_mul_mac (888888887, 0x87654321);
|
printf ("%08x, expected %08x\n", t1, T1);
|
printf ("%08x, expected %08x\n", t1, T1);
|
printf ("%08x, expected %08x\n", t2, T2);
|
printf ("%08x, expected %08x\n", t2, T2);
|
printf ("%08x, expected %08x\n", t3, T3);
|
printf ("%08x, expected %08x\n", t3, T3);
|
report (t1 ^ t2 ^ t3 ^ T1 ^ T2 ^ T3 ^ 0xdeaddead);
|
report (t1 ^ t2 ^ t3 ^ T1 ^ T2 ^ T3 ^ 0xdeaddead);
|
if (t1 != T1 || t2 != T2 || t3 != T3) {
|
if (t1 != T1 || t2 != T2 || t3 != T3) {
|
printf ("Test failed!\n");
|
printf ("Test failed!\n");
|
if (t1 != T1) exit (1);
|
if (t1 != T1) exit (1);
|
if (t2 != T2) exit (2);
|
if (t2 != T2) exit (2);
|
if (t3 != T3) exit (3);
|
if (t3 != T3) exit (3);
|
} else {
|
} else {
|
printf ("Test succesful.\n");
|
printf ("Test succesful.\n");
|
exit (0);
|
exit (0);
|
}
|
}
|
exit (0);
|
exit (0);
|
}
|
}
|
|
|
