RPCS3/llvm
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm.git synced 2025-04-04 06:12:18 +00:00
Code Issues Actions Packages 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

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@358501 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
whitequark 2019-04-16 15:00:19 +00:00
parent 2ce77c86aa
commit fccd1f0eb9
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 | CatchPad
| CleanupPad | CleanupPad
| CatchSwitch | CatchSwitch
| FNeg
| CallBr
end end
module LandingPadClauseTy = struct module LandingPadClauseTy = struct

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

@ -266,6 +266,8 @@ module Opcode : sig
| CatchPad | CatchPad
| CleanupPad | CleanupPad
| CatchSwitch | CatchSwitch
| FNeg
| CallBr
end end
(** The type of a clause of a [landingpad] instruction. (** 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)) if (!LLVMIsAInstruction(Inst))
failwith("Not an instruction"); failwith("Not an instruction");
o = LLVMGetInstructionOpcode(Inst); o = LLVMGetInstructionOpcode(Inst);
assert (o <= LLVMCatchSwitch); assert (o <= LLVMCallBr);
return Val_int(o); return Val_int(o);
} }