From 34b4a8426131ec2deea45a1e0174f191c63295e2 Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Tue, 5 Nov 2013 12:55:43 +0000 Subject: [PATCH 1/1] [OCaml] (PR16190) Add ValueKinds for ConstantDataSequential and subclasses Original patch by David Monniaux git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194075 91177308-0d34-0410-b5e6-96231b3b80d8 --- bindings/ocaml/llvm/llvm.ml | 2 ++ bindings/ocaml/llvm/llvm.mli | 2 ++ bindings/ocaml/llvm/llvm_ocaml.c | 4 ++++ 3 files changed, 8 insertions(+) diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index 1bf91f45186..7096c169b4b 100644 --- a/bindings/ocaml/llvm/llvm.ml +++ b/bindings/ocaml/llvm/llvm.ml @@ -260,6 +260,8 @@ module ValueKind = struct | BlockAddress | ConstantAggregateZero | ConstantArray + | ConstantDataArray + | ConstantDataVector | ConstantExpr | ConstantFP | ConstantInt diff --git a/bindings/ocaml/llvm/llvm.mli b/bindings/ocaml/llvm/llvm.mli index f70fd60b34f..8ad21f20c48 100644 --- a/bindings/ocaml/llvm/llvm.mli +++ b/bindings/ocaml/llvm/llvm.mli @@ -323,6 +323,8 @@ module ValueKind : sig | BlockAddress | ConstantAggregateZero | ConstantArray + | ConstantDataArray + | ConstantDataVector | ConstantExpr | ConstantFP | ConstantInt diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index e7ebde26efc..ad4b36cc2bf 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -454,6 +454,8 @@ enum ValueKind { BlockAddress, ConstantAggregateZero, ConstantArray, + ConstantDataArray, + ConstantDataVector, ConstantExpr, ConstantFP, ConstantInt, @@ -479,6 +481,8 @@ CAMLprim value llvm_classify_value(LLVMValueRef Val) { DEFINE_CASE(Val, BlockAddress); DEFINE_CASE(Val, ConstantAggregateZero); DEFINE_CASE(Val, ConstantArray); + DEFINE_CASE(Val, ConstantDataArray); + DEFINE_CASE(Val, ConstantDataVector); DEFINE_CASE(Val, ConstantExpr); DEFINE_CASE(Val, ConstantFP); DEFINE_CASE(Val, ConstantInt); -- 2.34.1