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