diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2008-03-27 00:27:14 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2008-03-27 00:27:14 +0000 |
| commit | 8ac07c28340c6f77be17ce5fd564023eeec94f06 (patch) | |
| tree | 323d6e5d9174ff112b53ca6b852b531cdab50590 /llvm/test | |
| parent | f1dcb00266b1d6e63f67fd37f388f8cc587d9cec (diff) | |
| download | bcm5719-llvm-8ac07c28340c6f77be17ce5fd564023eeec94f06.tar.gz bcm5719-llvm-8ac07c28340c6f77be17ce5fd564023eeec94f06.zip | |
Expose ExecutionEngine::getTargetData() to c and ocaml bindings.
llvm-svn: 48851
Diffstat (limited to 'llvm/test')
| -rw-r--r-- | llvm/test/Bindings/Ocaml/executionengine.ml | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/llvm/test/Bindings/Ocaml/executionengine.ml b/llvm/test/Bindings/Ocaml/executionengine.ml index a091098b5b4..d238076a065 100644 --- a/llvm/test/Bindings/Ocaml/executionengine.ml +++ b/llvm/test/Bindings/Ocaml/executionengine.ml @@ -1,9 +1,10 @@ -(* RUN: %ocamlc -warn-error A llvm.cma llvm_executionengine.cma %s -o %t +(* RUN: %ocamlc -warn-error A llvm.cma llvm_target.cma llvm_executionengine.cma %s -o %t * RUN: ./%t %t.bc *) open Llvm open Llvm_executionengine +open Llvm_target (* Note that this takes a moment to link, so it's best to keep the number of individual tests low. *) @@ -92,6 +93,13 @@ let test_executionengine () = (* run_static_dtors *) ExecutionEngine.run_static_dtors ee; + + (* Show that the target data binding links and runs.*) + let td = ExecutionEngine.target_data ee in + + (* Demonstrate that a garbage pointer wasn't returned. *) + let ty = intptr_type td in + if ty != i32_type && ty != i64_type then bomb "target_data did not work"; (* dispose *) ExecutionEngine.dispose ee |
