projects
/
oota-llvm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update the ML test to expect the new string format of getStringRepresentation.
[oota-llvm.git]
/
test
/
Bindings
/
Ocaml
/
bitreader.ml
diff --git
a/test/Bindings/Ocaml/bitreader.ml
b/test/Bindings/Ocaml/bitreader.ml
index a3bd91a0af2ace484baa0adfcba32ff302ea1cd3..f1d202ab0490dee6119eeeebdc8985fcdd785eaf 100644
(file)
--- a/
test/Bindings/Ocaml/bitreader.ml
+++ b/
test/Bindings/Ocaml/bitreader.ml
@@
-1,6
+1,9
@@
-(* RUN: %ocamlopt -warn-error A llvm.cmxa llvm_bitreader.cmxa llvm_bitwriter.cmxa %s -o %t
+(* RUN: rm -rf %t.builddir
+ * RUN: mkdir -p %t.builddir
+ * RUN: cp %s %t.builddir
+ * RUN: %ocamlopt -warn-error A llvm.cmxa llvm_bitreader.cmxa llvm_bitwriter.cmxa %t.builddir/bitreader.ml -o %t
* RUN: %t %t.bc
* RUN: %t %t.bc
- * RUN: llvm-dis < %t.bc
| grep caml_int_ty
+ * RUN: llvm-dis < %t.bc
* XFAIL: vg_leak
*)
* XFAIL: vg_leak
*)
@@
-15,8
+18,6
@@
let _ =
let fn = Sys.argv.(1) in
let m = Llvm.create_module context "ocaml_test_module" in
let fn = Sys.argv.(1) in
let m = Llvm.create_module context "ocaml_test_module" in
- ignore (Llvm.define_type_name "caml_int_ty" (Llvm.i32_type context) m);
-
test (Llvm_bitwriter.write_bitcode_file m fn);
Llvm.dispose_module m;
test (Llvm_bitwriter.write_bitcode_file m fn);
Llvm.dispose_module m;