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