This commit is contained in:
Roman Venediktov 2024-02-02 15:26:47 +01:00
parent f83cf7880c
commit 0aea081841

View file

@ -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