[svn-r27572] Removed VMS-specific code from the library.
The only remaining code consists of a few floating-point tests that rely on pre-generated and checked-in VMS files. These have been left alone, even though they will not be possible to recreate, since testing VMS float behavior is still important. Tested on: h5committest
This commit is contained in:
@@ -6090,28 +6090,6 @@ my_isnan(dtype_t type, void *val)
|
||||
}
|
||||
}
|
||||
|
||||
#ifdef H5_VMS
|
||||
/* For "float" and "double" on OpenVMS/Alpha, NaN is
|
||||
* actually a valid value of maximal value.*/
|
||||
if(!retval)
|
||||
{
|
||||
if (FLT_FLOAT==type)
|
||||
{
|
||||
float x;
|
||||
|
||||
HDmemcpy(&x, val, sizeof(float));
|
||||
retval = (x==FLT_MAX || x==-FLT_MAX);
|
||||
} else if (FLT_DOUBLE==type) {
|
||||
double x;
|
||||
|
||||
HDmemcpy(&x, val, sizeof(double));
|
||||
retval = (x==DBL_MAX || x==-DBL_MAX);
|
||||
} else
|
||||
{
|
||||
return FALSE;
|
||||
}
|
||||
}
|
||||
#endif /*H5_VMS*/
|
||||
h5difftrace("my_isnan finish\n");
|
||||
|
||||
return retval;
|
||||
|
||||
Reference in New Issue
Block a user