diff --git a/asmcomp/arm64/proc.ml b/asmcomp/arm64/proc.ml
index c95bbb944..e259d2038 100644
--- a/asmcomp/arm64/proc.ml
+++ b/asmcomp/arm64/proc.ml
@@ -170,9 +170,15 @@ let last_int_register = if macosx then 7 else 15
 let loc_arguments arg =
   calling_conventions 0 last_int_register 100 115 outgoing arg
 let loc_parameters arg =
-  let (loc, _) = calling_conventions 0 last_int_register 100 115 incoming arg in loc
+  let (loc, _) =
+    calling_conventions 0 last_int_register 100 115 incoming arg
+  in
+  loc
 let loc_results res =
-  let (loc, _) = calling_conventions 0 last_int_register 100 115 not_supported res in loc
+  let (loc, _) =
+    calling_conventions 0 last_int_register 100 115 not_supported res
+  in
+  loc
 
 (* C calling convention:
      first integer args in r0...r7