]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - gas/testsuite/gas/hppa/basic/shift.s
19990502 sourceware import
[thirdparty/binutils-gdb.git] / gas / testsuite / gas / hppa / basic / shift.s
1 .SPACE $PRIVATE$
2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
4 .SPACE $TEXT$
5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
7
8 .SPACE $TEXT$
9 .SUBSPA $CODE$
10
11 .align 4
12 ; Basic immediate instruction tests.
13 ;
14 ; We could/should test some of the corner cases for register and
15 ; immediate fields. We should also check the assorted field
16 ; selectors to make sure they're handled correctly.
17 vshd %r4,%r5,%r6
18 vshd,= %r4,%r5,%r6
19 vshd,< %r4,%r5,%r6
20 vshd,od %r4,%r5,%r6
21 vshd,tr %r4,%r5,%r6
22 vshd,<> %r4,%r5,%r6
23 vshd,>= %r4,%r5,%r6
24 vshd,ev %r4,%r5,%r6
25
26 shd %r4,%r5,5,%r6
27 shd,= %r4,%r5,5,%r6
28 shd,< %r4,%r5,5,%r6
29 shd,od %r4,%r5,5,%r6
30 shd,tr %r4,%r5,5,%r6
31 shd,<> %r4,%r5,5,%r6
32 shd,>= %r4,%r5,5,%r6
33 shd,ev %r4,%r5,5,%r6
34