RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-11-22 10:42:39 +01:00
Code Issues Projects Releases Wiki Activity

[OCaml] Update api to account for FNeg and CallBr instructions

Browse Source 
Summary:
This diff adds minimal support for the recent FNeg and CallBr
instructions to the OCaml bindings.

Reviewers: whitequark

Reviewed By: whitequark

Subscribers: llvm-commits

Tags: #llvm

Differential Revision: https://reviews.llvm.org/D60680

llvm-svn: 358501
This commit is contained in:
whitequark 2019-04-16 15:00:19 +00:00
parent 0f18bb9cf3
commit 03800fc31b
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/ocaml/llvm/llvm.ml
View File

@ -244,6 +244,8 @@ module Opcode = struct
| CatchPad
| CleanupPad
| CatchSwitch
| FNeg
| CallBr
end
module LandingPadClauseTy = struct

2
bindings/ocaml/llvm/llvm.mli
View File

@ -266,6 +266,8 @@ module Opcode : sig
| CatchPad
| CleanupPad
| CatchSwitch
| FNeg
| CallBr
end
(** The type of a clause of a [landingpad] instruction.

2
bindings/ocaml/llvm/llvm_ocaml.c
View File

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