1 files changed, 35 insertions, 0 deletions
diff --git a/vm/mterp/x86/OP_SHR_LONG_2ADDR.S b/vm/mterp/x86/OP_SHR_LONG_2ADDR.S
new file mode 100644
index 0000000..fba1f25
--- /dev/null
+++ b/vm/mterp/x86/OP_SHR_LONG_2ADDR.S
@@ -0,0 +1,35 @@
+%verify "executed"
+    /*
+     * Long integer shift, 2addr version.  vA is 64-bit value/result, vB is
+     * 32-bit shift distance.
+     */
+    /* shl-long/2addr vA, vB */
+    /* ecx gets shift count */
+    /* Need to spill edx */
+    /* rINST gets AA */
+    movzbl    rINST_HI,%ecx             # ecx<- BA
+    movzbl    rINST_HI,rINST_FULL       # rINST_HI<- BA
+    andb      $$0xf,rINST_LO            # rINST_FULL<- A
+    GET_VREG_WORD(%eax,rINST_FULL,0)    # eax<- v[AA+0]
+    sarl      $$4,%ecx                  # ecx<- B
+    SPILL(rPC)
+    GET_VREG_WORD(%edx,rINST_FULL,1)    # edx<- v[AA+1]
+    GET_VREG(%ecx,%ecx)                 # ecx<- vBB
+    shrdl     %edx,%eax
+    sarl      %cl,%edx
+    testb     $$32,%cl
+    je        2f
+    movl      %edx,%eax
+    sarl      $$31,%edx
+2:
+    SET_VREG_WORD(%edx,rINST_FULL,1)   # v[AA+1]<- edx
+    UNSPILL(rPC)
+    jmp       .L${opcode}_finish
+%break
+
+
+.L${opcode}_finish:
+    SET_VREG_WORD(%eax,rINST_FULL,0)  # v[AA+0]<- eax
+    FETCH_INST_WORD(1)
+    ADVANCE_PC(1)
+    GOTO_NEXT