[llvm-commits] [llvm] r44493 - /llvm/trunk/test/Bindings/Ocaml/analysis.ml

[Gordon Henriksen]

Author: gordon
Date: Sat Dec  1 14:59:23 2007
New Revision: 44493

URL: http://llvm.org/viewvc/llvm-project?rev=44493&view=rev
Log:
Fix a typo noticed by Alain Frisch.

Modified:
    llvm/trunk/test/Bindings/Ocaml/analysis.ml

Modified: llvm/trunk/test/Bindings/Ocaml/analysis.ml
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/Bindings/Ocaml/analysis.ml?rev=44493&r1=44492&r2=44493&view=diff

==============================================================================
--- llvm/trunk/test/Bindings/Ocaml/analysis.ml (original)
+++ llvm/trunk/test/Bindings/Ocaml/analysis.ml Sat Dec  1 14:59:23 2007
@@ -23,9 +23,10 @@
   
   
   (* 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 @@
      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!";