gas/testsuite/gas/ia64/opc-i.pl

   1 $AT = '@';
   2 print <<END
   3 .text
   4         .type _start,${AT}function
   5 _start:
   6
   7         pmpyshr2 r4 = r5, r6, 0
   8         pmpyshr2.u r4 = r5, r6, 16
   9
  10         pmpy2.r r4 = r5, r6
  11         pmpy2.l r4 = r5, r6
  12
  13         mix1.r r4 = r5, r6
  14         mix2.r r4 = r5, r6
  15         mix4.r r4 = r5, r6
  16         mix1.l r4 = r5, r6
  17         mix2.l r4 = r5, r6
  18         mix4.l r4 = r5, r6
  19
  20         pack2.uss r4 = r5, r6
  21         pack2.sss r4 = r5, r6
  22         pack4.sss r4 = r5, r6
  23
  24         unpack1.h r4 = r5, r6
  25         unpack2.h r4 = r5, r6
  26         unpack4.h r4 = r5, r6
  27         unpack1.l r4 = r5, r6
  28         unpack2.l r4 = r5, r6
  29         unpack4.l r4 = r5, r6
  30
  31         pmin1.u r4 = r5, r6
  32         pmax1.u r4 = r5, r6
  33
  34         pmin2 r4 = r5, r6
  35         pmax2 r4 = r5, r6
  36
  37         psad1 r4 = r5, r6
  38
  39         mux1 r4 = r5, ${AT}rev
  40         mux1 r4 = r5, ${AT}mix
  41         mux1 r4 = r5, ${AT}shuf
  42         mux1 r4 = r5, ${AT}alt
  43         mux1 r4 = r5, ${AT}brcst
  44
  45         mux2 r4 = r5, 0
  46         mux2 r4 = r5, 0xff
  47         mux2 r4 = r5, 0xaa
  48
  49         pshr2 r4 = r5, r6
  50         pshr2 r4 = r5, 0
  51         pshr2 r4 = r5, 8
  52         pshr2 r4 = r5, 31
  53
  54         pshr4 r4 = r5, r6
  55         pshr4 r4 = r5, 0
  56         pshr4 r4 = r5, 8
  57         pshr4 r4 = r5, 31
  58
  59         pshr2.u r4 = r5, r6
  60         pshr2.u r4 = r5, 0
  61         pshr2.u r4 = r5, 8
  62         pshr2.u r4 = r5, 31
  63
  64         pshr4.u r4 = r5, r6
  65         pshr4.u r4 = r5, 0
  66         pshr4.u r4 = r5, 8
  67         pshr4.u r4 = r5, 31
  68
  69         shr r4 = r5, r6
  70         shr.u r4 = r5, r6
  71
  72         pshl2 r4 = r5, r6
  73         pshl2 r4 = r5, 0
  74         pshl2 r4 = r5, 8
  75         pshl2 r4 = r5, 31
  76
  77         pshl4 r4 = r5, r6
  78         pshl4 r4 = r5, 0
  79         pshl4 r4 = r5, 8
  80         pshl4 r4 = r5, 31
  81
  82         shl r4 = r5, r6
  83
  84         popcnt r4 = r5
  85
  86         shrp r4 = r5, r6, 0
  87         shrp r4 = r5, r6, 12
  88         shrp r4 = r5, r6, 63
  89
  90         extr r4 = r5, 0, 16
  91         extr r4 = r5, 0, 63
  92         extr r4 = r5, 10, 40
  93
  94         extr.u r4 = r5, 0, 16
  95         extr.u r4 = r5, 0, 63
  96         extr.u r4 = r5, 10, 40
  97
  98         dep.z r4 = r5, 0, 16
  99         dep.z r4 = r5, 0, 63
 100         dep.z r4 = r5, 10, 40
 101         dep.z r4 = 0, 0, 16
 102         dep.z r4 = 127, 0, 63
 103         dep.z r4 = -128, 5, 50
 104         dep.z r4 = 0x55, 10, 40
 105
 106         dep r4 = 0, r5, 0, 16
 107         dep r4 = -1, r5, 0, 63
 108         dep r4 = r5, r6, 10, 7
 109
 110         movl r4 = 0
 111         movl r4 = 0xffffffffffffffff
 112         movl r4 = 0x1234567890abcdef
 113
 114         break.i 0
 115         break.i 0x1fffff
 116
 117         nop.i 0
 118         nop.i 0x1fffff
 119
 120         chk.s.i r4, _start
 121
 122         mov r4 = b0
 123         mov b0 = r4
 124
 125         mov pr = r4, 0
 126         mov pr = r4, 0x1234
 127         mov pr = r4, 0x1ffff
 128
 129         mov pr.rot = 0
 130 // ??? This was originally 0x3ffffff, but that generates an assembler warning
 131 // that the testsuite infrastructure isn't set up to ignore.
 132         mov pr.rot = 0x3ff0000
 133         mov pr.rot = -0x4000000
 134
 135         zxt1 r4 = r5
 136         zxt2 r4 = r5
 137         zxt4 r4 = r5
 138
 139         sxt1 r4 = r5
 140         sxt2 r4 = r5
 141         sxt4 r4 = r5
 142
 143         czx1.l r4 = r5
 144         czx2.l r4 = r5
 145         czx1.r r4 = r5
 146         czx2.r r4 = r5
 147
 148 END
 149 ;
 150
 151 @ctype = ( "", ".unc", ".and", ".or", ".or.andcm", ".orcm",
 152            ".andcm", ".and.orcm" );
 153
 154 $i = 0;
 155 foreach $z ( ".z", ".nz" ) {
 156   foreach $c (@ctype) {
 157     print "\ttbit${z}${c} p2, p3 = r4, $i\n";
 158     ++$i;
 159   }
 160 }
 161 print "\n";
 162
 163 foreach $z ( ".z", ".nz" ) {
 164   foreach $c (@ctype) {
 165     print "\ttnat${z}${c} p2, p3 = r4\n";
 166   }
 167 }
 168 print "\n";
 169
 170
 171 @mwh = ( "", ".sptk", ".dptk" );
 172 @ih = ( "", ".imp" );
 173
 174 $LAB = 1;
 175
 176 foreach $b ("", ".ret") {
 177   foreach $w (@mwh) {
 178     foreach $i (@ih) {
 179       print "\tmov${b}${w}${i} b3 = r4, .L${LAB}\n";
 180     }
 181     print ".space 240\n";
 182     print ".L${LAB}:\n";
 183     ++$LAB;
 184   }
 185   print "\n";
 186 }