Commit 65945a43 authored by Junchao Zhang's avatar Junchao Zhang Committed by Kenneth Raffenetti
Browse files

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: Kenneth Raffenetti's avatarKen Raffenetti <raffenet@mcs.anl.gov>
parent fd32dce7
......@@ -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
......
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment