[svn-r10628] Purpose:

    Code cleanup

Description:
    Clean up various warnings reported by the Windows team.

Platforms tested:
    FreeBSD 4.11 (sleipnir)
    Too minor to require h5committest

1 files changed, 1 insertions, 1 deletions

diff --git a/src/H5SL.c b/src/H5SL.c
index 3748644..582bd1a 100644
--- a/src/H5SL.c
+++ b/src/H5SL.c
@@ -573,7 +573,7 @@ H5SL_create(H5SL_type_t type, double p, size_t max_level)
     /* Set the static internal fields */
     new_slist->type=type;
     new_slist->p=p;
-    new_slist->p1=p*RAND_MAX;
+    new_slist->p1=(int)(p*RAND_MAX);
     new_slist->max_level=max_level;
 
     /* Set the dynamic internal fields */