From 782d67c1a08ce54574b8fa725d94b8511b37fa67 Mon Sep 17 00:00:00 2001
From: Achim Gsell <achim.gsell@psi.ch>
Date: Thu, 21 Sep 2006 21:21:07 +0000
Subject: [PATCH] src/H5PartF.c 	- f_h5pt_openr() 		* type-cast
 result to get rid of the warning

---
 src/H5PartF.c | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/H5PartF.c b/src/H5PartF.c
index 7957740..08a2ede 100755
--- a/src/H5PartF.c
+++ b/src/H5PartF.c
@@ -78,23 +78,20 @@ In fortran, these pointers (handles) are carried as INTEGER*8
 #define f_h5pt_set_verbosity_level F77NAME(h5pt_set_verbosity_level_,h5pt_set_verbosity_level,H5PT_SET_VERBOSITY_LEVEL)
 
 /* open/close interface */
-haddr_t
+h5part_int64_t
 f_h5pt_openr (
 	char *file,
 	int flen
 	) { /* func returns INT8 */
 
-	haddr_t fh;
 	H5PartFile* f;
 	char *newname = (char*)malloc(flen+1); /* be safe? */
 	strncpy(newname,file,flen);
 	newname[flen]='\0';
-	f = (H5PartOpenFile(newname,H5PART_READ));
-	/*  printf("openr file=[%s] flen=%u haddr=%u\n",file,flen,f); */
-	fh = (haddr_t)f;
-	/* printf("FileHandle=%llu\n",fh); */
+	f = H5PartOpenFile ( newname, H5PART_READ );
+
+	return (h5part_int64_t)(size_t)f; 
 
-	return fh;
 }
 
 haddr_t