From 273a3b6d0ed6573618eecfc85ca679c9bf07c346 Mon Sep 17 00:00:00 2001 From: Leon Arber Date: Wed, 28 Feb 2007 19:56:50 -0500 Subject: [svn-r13437] Description: Added code to properly format the "H5FD_mpio_collective_opt_t" and "H5FD_mpio_chunk_opt_t" types for output during tracing. --- src/H5trace.c | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) diff --git a/src/H5trace.c b/src/H5trace.c index 267d05b..bc3f154 100644 --- a/src/H5trace.c +++ b/src/H5trace.c @@ -323,6 +323,29 @@ H5_trace (const double *returning, const char *func, const char *type, ...) } break; + case 'c': + if (ptr) { + if (vp) { + fprintf (out, "0x%lx", (unsigned long)vp); + } else { + fprintf(out, "NULL"); + } + } else { + H5FD_mpio_collective_opt_t opt= va_arg(ap, H5FD_mpio_collective_opt_t); /*lint !e64 Type mismatch not really occuring */ + switch (opt) { + case H5FD_MPIO_COLLECTIVE_IO: + fprintf (out, "H5FD_MPIO_COLLECTIVE_IO"); + break; + case H5FD_MPIO_INDIVIDUAL_IO: + fprintf (out, "H5FD_MPIO_INDIVIDUAL_IO"); + break; + default: + fprintf (out, "%ld", (long)opt); + break; + } + } + break; + case 'f': if (ptr) { if (vp) { @@ -375,6 +398,32 @@ H5_trace (const double *returning, const char *func, const char *type, ...) } break; + case 'h': + if (ptr) { + if (vp) { + fprintf (out, "0x%lx", (unsigned long)vp); + } else { + fprintf(out, "NULL"); + } + } else { + H5FD_mpio_chunk_opt_t opt = va_arg(ap, H5FD_mpio_chunk_opt_t); /*lint !e64 Type mismatch not really occuring */ + switch (opt) { + case H5FD_MPIO_CHUNK_DEFAULT: + fprintf (out, "H5FD_MPIO_CHUNK_DEFAULT"); + break; + case H5FD_MPIO_CHUNK_ONE_IO: + fprintf (out, "H5FD_MPIO_CHUNK_ONE_IO"); + break; + case H5FD_MPIO_CHUNK_MULTI_IO: + fprintf (out, "H5FD_MPIO_CHUNK_MULTI_IO"); + break; + default: + fprintf (out, "%ld", (long)opt); + break; + } + } + break; + case 'l': if (ptr) { if (vp) { -- cgit v0.12