From c8d7194b481cbdf859e3ce8ad49cd40ec86b06fe Mon Sep 17 00:00:00 2001 From: Gordon Henriksen Date: Sat, 1 Dec 2007 20:59:23 +0000 Subject: [PATCH] Fix a typo noticed by Alain Frisch. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@44493 91177308-0d34-0410-b5e6-96231b3b80d8 --- test/Bindings/Ocaml/analysis.ml | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/test/Bindings/Ocaml/analysis.ml b/test/Bindings/Ocaml/analysis.ml index bf756169f48..8d8a1df5b7d 100644 --- a/test/Bindings/Ocaml/analysis.ml +++ b/test/Bindings/Ocaml/analysis.ml @@ -23,9 +23,10 @@ let _ = (* Test that valid constructs verify. *) - match verify_module m with + begin match verify_module m with Some msg -> bomb "valid module failed verification!" - | None -> (); + | None -> () + end; if not (verify_function fn) then bomb "valid function failed verification!"; @@ -34,9 +35,10 @@ let _ = A basic block can contain only one terminator instruction. *) ignore (build_ret_void at_entry); - match verify_module m with + begin match verify_module m with Some msg -> () - | None -> bomb "invalid module passed verification!"; + | None -> bomb "invalid module passed verification!" + end; if verify_function fn then bomb "invalid function passed verification!"; -- 2.11.0