|
9 | 9 | #include "flang-rt/runtime/descriptor.h" |
10 | 10 | #include "flang/Common/ISO_Fortran_binding_wrapper.h" |
11 | 11 | #include "flang/Testing/testing.h" |
12 | | -#include "llvm/Support/raw_ostream.h" |
13 | 12 | #include <type_traits> |
14 | 13 |
|
15 | 14 | using namespace Fortran::runtime; |
@@ -73,26 +72,9 @@ static void AddNoiseToCdesc(CFI_cdesc_t *dv, CFI_rank_t rank) { |
73 | 72 | } |
74 | 73 | } |
75 | 74 |
|
76 | | -#ifdef VERBOSE |
77 | | -static void DumpTestWorld(const void *bAddr, CFI_attribute_t attr, |
78 | | - CFI_type_t ty, std::size_t eLen, CFI_rank_t rank, |
79 | | - const CFI_index_t *eAddr) { |
80 | | - llvm::outs() << " base_addr: "; |
81 | | - llvm::outs().write_hex(reinterpret_cast<std::intptr_t>(bAddr)) |
82 | | - << " attribute: " << static_cast<int>(attr) |
83 | | - << " type: " << static_cast<int>(ty) << " elem_len: " << eLen |
84 | | - << " rank: " << static_cast<int>(rank) << " extent: "; |
85 | | - llvm::outs().write_hex(reinterpret_cast<std::intptr_t>(eAddr)) << '\n'; |
86 | | - llvm::outs().flush(); |
87 | | -} |
88 | | -#endif |
89 | | - |
90 | 75 | static void check_CFI_establish(CFI_cdesc_t *dv, void *base_addr, |
91 | 76 | CFI_attribute_t attribute, CFI_type_t type, std::size_t elem_len, |
92 | 77 | CFI_rank_t rank, const CFI_index_t extents[]) { |
93 | | -#ifdef VERBOSE |
94 | | - DumpTestWorld(base_addr, attribute, type, elem_len, rank, extent); |
95 | | -#endif |
96 | 78 | // CFI_establish reqs from F2018 section 18.5.5 |
97 | 79 | int retCode{ |
98 | 80 | CFI_establish(dv, base_addr, attribute, type, elem_len, rank, extents)}; |
@@ -305,9 +287,6 @@ static void check_CFI_allocate(CFI_cdesc_t *dv, |
305 | 287 | const CFI_type_t type{dv->type}; |
306 | 288 | const void *base_addr{dv->base_addr}; |
307 | 289 | const int version{dv->version}; |
308 | | -#ifdef VERBOSE |
309 | | - DumpTestWorld(base_addr, attribute, type, elem_len, rank, nullptr); |
310 | | -#endif |
311 | 290 | int retCode{CFI_allocate(dv, lower_bounds, upper_bounds, elem_len)}; |
312 | 291 | Descriptor *desc = reinterpret_cast<Descriptor *>(dv); |
313 | 292 | if (retCode == CFI_SUCCESS) { |
|
0 commit comments