git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

trans-intrinsic.c (gfc_build_builtin_function_decls): Change type of second argument to int. 

2014-05-11  Tobias Burnus  <burnus@net-b.de>

       * trans-intrinsic.c (gfc_build_builtin_function_decls):
       Change type of second argument to int.

2014-05-11  Tobias Burnus  <burnus@net-b.de>

       * caf/libcaf.h (_gfortran_caf_num_images): Change type of
       second argument to int.
       * caf/mpi.c (_gfortran_caf_num_images): Ditto.
       * caf/single.c (_gfortran_caf_num_images): Ditto.

From-SVN: r210311
This commit is contained in:
Tobias Burnus 2014-05-11 20:25:55 +02:00 committed by Tobias Burnus
parent 3af89f8bdf
commit a9fe68774e
6 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2014-05-11 Tobias Burnus <burnus@net-b.de>
* trans-intrinsic.c (gfc_build_builtin_function_decls):
Change type of second argument to int.
2014-05-09 Mike Stump <mikestump@comcast.net> 2014-05-09 Mike Stump <mikestump@comcast.net>
PR fortran/61109 PR fortran/61109

2
gcc/fortran/trans-decl.c
View File

@ -3264,7 +3264,7 @@ gfc_build_builtin_function_decls (void)
gfor_fndecl_caf_num_images = gfc_build_library_function_decl ( gfor_fndecl_caf_num_images = gfc_build_library_function_decl (
get_identifier (PREFIX("caf_num_images")), integer_type_node, get_identifier (PREFIX("caf_num_images")), integer_type_node,
2, integer_type_node, boolean_type_node); 2, integer_type_node, integer_type_node);
gfor_fndecl_caf_register = gfc_build_library_function_decl_with_spec ( gfor_fndecl_caf_register = gfc_build_library_function_decl_with_spec (
get_identifier (PREFIX("caf_register")), "...WWW", pvoid_type_node, 6, get_identifier (PREFIX("caf_register")), "...WWW", pvoid_type_node, 6,

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2014-05-11 Tobias Burnus <burnus@net-b.de>
* caf/libcaf.h (_gfortran_caf_num_images): Change type of
second argument to int.
* caf/mpi.c (_gfortran_caf_num_images): Ditto.
* caf/single.c (_gfortran_caf_num_images): Ditto.
2014-05-08 Tobias Burnus <burnus@net-b.de> 2014-05-08 Tobias Burnus <burnus@net-b.de>
* caf/libcaf.h (caf_vector_t, _gfortran_caf_co_sum, * caf/libcaf.h (caf_vector_t, _gfortran_caf_co_sum,

2
libgfortran/caf/libcaf.h
View File

@ -81,7 +81,7 @@ void _gfortran_caf_init (int *, char ***);
void _gfortran_caf_finalize (void); void _gfortran_caf_finalize (void);
int _gfortran_caf_this_image (int); int _gfortran_caf_this_image (int);
int _gfortran_caf_num_images (int, bool); int _gfortran_caf_num_images (int, int);
void *_gfortran_caf_register (size_t, caf_register_t, caf_token_t *, int *, void *_gfortran_caf_register (size_t, caf_register_t, caf_token_t *, int *,
char *, int); char *, int);

2
libgfortran/caf/mpi.c
View File

@ -123,7 +123,7 @@ _gfortran_caf_this_image (int distance __attribute__ ((unused)))
int int
_gfortran_caf_num_images (int distance __attribute__ ((unused)), _gfortran_caf_num_images (int distance __attribute__ ((unused)),
bool failed __attribute__ ((unused))) int failed __attribute__ ((unused)))
{ {
return caf_num_images; return caf_num_images;
} }

2
libgfortran/caf/single.c
View File

@ -87,7 +87,7 @@ _gfortran_caf_this_image (int distance __attribute__ ((unused)))
int int
_gfortran_caf_num_images (int distance __attribute__ ((unused)), _gfortran_caf_num_images (int distance __attribute__ ((unused)),
bool failed __attribute__ ((unused))) int failed __attribute__ ((unused)))
{ {
return 1; return 1;
} }