Skip to content

Commit ad5961e

Browse files
Revert "[flang] Implement CFI_show()"
This reverts commit 7294e68.
1 parent 6733871 commit ad5961e

File tree

2 files changed

+0
-9
lines changed

2 files changed

+0
-9
lines changed

flang-rt/lib/runtime/ISO_Fortran_binding.cpp

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -297,14 +297,6 @@ RT_API_ATTRS int CFI_setpointer(CFI_cdesc_t *result, const CFI_cdesc_t *source,
297297
return CFI_SUCCESS;
298298
}
299299

300-
RT_API_ATTRS void CFI_show(void *buf, const CFI_cdesc_t *descr) {
301-
FILE *f{stderr};
302-
std::fprintf(f, "%p CFI_desc_t: %p\n", buf, descr);
303-
if (descr) {
304-
reinterpret_cast<const Fortran::runtime::Descriptor *>(descr)->Dump(f);
305-
}
306-
}
307-
308300
RT_EXT_API_GROUP_END
309301
} // extern "C"
310302
} // namespace Fortran::ISO

flang/include/flang/ISO_Fortran_binding.h

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -208,7 +208,6 @@ RT_API_ATTRS int CFI_select_part(CFI_cdesc_t *, const CFI_cdesc_t *source,
208208
size_t displacement, size_t elem_len);
209209
RT_API_ATTRS int CFI_setpointer(
210210
CFI_cdesc_t *, const CFI_cdesc_t *source, const CFI_index_t lower_bounds[]);
211-
RT_API_ATTRS void CFI_show(void *buf, const CFI_cdesc_t *descr);
212211
#ifdef __cplusplus
213212
} // extern "C"
214213
#endif

0 commit comments

Comments
 (0)