More sensible style as suggested by xavierleroy

ocaml · Feb 21, 2022 · 5d512e0 · 5d512e0
1 parent 54e7027
commit 5d512e0
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/asmcomp/amd64/emit.mlp b/asmcomp/amd64/emit.mlp
@@ -804,9 +804,10 @@ let emit_instr env fallthrough i =
       done;
       emit_named_text_section env.f.fun_name
   | Lentertrap ->
-      if fp then
-        let delta = (frame_size env) - 16 (* retaddr + rbp *) in
-        I.lea (mem64 NONE delta RSP) rbp;
+      if fp then begin
+        let delta = frame_size env - 16 (* retaddr + rbp *) in
+        I.lea (mem64 NONE delta RSP) rbp
+      end;
   | Ladjust_trap_depth { delta_traps; } ->
       (* each trap occupies 16 bytes on the stack *)
       let delta = 16 * delta_traps in