1 %verify "executed" 2 /* 3 * Long integer shift, 2addr version. vA is 64-bit value/result, vB is 4 * 32-bit shift distance. 5 */ 6 /* shr-long/2addr vA, vB */ 7 GET_OPA4(t2) # t2 <- A+ 8 GET_OPB(a3) # a3 <- B 9 GET_VREG(a2, a3) # a2 <- vB 10 EAS2(t2, rFP, t2) # t2 <- &fp[A] 11 LOAD64(a0, a1, t2) # a0/a1 <- vAA/vAA+1 12 FETCH_ADVANCE_INST(1) # advance rPC, load rINST 13 14 sra v1, a1, a2 # rhi<- ahi >> (shift&31) 15 srl v0, a0, a2 # rlo<- alo >> (shift&31) 16 sra a3, a1, 31 # a3<- sign(ah) 17 not a0, a2 # alo<- 31-shift (shift is 5b) 18 sll a1, 1 19 sll a1, a0 # ahi<- ahi << (32-(shift&31)) 20 or v0, a1 # rlo<- rlo | ahi 21 andi a2, 0x20 # shift & 0x20 22 movn v0, v1, a2 # rlo<- rhi (if shift&0x20) 23 movn v1, a3, a2 # rhi<- sign(ahi) (if shift&0x20) 24 25 GET_INST_OPCODE(t0) # extract opcode from rINST 26 STORE64(v0, v1, t2) # vAA/vAA+1 <- a0/a1 27 GOTO_OPCODE(t0) # jump to next instruction 28 29
