diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 05:51:09 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 05:51:09 +0000 |
| commit | d2b4aff4bca23ff5dadf180281a74902a18fcf73 (patch) | |
| tree | 9eb3118618f7704137111910dd0c25c5c4ffadf1 /test/Bindings | |
| parent | b29d7d25423bc91a06a8a16aee3ff0ea96980706 (diff) | |
| download | external_llvm-d2b4aff4bca23ff5dadf180281a74902a18fcf73.zip external_llvm-d2b4aff4bca23ff5dadf180281a74902a18fcf73.tar.gz external_llvm-d2b4aff4bca23ff5dadf180281a74902a18fcf73.tar.bz2 | |
Remove malloc and free from the ocaml bindings.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97367 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index dd0404a..da3fa65 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -937,21 +937,15 @@ let test_builder () = let bb08 = append_block context "Bb08" fn in let b = builder_at_end context bb08 in - (* RUN: grep {Inst20.*malloc} < %t.ll - * RUN: grep {Inst21.*malloc} < %t.ll - * RUN: grep {Inst22.*alloca.*i32 } < %t.ll + (* RUN: grep {Inst22.*alloca.*i32 } < %t.ll * RUN: grep {Inst23.*alloca.*i32.*P2} < %t.ll - * RUN: grep {free.*Inst20} < %t.ll - * RUN: grep {Inst25.*load.*Inst21} < %t.ll + * RUN: grep {Inst25.*load.*Inst23} < %t.ll * RUN: grep {store.*P2.*Inst22} < %t.ll * RUN: grep {Inst27.*getelementptr.*Inst23.*P2} < %t.ll *) - let inst20 = build_malloc i8_type "Inst20" b in - let inst21 = build_array_malloc i8_type p1 "Inst21" b in let inst22 = build_alloca i32_type "Inst22" b in let inst23 = build_array_alloca i32_type p2 "Inst23" b in - ignore(build_free inst20 b); - ignore(build_load inst21 "Inst25" b); + ignore(build_load inst23 "Inst25" b); ignore(build_store p2 inst22 b); ignore(build_gep inst23 [| p2 |] "Inst27" b); ignore(build_unreachable b) |