From 75a9686b5161d218461656ca3e5a5aaf70f60bd0 Mon Sep 17 00:00:00 2001 From: Patrick Lu Date: Tue, 10 Nov 1998 13:15:37 -0500 Subject: [svn-r895] added some extra casts because windows was having trouble converting to a double from an unsigned int 64 --- test/chunk.c | 7 ++++++- test/iopipe.c | 9 ++++++++- test/ragged.c | 50 +++++++++++++++++++++++++++++++++++++++++++------- 3 files changed, 57 insertions(+), 9 deletions(-) diff --git a/test/chunk.c b/test/chunk.c index 55f3f0f..c2533e7 100644 --- a/test/chunk.c +++ b/test/chunk.c @@ -285,7 +285,12 @@ test_diag (int op, hsize_t cache_size, hsize_t io_size, hsize_t offset) H5Dclose (dset); H5Fclose (file); - return (double)nio/(double)nio_g; + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + return (double)((hssize_t)(nio/nio_g)); } diff --git a/test/iopipe.c b/test/iopipe.c index 6cdbd2b..f7e3349 100644 --- a/test/iopipe.c +++ b/test/iopipe.c @@ -184,8 +184,15 @@ main (void) hssize_t start[2]; hsize_t count[2]; + + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ printf ("I/O request size is %1.1fMB\n", - ((double)(size[0])*(double)(size[1]))/(1024.0*1024)); + ((double)((hssize_t)(size[0]*size[1])))/(1024.0*1024)); + // ((double)(size[0])*(double)(size[1]))/(1024.0*1024)); /* Open the files */ diff --git a/test/ragged.c b/test/ragged.c index fa1f8b0..9926a0a 100644 --- a/test/ragged.c +++ b/test/ragged.c @@ -247,7 +247,12 @@ ragged_write_all(hid_t ra, hsize_t rows_at_once) if (0==row || alarm_g || 0==timeout_g) { alarm_g = 0; H5_timer_end(&timer_total, &timer); - H5_bandwidth(s, (double)interval_nelmts*sizeof(C_MTYPE), + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)interval_nelmts)*sizeof(C_MTYPE), timer.etime); printf(" %8lu %8lu %7.3f%% %10s%s\n", (unsigned long)(row+i), (unsigned long)total_nelmts, @@ -261,7 +266,13 @@ ragged_write_all(hid_t ra, hsize_t rows_at_once) /* Conclusions */ if (timeout_g) { /*a minor race condition, but who really cares?*/ H5_timer_end(&timer_total, &timer); - H5_bandwidth(s, (double)interval_nelmts*sizeof(C_MTYPE), timer.etime); + + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)interval_nelmts)*sizeof(C_MTYPE), timer.etime); printf(" %8lu %8lu %7.3f%% %10s\n", (unsigned long)row, (unsigned long)total_nelmts, 100.0*total_nelmts/MAX_NELMTS, s); @@ -369,7 +380,12 @@ ragged_read_all(hid_t ra, hsize_t rows_at_once) if (0==row || alarm_g || 0==timeout_g) { alarm_g = 0; H5_timer_end(&timer_total, &timer); - H5_bandwidth(s, (double)interval_nelmts*sizeof(C_MTYPE), + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)interval_nelmts)*sizeof(C_MTYPE), timer.etime); printf(" %8lu %8lu %7.3f%% %10s%s\n", (unsigned long)(row+i), (unsigned long)total_nelmts, @@ -391,7 +407,12 @@ ragged_read_all(hid_t ra, hsize_t rows_at_once) /* Conclusions */ if (timeout_g) { /*a minor race condition, but who really cares?*/ H5_timer_end(&timer_total, &timer); - H5_bandwidth(s, (double)interval_nelmts*sizeof(C_MTYPE), timer.etime); + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)interval_nelmts)*sizeof(C_MTYPE), timer.etime); printf(" %8lu %8lu %7.3f%% %10s\n", (unsigned long)row, (unsigned long)total_nelmts, 100.0*total_nelmts/MAX_NELMTS, s); @@ -521,7 +542,12 @@ ragged_read_short(hid_t ra, hsize_t rows_at_once, hsize_t width) if (0==row || alarm_g || 0==timeout_g) { alarm_g = 0; H5_timer_end(&timer_total, &timer); - H5_bandwidth(s, (double)interval_nelmts*sizeof(C_MTYPE), + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)interval_nelmts)*sizeof(C_MTYPE), timer.etime); printf(" %8lu %8lu %7.3f%% %10s%s\n", (unsigned long)(row+i), (unsigned long)read_nelmts, @@ -543,13 +569,23 @@ ragged_read_short(hid_t ra, hsize_t rows_at_once, hsize_t width) /* Conclusions */ if (timeout_g) { /*a minor race condition, but who really cares?*/ H5_timer_end(&timer_total, &timer); - H5_bandwidth(s, (double)interval_nelmts*sizeof(C_MTYPE), timer.etime); + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)interval_nelmts)*sizeof(C_MTYPE), timer.etime); printf(" %8lu %8lu %7.3f%% %10s\n", (unsigned long)row, (unsigned long)read_nelmts, 100.0*total_nelmts/MAX_NELMTS, s); } printf(" -------- -------- -------- ----------\n"); - H5_bandwidth(s, (double)read_nelmts*sizeof(C_MTYPE), timer_total.etime); + /* + * The extra cast in the following statement is a bug + * workaround for the Win32 version 0.0 compiler. + * 1998-11-06 ptl + */ + H5_bandwidth(s, (double)((hssize_t)read_nelmts)*sizeof(C_MTYPE), timer_total.etime); printf(" %27s%10s\n", "", s); /* Cleanup */ -- cgit v0.12