From 611b2c7233d1714294e9a7d2cf4a92705d89c70a Mon Sep 17 00:00:00 2001 From: Arnaud Giersch Date: Fri, 19 Oct 2012 23:20:25 +0200 Subject: [PATCH] Exclude smpi_process_argc and smpi_glogal_size when !SMPI_F2C. This completes commit 4fb1f678c8da43cdf1bfcc6108883ef2a4cea952, and fixes compilation errors in paranoid mode. --- src/smpi/smpi_global.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/smpi/smpi_global.c b/src/smpi/smpi_global.c index 95d44578c6..c6f99f9b9f 100644 --- a/src/smpi/smpi_global.c +++ b/src/smpi/smpi_global.c @@ -89,13 +89,13 @@ void smpi_process_finalize(void) } } +#ifdef SMPI_F2C int smpi_process_argc(void) { smpi_process_data_t data = smpi_process_data(); return data->argc ? *(data->argc) - 1 : 0; } -#ifdef SMPI_F2C int smpi_process_getarg(integer* index, char* dst, ftnlen len) { smpi_process_data_t data = smpi_process_data(); char* arg; @@ -114,7 +114,6 @@ int smpi_process_getarg(integer* index, char* dst, ftnlen len) { } return 0; } -#endif int smpi_global_size(void) { char* value = getenv("SMPI_GLOBAL_SIZE"); @@ -125,6 +124,7 @@ int smpi_global_size(void) { } return atoi(value); } +#endif smpi_process_data_t smpi_process_data(void) { -- 2.20.1