Gordon Henriksen | 7a653cb | 2007-12-22 19:41:30 +0000 | [diff] [blame] | 1 | (* RUN: %ocamlc -warn-error A llvm.cma llvm_bitwriter.cma %s -o %t |
Gordon Henriksen | 8ef426b | 2007-09-18 12:49:39 +0000 | [diff] [blame] | 2 | * RUN: ./%t %t.bc |
| 3 | * RUN: llvm-dis < %t.bc | grep caml_int_ty |
| 4 | *) |
| 5 | |
| 6 | (* Note that this takes a moment to link, so it's best to keep the number of |
| 7 | individual tests low. *) |
| 8 | |
| 9 | let test x = if not x then exit 1 else () |
| 10 | |
| 11 | let _ = |
| 12 | let m = Llvm.create_module "ocaml_test_module" in |
| 13 | |
Gordon Henriksen | 46abf91 | 2007-09-26 20:56:12 +0000 | [diff] [blame] | 14 | ignore (Llvm.define_type_name "caml_int_ty" Llvm.i32_type m); |
Gordon Henriksen | 8ef426b | 2007-09-18 12:49:39 +0000 | [diff] [blame] | 15 | |
| 16 | test (Llvm_bitwriter.write_bitcode_file m Sys.argv.(1)) |