diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-09-18 18:07:51 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-09-18 18:07:51 +0000 |
| commit | 344be5fbecec9908bab611eafeae0549ba3be6d7 (patch) | |
| tree | be1d6313447d5e51529a9e2409b02a2303799e46 /bindings/ocaml/llvm/llvm.ml | |
| parent | 869b2b2c231e2208e1273e65123393ee06d13611 (diff) | |
| download | external_llvm-344be5fbecec9908bab611eafeae0549ba3be6d7.zip external_llvm-344be5fbecec9908bab611eafeae0549ba3be6d7.tar.gz external_llvm-344be5fbecec9908bab611eafeae0549ba3be6d7.tar.bz2 | |
Tests of the ocaml (and thus C) bindings for constants.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42101 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm.ml')
| -rw-r--r-- | bindings/ocaml/llvm/llvm.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index 18a9e21..b8a62dc 100644 --- a/bindings/ocaml/llvm/llvm.ml +++ b/bindings/ocaml/llvm/llvm.ml @@ -141,14 +141,18 @@ external value_name : llvalue -> string = "llvm_value_name" external set_value_name : string -> llvalue -> unit = "llvm_set_value_name" (*--... Operations on constants of (mostly) any type .......................--*) +external is_constant : llvalue -> bool = "llvm_is_constant" external make_null : lltype -> llvalue = "llvm_make_null" -external make_all_ones : lltype -> llvalue = "llvm_make_all_ones" +external make_all_ones : (*int|vec*)lltype -> llvalue = "llvm_make_all_ones" external make_undef : lltype -> llvalue = "llvm_make_undef" external is_null : llvalue -> bool = "llvm_is_null" +external is_undef : llvalue -> bool = "llvm_is_undef" (*--... Operations on scalar constants .....................................--*) external make_int_constant : lltype -> int -> bool -> llvalue = "llvm_make_int_constant" +external make_int64_constant : lltype -> Int64.t -> bool -> llvalue + = "llvm_make_int64_constant" external make_real_constant : lltype -> float -> llvalue = "llvm_make_real_constant" |