diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2013-11-05 12:55:43 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-05 12:55:43 +0000 |
| commit | 34b4a8426131ec2deea45a1e0174f191c63295e2 (patch) | |
| tree | c7dd2f2ea8982ed921ff768dfd34b03bfab45c34 | |
| parent | 0fac3dfa4153dc6064d299fe0a0933630ae3f840 (diff) | |
| download | external_llvm-34b4a8426131ec2deea45a1e0174f191c63295e2.zip external_llvm-34b4a8426131ec2deea45a1e0174f191c63295e2.tar.gz external_llvm-34b4a8426131ec2deea45a1e0174f191c63295e2.tar.bz2 | |
[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
| -rw-r--r-- | bindings/ocaml/llvm/llvm.ml | 2 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm.mli | 2 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 4 |
3 files changed, 8 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index 1bf91f4..7096c16 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 f70fd60..8ad21f2 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 e7ebde2..ad4b36c 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); |