fix identation and hygene

ocaml · Jul 1, 2021 · f4fda38 · f4fda38
1 parent bf4e496
commit f4fda38
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/asmcomp/polling.ml b/asmcomp/polling.ml
@@ -216,8 +216,11 @@ let instrument_fundecl ~future_funcnames:_ (f : Mach.fundecl) : Mach.fundecl =
     | [] -> ()
     | _ -> raise (Error (Poll_error poll_instrs))
   end;
-    let new_contains_calls = f.fun_contains_calls || contains_poll new_body in
-    { f with fun_body = new_body; fun_contains_calls = new_contains_calls }
+    let new_contains_calls =
+      f.fun_contains_calls || contains_poll new_body in
+        { f with
+          fun_body = new_body;
+          fun_contains_calls = new_contains_calls }
 
 let requires_prologue_poll ~future_funcnames i =
   potentially_recursive_tailcall ~fwd_func:future_funcnames i

diff --git a/lambda/translattribute.ml b/lambda/translattribute.ml
@@ -217,7 +217,8 @@ let check_poll_inline loc attr =
   match attr.poll, attr.inline with
   | Error_poll, (Always_inline | Hint_inline | Unroll _) ->
       Location.prerr_warning loc
-        (Warnings.Inlining_impossible "[@poll error] is incompatible with inlining")
+        (Warnings.Inlining_impossible
+          "[@poll error] is incompatible with inlining")
   | _ ->
       ()