Commit | Line | Data |
---|---|---|
b4f9e003 SH |
1 | /* Tests some basic fpu instructions. |
2 | ||
b811d2c2 | 3 | Copyright (C) 2019-2020 Free Software Foundation, Inc. |
b4f9e003 SH |
4 | |
5 | This program is free software; you can redistribute it and/or modify | |
6 | it under the terms of the GNU General Public License as published by | |
7 | the Free Software Foundation; either version 3 of the License, or | |
8 | (at your option) any later version. | |
9 | ||
10 | This program is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ | |
17 | ||
18 | # mach: or1k | |
19 | # output: report(0x400921f9);\n | |
20 | # output: report(0xf01b866e);\n | |
21 | # output: report(0x4005bf09);\n | |
22 | # output: report(0x95aaf790);\n | |
23 | # output: report(0x00000000);\n | |
24 | # output: report(0x00001234);\n | |
25 | # output: \n | |
26 | # output: report(0x40b23400);\n | |
27 | # output: report(0x00000000);\n | |
28 | # output: report(0x40b23400);\n | |
29 | # output: report(0x00000000);\n | |
30 | # output: \n | |
31 | # output: report(0x40177081);\n | |
32 | # output: report(0xc2e33eff);\n | |
33 | # output: report(0x400921f9);\n | |
34 | # output: report(0xf01b866e);\n | |
35 | # output: \n | |
36 | # output: report(0x40211456);\n | |
37 | # output: report(0x587dfabf);\n | |
38 | # output: report(0x400921f9);\n | |
39 | # output: report(0xf01b866d);\n | |
40 | # output: \n | |
41 | # output: report(0x00000001);\n | |
42 | # output: \n | |
43 | # output: WARNING: ignoring fpu error caught in fast mode.\n | |
44 | # output: report(0x00000000);\n | |
45 | # output: \n | |
46 | # output: exit(0)\n | |
47 | ||
48 | #include "or1k-asm-test-helpers.h" | |
49 | ||
50 | STANDARD_TEST_ENVIRONMENT | |
51 | ||
52 | .section .exception_vectors | |
53 | ||
54 | /* Floating point exception. */ | |
55 | .org 0xd00 | |
56 | ||
57 | /* The handling is a bit dubious at present. We just patch the | |
58 | instruction with l.nop and restart. This will go wrong in branch | |
59 | delay slots. But we don't have those in this test. */ | |
60 | l.addi r1, r1, -EXCEPTION_STACK_SKIP_SIZE | |
61 | PUSH r2 | |
62 | PUSH r3 | |
63 | /* Save the address of the instruction that caused the problem. */ | |
64 | MOVE_FROM_SPR r2, SPR_EPCR_BASE | |
65 | LOAD_IMMEDIATE r3, 0x15000000 /* Opcode for l.nop */ | |
66 | l.sw -4(r2), r3 | |
67 | POP r3 | |
68 | POP r2 | |
69 | l.addi r1, r1, EXCEPTION_STACK_SKIP_SIZE | |
70 | l.rfe | |
71 | ||
72 | .section .data | |
73 | .align 4 | |
74 | .type pi, @object | |
75 | .size pi, 8 | |
76 | anchor: | |
77 | pi: | |
78 | .double 3.14159 | |
79 | ||
80 | .type e, @object | |
81 | .size e, 8 | |
82 | e: | |
83 | .double 2.71828 | |
84 | ||
85 | .type large, @object | |
86 | .size large, 8 | |
87 | large: | |
88 | .long 0 | |
89 | .long 0x1234 | |
90 | ||
91 | .section .text | |
92 | start_tests: | |
93 | PUSH LINK_REGISTER_R9 | |
94 | ||
95 | /* Test lf.itof.d int to double conversion. Setting up: | |
96 | * r11 pointer to data | |
97 | * r12,r13 pi as double | |
98 | * r14,r15 e as double | |
99 | * r16,r17 a long long | |
100 | */ | |
101 | l.ori r11, r0, ha(anchor) | |
102 | l.addi r11, r11, lo(anchor) | |
103 | l.lwz r12, 0(r11) | |
104 | l.lwz r13, 4(r11) | |
105 | ||
106 | l.lwz r14, 8(r11) | |
107 | l.lwz r15, 12(r11) | |
108 | ||
109 | l.lwz r16, 16(r11) | |
110 | l.lwz r18, 20(r11) | |
111 | ||
112 | /* Output to ensure we loaded it correctly. */ | |
113 | REPORT_REG_TO_CONSOLE r12 | |
114 | REPORT_REG_TO_CONSOLE r13 | |
115 | ||
116 | REPORT_REG_TO_CONSOLE r14 | |
117 | REPORT_REG_TO_CONSOLE r15 | |
118 | ||
119 | REPORT_REG_TO_CONSOLE r16 | |
120 | REPORT_REG_TO_CONSOLE r18 | |
121 | PRINT_NEWLINE_TO_CONSOLE | |
122 | ||
123 | /* Convert the big long to a double. */ | |
124 | lf.itof.d r16,r18, r16,r18 | |
125 | REPORT_REG_TO_CONSOLE r16 | |
126 | REPORT_REG_TO_CONSOLE r18 | |
127 | ||
128 | /* Convert the double back to a long, it should match before. */ | |
129 | lf.ftoi.d r16,r18, r16,r18 | |
130 | lf.itof.d r16,r18, r16,r18 | |
131 | ||
132 | REPORT_REG_TO_CONSOLE r16 | |
133 | REPORT_REG_TO_CONSOLE r18 | |
134 | ||
135 | PRINT_NEWLINE_TO_CONSOLE | |
136 | ||
137 | /* Add and subtract some double values. */ | |
138 | lf.add.d r12,r13, r12,r13, r14,r15 | |
139 | REPORT_REG_TO_CONSOLE r12 | |
140 | REPORT_REG_TO_CONSOLE r13 | |
141 | ||
142 | lf.sub.d r12,r13, r12,r13, r14,r15 | |
143 | REPORT_REG_TO_CONSOLE r12 | |
144 | REPORT_REG_TO_CONSOLE r13 | |
145 | PRINT_NEWLINE_TO_CONSOLE | |
146 | ||
147 | /* Multiply and divide double values. */ | |
148 | lf.mul.d r12,r13, r12,r13, r14,r15 | |
149 | REPORT_REG_TO_CONSOLE r12 | |
150 | REPORT_REG_TO_CONSOLE r13 | |
151 | ||
152 | lf.div.d r12,r13, r12,r13, r14,r15 | |
153 | REPORT_REG_TO_CONSOLE r12 | |
154 | REPORT_REG_TO_CONSOLE r13 | |
155 | PRINT_NEWLINE_TO_CONSOLE | |
156 | ||
157 | /* Test lf.sfge.s set flag if r6 >= r10. */ | |
158 | lf.sfge.d r12,r13, r14,r15 | |
159 | MOVE_FROM_SPR r2, SPR_SR | |
160 | REPORT_BIT_TO_CONSOLE r2, SPR_SR_F | |
161 | PRINT_NEWLINE_TO_CONSOLE | |
162 | ||
163 | /* Test raising an exception by dividing by 0. */ | |
164 | MOVE_FROM_SPR r2, SPR_FPCSR | |
165 | l.ori r2, r2, 0x1 | |
166 | MOVE_TO_SPR SPR_FPCSR, r2 | |
167 | div0: lf.div.d r2,r3, r12,r13, r0,r1 | |
168 | REPORT_EXCEPTION div0 | |
169 | PRINT_NEWLINE_TO_CONSOLE | |
170 | ||
171 | POP LINK_REGISTER_R9 | |
172 | RETURN_TO_LINK_REGISTER_R9 |