| ; 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 |
| .syntax no_register_prefix |
| .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: |
