[OCaml] Add missing instruction opcodes to OCaml API

[jberdine]

Summary

The OCaml bindings have become out of date and several opcodes have
been added to the C API without corresponding additions to the OCaml
API.

[whitequark]

Thanks!

[jberdine]

Thanks! Could I ask you to commit this as I don't have commit access?

llvm/trunk/bindings/ocaml/llvm/llvm.ml

module Opcode  = struct
   | ShuffleVector
   | ExtractValue
   | InsertValue
   | Fence
   | AtomicCmpXchg
   | AtomicRMW
   | Resume
   | LandingPad
+  | AddrSpaceCast
+  | CleanupRet
+  | CatchRet
+  | CatchPad
+  | CleanupPad
+  | CatchSwitch
 end
 
 module LandingPadClauseTy = struct
   type t =
   | Catch
   | Filter
 end
 

llvm/trunk/bindings/ocaml/llvm/llvm.mli

module Opcode : sig
   | ShuffleVector
   | ExtractValue
   | InsertValue
   | Fence
   | AtomicCmpXchg
   | AtomicRMW
   | Resume
   | LandingPad
+  | AddrSpaceCast
+  | CleanupRet
+  | CatchRet
+  | CatchPad
+  | CleanupPad
+  | CatchSwitch
 end
 
 (** The type of a clause of a [landingpad] instruction.
     See [llvm::LandingPadInst::ClauseType]. *)
 module LandingPadClauseTy : sig
   type t =
   | Catch
   | Filter

llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

DEFINE_ITERATORS(instr, Instruction, LLVMBasicBlockRef, LLVMValueRef,
                  LLVMGetInstructionParent)
 
 /* llvalue -> Opcode.t */
 CAMLprim value llvm_instr_get_opcode(LLVMValueRef Inst) {
   LLVMOpcode o;
   if (!LLVMIsAInstruction(Inst))
       failwith("Not an instruction");
   o = LLVMGetInstructionOpcode(Inst);
-  assert (o <= LLVMLandingPad);
+  assert (o <= LLVMCatchSwitch);
   return Val_int(o);
 }
 
 /* llvalue -> ICmp.t option */
 CAMLprim value llvm_instr_icmp_predicate(LLVMValueRef Val) {
   CAMLparam0();
   int x = LLVMGetICmpPredicate(Val);
   if (x) {