1 /* 2 * Long integer shift, 2addr version. vA is 64-bit value/result, vB is 3 * 32-bit shift distance. 4 */ 5 /* shl-long/2addr vA, vB */ 6 GET_OPA4(rOBJ) # rOBJ <- A+ 7 GET_OPB(a3) # a3 <- B 8 GET_VREG(a2, a3) # a2 <- vB 9 EAS2(t2, rFP, rOBJ) # t2 <- &fp[A] 10 LOAD64(a0, a1, t2) # a0/a1 <- vAA/vAA+1 11 12 FETCH_ADVANCE_INST(1) # advance rPC, load rINST 13 GET_INST_OPCODE(t0) # extract opcode from rINST 14 15 andi v1, a2, 0x20 # shift< shift & 0x20 16 sll v0, a0, a2 # rlo<- alo << (shift&31) 17 bnez v1, .L${opcode}_finish 18 not v1, a2 # rhi<- 31-shift (shift is 5b) 19 srl a0, 1 20 srl a0, v1 # alo<- alo >> (32-(shift&31)) 21 sll v1, a1, a2 # rhi<- ahi << (shift&31) 22 or v1, a0 # rhi<- rhi | alo 23 SET_VREG64_GOTO(v0, v1, rOBJ, t0) # vAA/vAA+1 <- a0/a1 24 %break 25 26 .L${opcode}_finish: 27 SET_VREG64_GOTO(zero, v0, rOBJ, t0) # vAA/vAA+1 <- rlo/rhi 28
