[sledge][llvm] Add missing TypeKinds, Opcode, and AtomicRMWBinOps

Summary:
There are several enum values that have been added to LLVM-C that are
missing from the OCaml bindings.

Reviewed By: jvillard

Differential Revision: D27188299

fbshipit-source-id: 215f15469
master
Josh Berdine 4 years ago committed by Facebook GitHub Bot
parent 637b566726
commit fc348d0ac4

@ -42,6 +42,8 @@ module TypeKind = struct
| Metadata
| X86_mmx
| Token
| ScalableVector
| BFloat
end
module Linkage = struct
@ -246,6 +248,7 @@ module Opcode = struct
| CatchSwitch
| FNeg
| CallBr
| Freeze
end
module LandingPadClauseTy = struct
@ -288,6 +291,8 @@ module AtomicRMWBinOp = struct
| Min
| UMax
| UMin
| FAdd
| FSub
end
module ValueKind = struct

@ -77,6 +77,8 @@ module TypeKind : sig
| Metadata
| X86_mmx
| Token
| ScalableVector
| BFloat
end
(** The linkage of a global value, accessed with {!linkage} and
@ -268,6 +270,7 @@ module Opcode : sig
| CatchSwitch
| FNeg
| CallBr
| Freeze
end
(** The type of a clause of a [landingpad] instruction.
@ -319,6 +322,8 @@ module AtomicRMWBinOp : sig
| Min
| UMax
| UMin
| FAdd
| FSub
end
(** The kind of an [llvalue], the result of [classify_value v].

@ -1655,7 +1655,7 @@ CAMLprim value llvm_instr_get_opcode(LLVMValueRef Inst) {
if (!LLVMIsAInstruction(Inst))
failwith("Not an instruction");
o = LLVMGetInstructionOpcode(Inst);
assert (o <= LLVMCallBr);
assert (o <= LLVMFreeze);
return Val_int(o);
}

Loading…
Cancel
Save