summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/H5F.c2
-rw-r--r--src/H5private.h7
2 files changed, 5 insertions, 4 deletions
diff --git a/src/H5F.c b/src/H5F.c
index 508047b..8df9104 100644
--- a/src/H5F.c
+++ b/src/H5F.c
@@ -994,6 +994,7 @@ H5F_open(const char *name, uintn flags, hid_t fcpl_id, hid_t fapl_id)
* exists), or if the new request adds write access (since the
* readers don't expect the file to change under them).
*/
+ H5FD_close(lf);
if (flags & H5F_ACC_TRUNC) {
file = NULL; /*to prevent destruction of wrong file*/
HGOTO_ERROR(H5E_FILE, H5E_CANTOPENFILE, NULL,
@@ -1009,7 +1010,6 @@ H5F_open(const char *name, uintn flags, hid_t fcpl_id, hid_t fapl_id)
HGOTO_ERROR(H5E_FILE, H5E_CANTOPENFILE, NULL,
"file is already open for read-only");
}
- H5FD_close(lf);
file = H5F_new(file->shared, fcpl_id, fapl_id);
lf = file->shared->lf;
} else if (flags!=tent_flags) {
diff --git a/src/H5private.h b/src/H5private.h
index c2eecd4..d5985cb 100644
--- a/src/H5private.h
+++ b/src/H5private.h
@@ -379,10 +379,11 @@ typedef double float32;
# error "nothing appropriate for float32"
#endif
-#if SIZEOF_FLOAT>=8
-typedef float float64;
-#elif SIZEOF_DOUBLE>=8
+/* Bias float64 toward using double - QAK */
+#if SIZEOF_DOUBLE>=8
typedef double float64;
+#elif SIZEOF_FLOAT>=8
+typedef float float64;
#else
# error "nothing appropriate for float64"
#endif