This is an archive of the discontinued LLVM Phabricator instance.

Differential D157812

[OCaml] Bind di_type_get_flags to correct C function
ClosedPublic

Authored by alan on Aug 13 2023, 7:22 AM.

Details

Reviewers
nikic
Commits
rG360ea6204d64: [OCaml] Bind di_type_get_flags to correct C function
Summary

Fixes https://github.com/llvm/llvm-project/issues/64254

Diff Detail

Event Timeline

alan created this revision.Aug 13 2023, 7:22 AM
Herald added a project: Restricted Project. · View Herald TranscriptAug 13 2023, 7:22 AM
alan requested review of this revision.Aug 13 2023, 7:22 AM
Herald added a project: Restricted Project. · View Herald TranscriptAug 13 2023, 7:22 AM
Herald added a subscriber: llvm-commits. · View Herald Transcript
alan added a reviewer: nikic.Aug 13 2023, 7:23 AM
Herald added a subscriber: StephenFan. · View Herald TranscriptAug 13 2023, 7:23 AM
nikic accepted this revision.Aug 13 2023, 7:25 AM

LG

This revision is now accepted and ready to land.Aug 13 2023, 7:25 AM
This revision was landed with ongoing or failed builds.Aug 13 2023, 7:27 AM
Closed by commit rG360ea6204d64: [OCaml] Bind di_type_get_flags to correct C function (authored by alan). · Explain Why
This revision was automatically updated to reflect the committed changes.
alan added a commit: rG360ea6204d64: [OCaml] Bind di_type_get_flags to correct C function.
Harbormaster completed remote builds in B252185: Diff 549702.Aug 13 2023, 8:16 AM

Revision Contents

PathSize
llvm/
bindings/
ocaml/
debuginfo/
2 lines

Diff 549703

llvm/bindings/ocaml/debuginfo/debuginfo_ocaml.c

Show First 20 Lines • Show All 831 Lines • ▼ Show 20 Lines
} }
value llvm_di_type_get_line(value DType) { value llvm_di_type_get_line(value DType) {
unsigned Line = LLVMDITypeGetLine(Metadata_val(DType)); unsigned Line = LLVMDITypeGetLine(Metadata_val(DType));
return Val_int(Line); return Val_int(Line);
} }
value llvm_di_type_get_flags(value DType) { value llvm_di_type_get_flags(value DType) {
LLVMDIFlags Flags = LLVMDITypeGetLine(Metadata_val(DType)); LLVMDIFlags Flags = LLVMDITypeGetFlags(Metadata_val(DType));
return alloc_diflags(Flags); return alloc_diflags(Flags);
} }
value llvm_get_subprogram(value Func) { value llvm_get_subprogram(value Func) {
return ptr_to_option(LLVMGetSubprogram(Value_val(Func))); return ptr_to_option(LLVMGetSubprogram(Value_val(Func)));
} }
value llvm_set_subprogram(value Func, value SP) { value llvm_set_subprogram(value Func, value SP) {
▲ Show 20 Lines • Show All 166 Lines • Show Last 20 Lines