From 0aea08184153d2eb74f1c75542a8f8a2d6724172 Mon Sep 17 00:00:00 2001
From: Roman Venediktov <e2e4b6b7@gmail.com>
Date: Fri, 2 Feb 2024 15:26:47 +0100
Subject: [PATCH] Fix type

---
 src/X86.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/X86.ml b/src/X86.ml
index 87cbe7914..f80ea839f 100644
--- a/src/X86.ml
+++ b/src/X86.ml
@@ -287,7 +287,7 @@ let compile_binop env op =
     let _extra, env = env#pop in
     let _x, env = env#pop in
     if in_memory extra then
-      (env, [ Mov (rdx, extra) ] @ op extra @ [ Mov (extra, rdx) ])
+      (env, [ Mov (rdx, extra) ] @ op rdx @ [ Mov (extra, rdx) ])
     else (env, op extra)
   in
   match op with