diff options
author | Torok Edwin <edwintorok@gmail.com> | 2011-10-06 12:12:50 +0000 |
---|---|---|
committer | Torok Edwin <edwintorok@gmail.com> | 2011-10-06 12:12:50 +0000 |
commit | c44943ed4f4f2d44b6668e6b51eb355f8310660c (patch) | |
tree | 315bd17a2494cbef968ab40d0fe70abf8179f458 /bindings/ocaml/llvm/llvm.ml | |
parent | 624c5edcd485a210faa61113f38938bdb6a0cc58 (diff) |
C/OCaml API to retrieve struct name.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@141285 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm.ml')
-rw-r--r-- | bindings/ocaml/llvm/llvm.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index e335eb8d39d..e46ea040d92 100644 --- a/bindings/ocaml/llvm/llvm.ml +++ b/bindings/ocaml/llvm/llvm.ml @@ -197,6 +197,7 @@ external param_types : lltype -> lltype array = "llvm_param_types" external struct_type : llcontext -> lltype array -> lltype = "llvm_struct_type" external packed_struct_type : llcontext -> lltype array -> lltype = "llvm_packed_struct_type" +external struct_name : lltype -> string option = "llvm_struct_name" external struct_element_types : lltype -> lltype array = "llvm_struct_element_types" external is_packed : lltype -> bool = "llvm_is_packed" |