[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2b2-45-g65945a4
Service Account
noreply at mpich.org
Tue May 26 12:53:18 CDT 2015
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "MPICH primary repository".
The branch, master has been updated
via 65945a437838d8716da01ea12a9c58e664ee8bf8 (commit)
from fd32dce74ddaa62ae537dc7a88e43a02a9db11a0 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
http://git.mpich.org/mpich.git/commitdiff/65945a437838d8716da01ea12a9c58e664ee8bf8
commit 65945a437838d8716da01ea12a9c58e664ee8bf8
Author: Junchao Zhang <jczhang at mcs.anl.gov>
Date: Tue May 26 09:24:39 2015 -0500
Code cleanup to remove USE_POINTER_FOR_BOTTOM
The configure test was dropped long time ago in MPICH, and to keep ABI compatible,
we don't want to restore it.
Refs #1877
Signed-off-by: Ken Raffenetti <raffenet at mcs.anl.gov>
diff --git a/src/binding/fortran/mpif_h/mpi_fortimpl.h b/src/binding/fortran/mpif_h/mpi_fortimpl.h
index a28f84c..799c9f7 100644
--- a/src/binding/fortran/mpif_h/mpi_fortimpl.h
+++ b/src/binding/fortran/mpif_h/mpi_fortimpl.h
@@ -160,11 +160,6 @@ typedef MPI_Aint MPI_FAint;
#include "mpi_fortlogical.h"
-/* If Cray-style pointers are supported, we don't need to check for a
- "special" address. */
-#ifdef USE_POINTER_FOR_BOTTOM
-#define MPIR_F_PTR(a) (a)
-#else
/* MPIR_F_MPI_BOTTOM is the address of the Fortran MPI_BOTTOM value */
extern FORT_DLL_SPEC int MPIR_F_NeedInit;
extern FORT_DLL_SPEC void *MPIR_F_MPI_BOTTOM;
@@ -200,8 +195,6 @@ extern FORT_DLL_SPEC void *MPI_F_ARGVS_NULL;
/* Provide a prototype for the mpirinitf function */
extern void mpirinitf_( void );
-#endif
-
/*
* These are hooks for Fortran characters.
* MPID_FCHAR_T is the type of a Fortran character argument
diff --git a/src/binding/fortran/mpif_h/setbot.c.in b/src/binding/fortran/mpif_h/setbot.c.in
index da4a91c..faf193c 100644
--- a/src/binding/fortran/mpif_h/setbot.c.in
+++ b/src/binding/fortran/mpif_h/setbot.c.in
@@ -51,7 +51,6 @@ const MPI_Fint MPIR_F_FALSE=F77_FALSE_VALUE;
# MPI-2, section 4.12.5, on the declaration of MPI_F_STATUS_IGNORE
# MPI_F_STATUSES_IGNORE as global variables in mpi.h (!)
*/
-#ifndef USE_POINTER_FOR_BOTTOM
int MPIR_F_NeedInit = 1;
void *MPIR_F_MPI_BOTTOM = 0;
void *MPIR_F_MPI_IN_PLACE = 0;
@@ -65,7 +64,6 @@ void *MPI_F_STATUSES_IGNORE = 0;
MPI_Fint *MPI_F_ERRCODES_IGNORE = 0;
void *MPI_F_ARGVS_NULL = 0;
void *MPIR_F_MPI_WEIGHTS_EMPTY = 0;
-#endif
FORT_DLL_SPEC void FORT_CALL mpirinitc_( void *si, void *ssi,
void *bt, void *ip,
-----------------------------------------------------------------------
Summary of changes:
src/binding/fortran/mpif_h/mpi_fortimpl.h | 7 -------
src/binding/fortran/mpif_h/setbot.c.in | 2 --
2 files changed, 0 insertions(+), 9 deletions(-)
hooks/post-receive
--
MPICH primary repository
More information about the commits
mailing list