[svn-r26417] Removed compiler warnings from HL. HDF5-237

Tested: h5committest

1 files changed, 59 insertions, 59 deletions

diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index 0efc9a8..bf058fd 100644
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -37,10 +37,10 @@
 *-------------------------------------------------------------------------
 */
 int_f
-nh5tbmake_table_c(int_f *namelen1,
+nh5tbmake_table_c(size_t_f *namelen1,
                   _fcd name1,
                   hid_t_f *loc_id,
-                  int_f *namelen,
+                  size_t_f *namelen,
                   _fcd name,
                   hsize_t_f *nfields,
                   hsize_t_f *nrecords,
@@ -49,8 +49,8 @@ nh5tbmake_table_c(int_f *namelen1,
                   hid_t_f *field_types,
                   hsize_t_f *chunk_size,
                   int_f *compress,
-                  int_f *char_len_field_names, /* field_names lenghts */
-		  int_f *max_char_size_field_names, /* char len of fields */
+                  size_t_f *char_len_field_names, /* field_names lenghts */
+                  size_t_f *max_char_size_field_names, /* char len of fields */
                   char *field_names)            /* field_names */
 {
     char *c_name = NULL;
@@ -64,7 +64,7 @@ nh5tbmake_table_c(int_f *namelen1,
     char *tmp = NULL, *tmp_p;
     int_f ret_value = 0;
 
-    num_elem = *nfields;
+    num_elem = (hsize_t)*nfields;
 
     /*
      * convert FORTRAN name to C name
@@ -79,7 +79,7 @@ nh5tbmake_table_c(int_f *namelen1,
         HGOTO_DONE(FAIL)
 
     for(i = 0; i < num_elem; i++) {
-        c_field_offset[i] = field_offset[i];
+      c_field_offset[i] = (size_t)field_offset[i];
         c_field_types[i] = field_types[i];
     } /* end for */
 
@@ -100,7 +100,7 @@ nh5tbmake_table_c(int_f *namelen1,
         if(NULL == (c_field_names[i] = (char *)HDmalloc((size_t)char_len_field_names[i] + 1)))
             HGOTO_DONE(FAIL)
         HDmemcpy(c_field_names[i], tmp_p, (size_t)char_len_field_names[i]);
-	c_field_names[i][char_len_field_names[i]] = '\0';
+        c_field_names[i][char_len_field_names[i]] = '\0';
 
         tmp_p = tmp_p + *max_char_size_field_names;
     } /* end for */
@@ -123,7 +123,7 @@ done:
             if(c_field_names[i])
                 HDfree(c_field_names[i]);
         } /* end for */
-	HDfree(c_field_names);
+        HDfree(c_field_names);
     } /* end if */
     if(tmp)
         HDfree(tmp);
@@ -152,9 +152,9 @@ done:
 */
 int_f
 nh5tbwrite_field_name_c(hid_t_f *loc_id,
-                        int_f *namelen,
+                        size_t_f *namelen,
                         _fcd name,
-                        int_f *namelen1,
+                        size_t_f *namelen1,
                         _fcd field_name,
                         hsize_t_f *start,
                         hsize_t_f *nrecords,
@@ -192,9 +192,9 @@ done:
 
 int_f
 nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
-                            int_f *namelen,
+                            size_t_f *namelen,
                             _fcd name,
-                            int_f *namelen1,
+                            size_t_f *namelen1,
                             _fcd field_name,
                             hsize_t_f *start,
                             hsize_t_f *nrecords,
@@ -207,9 +207,9 @@ nh5tbwrite_field_name_int_c(hid_t_f *loc_id,
 
 int_f
 nh5tbwrite_field_name_fl_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
-                           int_f *namelen1,
+                           size_t_f *namelen1,
                            _fcd field_name,
                            hsize_t_f *start,
                            hsize_t_f *nrecords,
@@ -222,9 +222,9 @@ nh5tbwrite_field_name_fl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbwrite_field_name_dl_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
-                           int_f *namelen1,
+                           size_t_f *namelen1,
                            _fcd field_name,
                            hsize_t_f *start,
                            hsize_t_f *nrecords,
@@ -237,9 +237,9 @@ nh5tbwrite_field_name_dl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
-                           int_f *namelen1,
+                           size_t_f *namelen1,
                            _fcd field_name,
                            hsize_t_f *start,
                            hsize_t_f *nrecords,
@@ -267,9 +267,9 @@ nh5tbwrite_field_name_st_c(hid_t_f *loc_id,
 */
 int_f
 nh5tbread_field_name_c(hid_t_f *loc_id,
-                       int_f *namelen,
+                       size_t_f *namelen,
                        _fcd name,
-                       int_f *namelen1,
+                       size_t_f *namelen1,
                        _fcd field_name,
                        hsize_t_f *start,
                        hsize_t_f *nrecords,
@@ -307,9 +307,9 @@ done:
 
 int_f
 nh5tbread_field_name_int_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
-                           int_f *namelen1,
+                           size_t_f *namelen1,
                            _fcd field_name,
                            hsize_t_f *start,
                            hsize_t_f *nrecords,
@@ -322,9 +322,9 @@ nh5tbread_field_name_int_c(hid_t_f *loc_id,
 
 int_f
 nh5tbread_field_name_fl_c(hid_t_f *loc_id,
-                          int_f *namelen,
+                          size_t_f *namelen,
                           _fcd name,
-                          int_f *namelen1,
+                          size_t_f *namelen1,
                           _fcd field_name,
                           hsize_t_f *start,
                           hsize_t_f *nrecords,
@@ -337,9 +337,9 @@ nh5tbread_field_name_fl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbread_field_name_dl_c(hid_t_f *loc_id,
-                          int_f *namelen,
+                          size_t_f *namelen,
                           _fcd name,
-                          int_f *namelen1,
+                          size_t_f *namelen1,
                           _fcd field_name,
                           hsize_t_f *start,
                           hsize_t_f *nrecords,
@@ -352,9 +352,9 @@ nh5tbread_field_name_dl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbread_field_name_st_c(hid_t_f *loc_id,
-                          int_f *namelen,
+                          size_t_f *namelen,
                           _fcd name,
-                          int_f *namelen1,
+                          size_t_f *namelen1,
                           _fcd field_name,
                           hsize_t_f *start,
                           hsize_t_f *nrecords,
@@ -382,7 +382,7 @@ nh5tbread_field_name_st_c(hid_t_f *loc_id,
 */
 int_f
 nh5tbwrite_field_index_c(hid_t_f *loc_id,
-                         int_f *namelen,
+                         size_t_f *namelen,
                          _fcd name,
                          int_f *field_index,
                          hsize_t_f *start,
@@ -418,7 +418,7 @@ done:
 
 int_f
 nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
-                             int_f *namelen,
+                             size_t_f *namelen,
                              _fcd name,
                              int_f *field_index,
                              hsize_t_f *start,
@@ -432,7 +432,7 @@ nh5tbwrite_field_index_int_c(hid_t_f *loc_id,
 
 int_f
 nh5tbwrite_field_index_fl_c(hid_t_f *loc_id,
-                            int_f *namelen,
+                            size_t_f *namelen,
                             _fcd name,
                             int_f *field_index,
                             hsize_t_f *start,
@@ -446,7 +446,7 @@ nh5tbwrite_field_index_fl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbwrite_field_index_dl_c(hid_t_f *loc_id,
-                            int_f *namelen,
+                            size_t_f *namelen,
                             _fcd name,
                             int_f *field_index,
                             hsize_t_f *start,
@@ -460,7 +460,7 @@ nh5tbwrite_field_index_dl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
-                            int_f *namelen,
+                            size_t_f *namelen,
                             _fcd name,
                             int_f *field_index,
                             hsize_t_f *start,
@@ -489,7 +489,7 @@ nh5tbwrite_field_index_st_c(hid_t_f *loc_id,
 */
 int_f
 nh5tbread_field_index_c(hid_t_f *loc_id,
-                        int_f *namelen,
+                        size_t_f *namelen,
                         _fcd name,
                         int_f *field_index,
                         hsize_t_f *start,
@@ -524,7 +524,7 @@ done:
 
 int_f
 nh5tbread_field_index_int_c(hid_t_f *loc_id,
-                            int_f *namelen,
+                            size_t_f *namelen,
                             _fcd name,
                             int_f *field_index,
                             hsize_t_f *start,
@@ -538,7 +538,7 @@ nh5tbread_field_index_int_c(hid_t_f *loc_id,
 
 int_f
 nh5tbread_field_index_fl_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
                            int_f *field_index,
                            hsize_t_f *start,
@@ -552,7 +552,7 @@ nh5tbread_field_index_fl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbread_field_index_dl_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
                            int_f *field_index,
                            hsize_t_f *start,
@@ -566,7 +566,7 @@ nh5tbread_field_index_dl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbread_field_index_st_c(hid_t_f *loc_id,
-                           int_f *namelen,
+                           size_t_f *namelen,
                            _fcd name,
                            int_f *field_index,
                            hsize_t_f *start,
@@ -595,9 +595,9 @@ nh5tbread_field_index_st_c(hid_t_f *loc_id,
 */
 int_f
 nh5tbinsert_field_c(hid_t_f *loc_id,
-                    int_f *namelen,
+                    size_t_f *namelen,
                     _fcd name,
-                    int_f *namelen1,
+                    size_t_f *namelen1,
                     _fcd field_name,
                     hid_t_f *field_type,
                     int_f *position,
@@ -633,9 +633,9 @@ done:
 
 int_f
 nh5tbinsert_field_int_c(hid_t_f *loc_id,
-                        int_f *namelen,
+                        size_t_f *namelen,
                         _fcd name,
-                        int_f *namelen1,
+                        size_t_f *namelen1,
                         _fcd field_name,
                         hid_t_f *field_type,
                         int_f *position,
@@ -647,9 +647,9 @@ nh5tbinsert_field_int_c(hid_t_f *loc_id,
 
 int_f
 nh5tbinsert_field_fl_c(hid_t_f *loc_id,
-                       int_f *namelen,
+                       size_t_f *namelen,
                        _fcd name,
-                       int_f *namelen1,
+                       size_t_f *namelen1,
                        _fcd field_name,
                        hid_t_f *field_type,
                        int_f *position,
@@ -661,9 +661,9 @@ nh5tbinsert_field_fl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbinsert_field_dl_c(hid_t_f *loc_id,
-                       int_f *namelen,
+                       size_t_f *namelen,
                        _fcd name,
-                       int_f *namelen1,
+                       size_t_f *namelen1,
                        _fcd field_name,
                        hid_t_f *field_type,
                        int_f *position,
@@ -675,9 +675,9 @@ nh5tbinsert_field_dl_c(hid_t_f *loc_id,
 
 int_f
 nh5tbinsert_field_st_c(hid_t_f *loc_id,
-                       int_f *namelen,
+                       size_t_f *namelen,
                        _fcd name,
-                       int_f *namelen1,
+                       size_t_f *namelen1,
                        _fcd field_name,
                        hid_t_f *field_type,
                        int_f *position,
@@ -704,9 +704,9 @@ nh5tbinsert_field_st_c(hid_t_f *loc_id,
 */
 int_f
 nh5tbdelete_field_c(hid_t_f *loc_id,
-                    int_f *namelen,
+                    size_t_f *namelen,
                     _fcd name,
-                    int_f *namelen1,
+                    size_t_f *namelen1,
                     _fcd field_name)
 {
     char   *c_name = NULL;
@@ -753,7 +753,7 @@ done:
 */
 int_f
 nh5tbget_table_info_c(hid_t_f *loc_id,
-                      int_f *namelen,
+                      size_t_f *namelen,
                       _fcd name,
                       hsize_t_f *nfields,
                       hsize_t_f *nrecords)
@@ -803,16 +803,16 @@ done:
 */
 int_f
 nh5tbget_field_info_c(hid_t_f *loc_id,
-                      int_f *namelen,
+                      size_t_f *namelen,
                       _fcd name,
                       hsize_t_f *nfields,
                       size_t_f *field_sizes,
                       size_t_f *field_offsets,
                       size_t_f *type_size,
-                      int_f *namelen2,       /* field_names lenghts */
-		      int_f *lenmax,         /* character len max */
+                      size_t_f *namelen2,       /* field_names lenghts */
+                      size_t_f *lenmax,         /* character len max */
                       _fcd field_names,      /* field_names */
-                      int_f *maxlen_out)
+                      size_t_f *maxlen_out)
 
 {
     char   *c_name = NULL;
@@ -867,9 +867,9 @@ nh5tbget_field_info_c(hid_t_f *loc_id,
          size_t field_name_len = HDstrlen(c_field_names[i]);
 
          HDmemcpy(tmp_p, c_field_names[i], field_name_len);
-	 namelen2[i] = (int_f)field_name_len;
-	 length = MAX(length, strlen((c_field_names[i])));
-	 tmp_p = tmp_p + c_lenmax;
+         namelen2[i] = (size_t_f)field_name_len;
+         length = MAX(length, strlen((c_field_names[i])));
+         tmp_p = tmp_p + c_lenmax;
     } /* end for */
 
     HD5packFstring(tmp, _fcdtocp(field_names), (size_t)( c_lenmax* c_nfields));
@@ -880,7 +880,7 @@ nh5tbget_field_info_c(hid_t_f *loc_id,
         field_offsets[i] = (size_t_f)c_field_offsets[i];
     } /* end for */
 
-    *maxlen_out = (int_f)length; 
+    *maxlen_out = (size_t_f)length; 
 
 done:
     if(c_name)