1*4cd013cdSAleksandar Markovic /*
2*4cd013cdSAleksandar Markovic  *  Test program for MSA instruction MSUBR_Q.H
3*4cd013cdSAleksandar Markovic  *
4*4cd013cdSAleksandar Markovic  *  Copyright (C) 2019  Wave Computing, Inc.
5*4cd013cdSAleksandar Markovic  *  Copyright (C) 2019  Aleksandar Markovic <amarkovic@wavecomp.com>
6*4cd013cdSAleksandar Markovic  *  Copyright (C) 2019  RT-RK Computer Based Systems LLC
7*4cd013cdSAleksandar Markovic  *  Copyright (C) 2019  Mateja Marjanovic <mateja.marjanovic@rt-rk.com>
8*4cd013cdSAleksandar Markovic  *
9*4cd013cdSAleksandar Markovic  *  This program is free software: you can redistribute it and/or modify
10*4cd013cdSAleksandar Markovic  *  it under the terms of the GNU General Public License as published by
11*4cd013cdSAleksandar Markovic  *  the Free Software Foundation, either version 2 of the License, or
12*4cd013cdSAleksandar Markovic  *  (at your option) any later version.
13*4cd013cdSAleksandar Markovic  *
14*4cd013cdSAleksandar Markovic  *  This program is distributed in the hope that it will be useful,
15*4cd013cdSAleksandar Markovic  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
16*4cd013cdSAleksandar Markovic  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17*4cd013cdSAleksandar Markovic  *  GNU General Public License for more details.
18*4cd013cdSAleksandar Markovic  *
19*4cd013cdSAleksandar Markovic  *  You should have received a copy of the GNU General Public License
20*4cd013cdSAleksandar Markovic  *  along with this program.  If not, see <https://www.gnu.org/licenses/>.
21*4cd013cdSAleksandar Markovic  *
22*4cd013cdSAleksandar Markovic  */
23*4cd013cdSAleksandar Markovic 
24*4cd013cdSAleksandar Markovic #include <sys/time.h>
25*4cd013cdSAleksandar Markovic #include <stdint.h>
26*4cd013cdSAleksandar Markovic 
27*4cd013cdSAleksandar Markovic #include "../../../../include/wrappers_msa.h"
28*4cd013cdSAleksandar Markovic #include "../../../../include/test_inputs_128.h"
29*4cd013cdSAleksandar Markovic #include "../../../../include/test_utils_128.h"
30*4cd013cdSAleksandar Markovic 
31*4cd013cdSAleksandar Markovic #define TEST_COUNT_TOTAL (                                                \
32*4cd013cdSAleksandar Markovic             (PATTERN_INPUTS_SHORT_COUNT) * (PATTERN_INPUTS_SHORT_COUNT) + \
33*4cd013cdSAleksandar Markovic             3 * (RANDOM_INPUTS_SHORT_COUNT) * (RANDOM_INPUTS_SHORT_COUNT))
34*4cd013cdSAleksandar Markovic 
35*4cd013cdSAleksandar Markovic 
main(void)36*4cd013cdSAleksandar Markovic int32_t main(void)
37*4cd013cdSAleksandar Markovic {
38*4cd013cdSAleksandar Markovic     char *isa_ase_name = "MSA";
39*4cd013cdSAleksandar Markovic     char *group_name = "Fixed Multiply";
40*4cd013cdSAleksandar Markovic     char *instruction_name =  "MSUBR_Q.H";
41*4cd013cdSAleksandar Markovic     int32_t ret;
42*4cd013cdSAleksandar Markovic     uint32_t i, j;
43*4cd013cdSAleksandar Markovic     struct timeval start, end;
44*4cd013cdSAleksandar Markovic     double elapsed_time;
45*4cd013cdSAleksandar Markovic 
46*4cd013cdSAleksandar Markovic     uint64_t b128_result[TEST_COUNT_TOTAL][2];
47*4cd013cdSAleksandar Markovic     uint64_t b128_expect[TEST_COUNT_TOTAL][2] = {
48*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },    /*   0  */
49*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
50*4cd013cdSAleksandar Markovic         { 0xffffffffffffffffULL, 0xffffffffffffffffULL, },
51*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
52*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
53*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
54*4cd013cdSAleksandar Markovic         { 0x00000000ffff0000ULL, 0x0000ffff00000000ULL, },
55*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
56*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },    /*   8  */
57*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
58*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
59*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
60*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
61*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
62*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
63*4cd013cdSAleksandar Markovic         { 0x0000000000000000ULL, 0x0000000000000000ULL, },
64*4cd013cdSAleksandar Markovic         { 0xffffffffffffffffULL, 0xffffffffffffffffULL, },    /*  16  */
65*4cd013cdSAleksandar Markovic         { 0xffffffffffffffffULL, 0xffffffffffffffffULL, },
66*4cd013cdSAleksandar Markovic         { 0xc71bc71bc71bc71bULL, 0xc71bc71bc71bc71bULL, },
67*4cd013cdSAleksandar Markovic         { 0xffffffffffffffffULL, 0xffffffffffffffffULL, },
68*4cd013cdSAleksandar Markovic         { 0xdddcdddcdddcdddcULL, 0xdddcdddcdddcdddcULL, },
69*4cd013cdSAleksandar Markovic         { 0xfffefffefffefffeULL, 0xfffefffefffefffeULL, },
70*4cd013cdSAleksandar Markovic         { 0xed0725ebb423ed07ULL, 0x25ebb423ed0725ebULL, },
71*4cd013cdSAleksandar Markovic         { 0xfffdfffdfffefffdULL, 0xfffdfffefffdfffdULL, },
72*4cd013cdSAleksandar Markovic         { 0xfffefffefffffffeULL, 0xfffefffffffefffeULL, },    /*  24  */
73*4cd013cdSAleksandar Markovic         { 0xfffefffefffffffeULL, 0xfffefffffffefffeULL, },
74*4cd013cdSAleksandar Markovic         { 0x38e238e238e338e2ULL, 0x38e238e338e238e2ULL, },
75*4cd013cdSAleksandar Markovic         { 0xffffffff0000ffffULL, 0xffff0000ffffffffULL, },
76*4cd013cdSAleksandar Markovic         { 0x2222222222232222ULL, 0x2222222322222222ULL, },
77*4cd013cdSAleksandar Markovic         { 0x0000000000010000ULL, 0x0000000100000000ULL, },
78*4cd013cdSAleksandar Markovic         { 0x12f7da134bdb12f7ULL, 0xda134bdb12f7da13ULL, },
79*4cd013cdSAleksandar Markovic         { 0x0001000000010001ULL, 0x0000000100010000ULL, },
80*4cd013cdSAleksandar Markovic         { 0x0001000000010001ULL, 0x0000000100010000ULL, },    /*  32  */
81*4cd013cdSAleksandar Markovic         { 0x0001000000010001ULL, 0x0000000100010000ULL, },
82*4cd013cdSAleksandar Markovic         { 0xdddedddddddedddeULL, 0xdddddddedddeddddULL, },
83*4cd013cdSAleksandar Markovic         { 0x0001000000010001ULL, 0x0000000100010000ULL, },
84*4cd013cdSAleksandar Markovic         { 0xeb85eb84eb85eb85ULL, 0xeb84eb85eb85eb84ULL, },
85*4cd013cdSAleksandar Markovic         { 0x0000ffff00000000ULL, 0xffff00000000ffffULL, },
86*4cd013cdSAleksandar Markovic         { 0xf49f16c1d27cf49fULL, 0x16c1d27cf49f16c1ULL, },
87*4cd013cdSAleksandar Markovic         { 0x0000ffff00000000ULL, 0xffff00000000ffffULL, },
88*4cd013cdSAleksandar Markovic         { 0x0000ffff00000000ULL, 0xffff00000000ffffULL, },    /*  40  */
89*4cd013cdSAleksandar Markovic         { 0x0000ffff00000000ULL, 0xffff00000000ffffULL, },
90*4cd013cdSAleksandar Markovic         { 0x2222222122222222ULL, 0x2221222222222221ULL, },
91*4cd013cdSAleksandar Markovic         { 0x0000ffff00000000ULL, 0xffff00000000ffffULL, },
92*4cd013cdSAleksandar Markovic         { 0x147b147a147b147bULL, 0x147a147b147b147aULL, },
93*4cd013cdSAleksandar Markovic         { 0x0000ffff00000000ULL, 0xffff00000000ffffULL, },
94*4cd013cdSAleksandar Markovic         { 0x0b61e93e2d830b61ULL, 0xe93e2d830b61e93eULL, },
95*4cd013cdSAleksandar Markovic         { 0x0001000000000001ULL, 0x0000000000010000ULL, },
96*4cd013cdSAleksandar Markovic         { 0x00010000ffff0001ULL, 0x0000ffff00010000ULL, },    /*  48  */
97*4cd013cdSAleksandar Markovic         { 0x00010000ffff0001ULL, 0x0000ffff00010000ULL, },
98*4cd013cdSAleksandar Markovic         { 0xed0a25edb424ed0aULL, 0x25edb424ed0a25edULL, },
99*4cd013cdSAleksandar Markovic         { 0x00010000fffe0001ULL, 0x0000fffe00010000ULL, },
100*4cd013cdSAleksandar Markovic         { 0xf4a016c2d27af4a0ULL, 0x16c2d27af4a016c2ULL, },
101*4cd013cdSAleksandar Markovic         { 0x00010001fffd0001ULL, 0x0001fffd00010001ULL, },
102*4cd013cdSAleksandar Markovic         { 0xf9afe6b99ad9f9afULL, 0xe6b99ad9f9afe6b9ULL, },
103*4cd013cdSAleksandar Markovic         { 0x00010002fffc0001ULL, 0x0002fffc00010002ULL, },
104*4cd013cdSAleksandar Markovic         { 0x00010002fffd0001ULL, 0x0002fffd00010002ULL, },    /*  56  */
105*4cd013cdSAleksandar Markovic         { 0x00010002fffd0001ULL, 0x0002fffd00010002ULL, },
106*4cd013cdSAleksandar Markovic         { 0x12f7da144bd812f7ULL, 0xda144bd812f7da14ULL, },
107*4cd013cdSAleksandar Markovic         { 0x00010001fffe0001ULL, 0x0001fffe00010001ULL, },
108*4cd013cdSAleksandar Markovic         { 0x0b62e93f2d820b62ULL, 0xe93f2d820b62e93fULL, },
109*4cd013cdSAleksandar Markovic         { 0x00020001ffff0002ULL, 0x0001ffff00020001ULL, },
110*4cd013cdSAleksandar Markovic         { 0x0654194a65220654ULL, 0x194a65220654194aULL, },
111*4cd013cdSAleksandar Markovic         { 0x00020001ffff0002ULL, 0x0001ffff00020001ULL, },
112*4cd013cdSAleksandar Markovic         { 0x9048fb0bf341c73bULL, 0xd396fefdfffdce10ULL, },    /*  64  */
113*4cd013cdSAleksandar Markovic         { 0x8c4efb1edac8ed2cULL, 0xc86a051b003e01e6ULL, },
114*4cd013cdSAleksandar Markovic         { 0x8000eb1af0ed3ac3ULL, 0xb0f10a2bff3c190fULL, },
115*4cd013cdSAleksandar Markovic         { 0xe8edef7ed3364e8aULL, 0xf42214c0fe3406b6ULL, },
116*4cd013cdSAleksandar Markovic         { 0xe4f3ef91babd747bULL, 0xe8f61adefe753a8cULL, },
117*4cd013cdSAleksandar Markovic         { 0xe4cfef918bb95b20ULL, 0xe627f5c8faee04bfULL, },
118*4cd013cdSAleksandar Markovic         { 0xe207efd0b6432746ULL, 0xe040d7190903ecb5ULL, },
119*4cd013cdSAleksandar Markovic         { 0xe5c3efbf80001a0fULL, 0xf12696f61769ffc0ULL, },
120*4cd013cdSAleksandar Markovic         { 0x979ddfbb962567a6ULL, 0xd9ad9c06166716e9ULL, },    /*  72  */
121*4cd013cdSAleksandar Markovic         { 0x94d5dffac0af33ccULL, 0xd3c68000247cfedfULL, },
122*4cd013cdSAleksandar Markovic         { 0x8000ac4b9a31c9c4ULL, 0xc75f8000ec43f421ULL, },
123*4cd013cdSAleksandar Markovic         { 0xc965ba77cdd8aebdULL, 0xeae08000b2c6fca3ULL, },
124*4cd013cdSAleksandar Markovic         { 0x3252bedbb021c284ULL, 0x2e118a95b1beea4aULL, },
125*4cd013cdSAleksandar Markovic         { 0x360ebeca8000b54dULL, 0x3ef78000c024fd55ULL, },
126*4cd013cdSAleksandar Markovic         { 0x7f73ccf6b3a79a46ULL, 0x6278800086a705d7ULL, },
127*4cd013cdSAleksandar Markovic         { 0x1ce9c91380009362ULL, 0xfcd580008000ff19ULL, },
128*4cd013cdSAleksandar Markovic         { 0x37ebbe42a862dbb9ULL, 0xfeb38b5e8000fe89ULL, },    /*  80  */
129*4cd013cdSAleksandar Markovic         { 0x39c7be75dd7ccb94ULL, 0xfee48000953fff7cULL, },
130*4cd013cdSAleksandar Markovic         { 0x5f8994cfca8f9bdeULL, 0xff3c80008000ffa2ULL, },
131*4cd013cdSAleksandar Markovic         { 0x0bb6a77cf1e284a3ULL, 0xfe8d80008000ff8cULL, },
132*4cd013cdSAleksandar Markovic         { 0x16a7960ef656d6ccULL, 0xff688b5e8000ff44ULL, },
133*4cd013cdSAleksandar Markovic         { 0x17689660fc31c475ULL, 0xff7f8000953fffbeULL, },
134*4cd013cdSAleksandar Markovic         { 0x26b48000fa1a8e43ULL, 0xffa780008000ffd1ULL, },
135*4cd013cdSAleksandar Markovic         { 0x04bf964dfe718000ULL, 0xff5880008000ffc6ULL, },
136*4cd013cdSAleksandar Markovic         { 0x092e817dfeefd540ULL, 0xffbb8b5e8000ffa2ULL, },    /*  88  */
137*4cd013cdSAleksandar Markovic         { 0x097c81dfff94c239ULL, 0xffc58000953fffdfULL, },
138*4cd013cdSAleksandar Markovic         { 0x0faf8000ff5989ffULL, 0xffd780008000ffe9ULL, },
139*4cd013cdSAleksandar Markovic         { 0x01ec964dffd48000ULL, 0xffb280008000ffe4ULL, },
140*4cd013cdSAleksandar Markovic         { 0x03b8817dffe2d540ULL, 0xffe08b5e8000ffd3ULL, },
141*4cd013cdSAleksandar Markovic         { 0x03d881dffff4c239ULL, 0xffe58000953ffff0ULL, },
142*4cd013cdSAleksandar Markovic         { 0x065b8000ffed89ffULL, 0xffed80008000fff5ULL, },
143*4cd013cdSAleksandar Markovic         { 0x00c7964dfffb8000ULL, 0xffdc80008000fff2ULL, },
144*4cd013cdSAleksandar Markovic         { 0x0181817dfffdd540ULL, 0xfff18b5e8000ffe9ULL, },    /*  96  */
145*4cd013cdSAleksandar Markovic         { 0x02e98000fffef1b9ULL, 0xfffa95ba8000ffdbULL, },
146*4cd013cdSAleksandar Markovic         { 0x05a18000fffffb3bULL, 0xfffe9f2a8000ffc4ULL, },
147*4cd013cdSAleksandar Markovic         { 0x0ae38000fffffe68ULL, 0xffffa7c48000ff9fULL, },
148*4cd013cdSAleksandar Markovic         { 0x0b4080630000fdb2ULL, 0xffff8000953fffdeULL, },
149*4cd013cdSAleksandar Markovic         { 0x0ba080c60000fcabULL, 0xffff8000a6f7fff4ULL, },
150*4cd013cdSAleksandar Markovic         { 0x0c0381280000fb2fULL, 0xffff8000b5befffcULL, },
151*4cd013cdSAleksandar Markovic         { 0x0c69818a0000f90aULL, 0xffff8000c211ffffULL, },
152*4cd013cdSAleksandar Markovic         { 0x148580000000f2b4ULL, 0xffff80009905ffffULL, },    /* 104  */
153*4cd013cdSAleksandar Markovic         { 0x21ee80000000e69aULL, 0xffff80008000ffffULL, },
154*4cd013cdSAleksandar Markovic         { 0x381a80000000cf7cULL, 0xffff80008000ffffULL, },
155*4cd013cdSAleksandar Markovic         { 0x5cc480000000a354ULL, 0xffff80008000ffffULL, },
156*4cd013cdSAleksandar Markovic         { 0x0b5f964d00008dd4ULL, 0xfffe80008000ffffULL, },
157*4cd013cdSAleksandar Markovic         { 0x0165a8b700008000ULL, 0xfffc80008000ffffULL, },
158*4cd013cdSAleksandar Markovic         { 0x002cb7ec00008000ULL, 0xfff880008000ffffULL, },
159*4cd013cdSAleksandar Markovic         { 0x0005c47b00008000ULL, 0xfff180008000ffffULL, },
160*4cd013cdSAleksandar Markovic };
161*4cd013cdSAleksandar Markovic 
162*4cd013cdSAleksandar Markovic     reset_msa_registers();
163*4cd013cdSAleksandar Markovic 
164*4cd013cdSAleksandar Markovic     gettimeofday(&start, NULL);
165*4cd013cdSAleksandar Markovic 
166*4cd013cdSAleksandar Markovic     for (i = 0; i < PATTERN_INPUTS_SHORT_COUNT; i++) {
167*4cd013cdSAleksandar Markovic         for (j = 0; j < PATTERN_INPUTS_SHORT_COUNT; j++) {
168*4cd013cdSAleksandar Markovic             do_msa_MSUBR_Q_H(b128_pattern[i], b128_pattern[j],
169*4cd013cdSAleksandar Markovic                              b128_result[PATTERN_INPUTS_SHORT_COUNT * i + j]);
170*4cd013cdSAleksandar Markovic         }
171*4cd013cdSAleksandar Markovic     }
172*4cd013cdSAleksandar Markovic 
173*4cd013cdSAleksandar Markovic     for (i = 0; i < RANDOM_INPUTS_SHORT_COUNT; i++) {
174*4cd013cdSAleksandar Markovic         for (j = 0; j < RANDOM_INPUTS_SHORT_COUNT; j++) {
175*4cd013cdSAleksandar Markovic             do_msa_MSUBR_Q_H(b128_random[i], b128_random[j],
176*4cd013cdSAleksandar Markovic                              b128_result[((PATTERN_INPUTS_SHORT_COUNT) *
177*4cd013cdSAleksandar Markovic                                           (PATTERN_INPUTS_SHORT_COUNT)) +
178*4cd013cdSAleksandar Markovic                                          RANDOM_INPUTS_SHORT_COUNT * i + j]);
179*4cd013cdSAleksandar Markovic         }
180*4cd013cdSAleksandar Markovic     }
181*4cd013cdSAleksandar Markovic 
182*4cd013cdSAleksandar Markovic     for (i = 0; i < RANDOM_INPUTS_SHORT_COUNT; i++) {
183*4cd013cdSAleksandar Markovic         for (j = 0; j < RANDOM_INPUTS_SHORT_COUNT; j++) {
184*4cd013cdSAleksandar Markovic             do_msa_MSUBR_Q_H__DDT(b128_random[i], b128_random[j],
185*4cd013cdSAleksandar Markovic                                   b128_result[
186*4cd013cdSAleksandar Markovic                                       ((PATTERN_INPUTS_SHORT_COUNT) *
187*4cd013cdSAleksandar Markovic                                        (PATTERN_INPUTS_SHORT_COUNT)) +
188*4cd013cdSAleksandar Markovic                                       ((RANDOM_INPUTS_SHORT_COUNT) *
189*4cd013cdSAleksandar Markovic                                        (RANDOM_INPUTS_SHORT_COUNT)) +
190*4cd013cdSAleksandar Markovic                                       RANDOM_INPUTS_SHORT_COUNT * i + j]);
191*4cd013cdSAleksandar Markovic         }
192*4cd013cdSAleksandar Markovic     }
193*4cd013cdSAleksandar Markovic 
194*4cd013cdSAleksandar Markovic     for (i = 0; i < RANDOM_INPUTS_SHORT_COUNT; i++) {
195*4cd013cdSAleksandar Markovic         for (j = 0; j < RANDOM_INPUTS_SHORT_COUNT; j++) {
196*4cd013cdSAleksandar Markovic             do_msa_MSUBR_Q_H__DSD(b128_random[i], b128_random[j],
197*4cd013cdSAleksandar Markovic                                   b128_result[
198*4cd013cdSAleksandar Markovic                                       ((PATTERN_INPUTS_SHORT_COUNT) *
199*4cd013cdSAleksandar Markovic                                        (PATTERN_INPUTS_SHORT_COUNT)) +
200*4cd013cdSAleksandar Markovic                                       (2 * (RANDOM_INPUTS_SHORT_COUNT) *
201*4cd013cdSAleksandar Markovic                                        (RANDOM_INPUTS_SHORT_COUNT)) +
202*4cd013cdSAleksandar Markovic                                       RANDOM_INPUTS_SHORT_COUNT * i + j]);
203*4cd013cdSAleksandar Markovic         }
204*4cd013cdSAleksandar Markovic     }
205*4cd013cdSAleksandar Markovic 
206*4cd013cdSAleksandar Markovic     gettimeofday(&end, NULL);
207*4cd013cdSAleksandar Markovic 
208*4cd013cdSAleksandar Markovic     elapsed_time = (end.tv_sec - start.tv_sec) * 1000.0;
209*4cd013cdSAleksandar Markovic     elapsed_time += (end.tv_usec - start.tv_usec) / 1000.0;
210*4cd013cdSAleksandar Markovic 
211*4cd013cdSAleksandar Markovic     ret = check_results_128(isa_ase_name, group_name, instruction_name,
212*4cd013cdSAleksandar Markovic                             TEST_COUNT_TOTAL, elapsed_time,
213*4cd013cdSAleksandar Markovic                             &b128_result[0][0], &b128_expect[0][0]);
214*4cd013cdSAleksandar Markovic 
215*4cd013cdSAleksandar Markovic     return ret;
216*4cd013cdSAleksandar Markovic }
217