Commit | Line | Data |
---|---|---|
a471a06b HPN |
1 | ; File bwtest-err-1.s |
2 | ||
3 | ; { dg-do assemble { target cris-*-* } } | |
4 | ||
5 | ; A variant of exbwtest.s. This is an example of invalid use of the broken- | |
6 | ; dot-word function. The nearest label occurs about 32 kbytes after the primary | |
7 | ; jump table so the secondary jump table can't be reached by word displace- | |
8 | ; ments and the broken words overflow. | |
9 | ||
10 | ; main() | |
11 | ; { | |
12 | ; byte i; | |
13 | ; | |
14 | ; for (i=0; i <= 3; i++) { | |
15 | ; result[i] = funct(i); | |
16 | ; } | |
17 | ; } | |
18 | ; | |
19 | ; Register use : r1 - i | |
20 | ; r2 - result address | |
21 | ||
22 | .text | |
0465aa2f | 23 | .syntax no_register_prefix |
a471a06b HPN |
24 | .word 0 |
25 | main: move.d stack,sp | |
26 | moveq 0,r1 | |
27 | move.d result,r2 | |
28 | for1: cmpq 3,r1 | |
29 | bgt endfor1 | |
30 | move.d r1,r0 | |
31 | jsr funct | |
32 | move.w r0,[r2+r1.w] | |
33 | ba for1 | |
34 | addq 1,r1 | |
35 | endfor1: | |
36 | end: ba end | |
37 | nop | |
38 | ||
39 | ||
40 | ; uword funct(i) | |
41 | ; byte i; | |
42 | ; { | |
43 | ; switch (i) { | |
44 | ; case 0 : return 0x1111; | |
45 | ; case 1 : return 0x2222; | |
46 | ; case 2 : return 0x3333; | |
47 | ; case 3 : return 0x4444; | |
48 | ; } | |
49 | ; } | |
50 | ; | |
51 | ; Parameters : r0 - i | |
52 | ; | |
53 | ; Register use : r1 - pjt address | |
54 | ||
55 | funct: push r1 | |
56 | move.d pjt,r1 | |
57 | adds.w [r1+r0.w],pc | |
58 | pjt: .word near1 - pjt | |
59 | .word near2 - pjt | |
60 | .word far1 - pjt | |
61 | .word far2 - pjt | |
62 | ||
63 | ; Note that the line-number of the source-location of the error | |
64 | ; seems slightly off from the user perspective, but it's the | |
65 | ; best I could get without major changes in BW-handling. Not | |
66 | ; sure it it's worth fixing. May need adjustments if | |
67 | ; BW-handling changes. Four errors from four .words are what's | |
68 | ; expected. | |
69 | ||
70 | .space 32760,0xFF; { dg-error "Adjusted signed \.word \(.*\) overflow.*" } | |
71 | ||
72 | near1: move.w 0x1111,r0 | |
73 | ba ret1 | |
74 | nop | |
75 | ||
76 | near2: move.w 0x2222,r0 | |
77 | ba ret1 | |
78 | nop | |
79 | ||
80 | far1: move.w 0x3333,r0 | |
81 | ba ret1 | |
82 | nop | |
83 | ||
84 | far2: move.w 0x4444,r0 | |
85 | ret1: pop r1 | |
86 | ret | |
87 | ||
88 | ||
89 | result: .space 4 * 2 ; static uword result[4]; | |
90 | ||
91 | .space 4 | |
92 | stack: |