6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-01-18 13:34:04 +00:00
Code Issues Projects Releases Wiki Activity

Update Ocaml/vmcore.ml to emit a "Debug Info Version" module flag.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@196156 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Manman Ren 2013-12-02 21:25:56 +00:00
parent d4809bb0e3
commit 3d6225b7eb
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
test/Bindings/Ocaml/vmcore.ml
View File

@ -1031,8 +1031,8 @@ let test_builder () =
end; end;
group "metadata"; begin group "metadata"; begin
(* CHECK: %metadata = add i32 %P1, %P2, !test !0 (* CHECK: %metadata = add i32 %P1, %P2, !test !1
* !0 is metadata emitted at EOF. * !1 is metadata emitted at EOF.
*) *)
let i = build_add p1 p2 "metadata" atentry in let i = build_add p1 p2 "metadata" atentry in
insist ((has_metadata i) = false); insist ((has_metadata i) = false);
@ -1056,18 +1056,18 @@ let test_builder () =
end; end;
group "named metadata"; begin group "named metadata"; begin
(* !md is emitted at EOF. *) (* !llvm.module.flags is emitted at EOF. *)
let n1 = const_int i32_type 1 in let n1 = const_int i32_type 1 in
let n2 = mdstring context "metadata test" in let n2 = mdstring context "Debug Info Version" in
let md = mdnode context [| n1; n2 |] in let md = mdnode context [| n1; n2; n1 |] in
add_named_metadata_operand m "md" md; add_named_metadata_operand m "llvm.module.flags" md;
insist ((get_named_metadata m "md") = [| md |]) insist ((get_named_metadata m "llvm.module.flags") = [| md |])
end; end;
group "dbg"; begin group "dbg"; begin
(* CHECK: %dbg = add i32 %P1, %P2, !dbg !1 (* CHECK: %dbg = add i32 %P1, %P2, !dbg !2
* !1 is metadata emitted at EOF. * !2 is metadata emitted at EOF.
*) *)
insist ((current_debug_location atentry) = None); insist ((current_debug_location atentry) = None);
@ -1346,9 +1346,10 @@ let test_builder () =
(* End-of-file checks for things like metdata and attributes. (* End-of-file checks for things like metdata and attributes.
* CHECK: attributes #0 = {{.*}}uwtable{{.*}} * CHECK: attributes #0 = {{.*}}uwtable{{.*}}
* CHECK: !md = !{!0} * CHECK: !llvm.module.flags = !{!0}
* CHECK: !0 = metadata !{i32 1, metadata !"metadata test"} * CHECK: !0 = metadata !{i32 1, metadata !"Debug Info Version", i32 1}
* CHECK: !1 = metadata !{i32 2, i32 3, metadata !2, metadata !2} * CHECK: !1 = metadata !{i32 1, metadata !"metadata test"}
* CHECK: !2 = metadata !{i32 2, i32 3, metadata !3, metadata !3}
*) *)
(*===-- Pass Managers -----------------------------------------------------===*) (*===-- Pass Managers -----------------------------------------------------===*)