From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Fri, 19 Oct 2012 21:20:25 +0000 (+0200)
Subject: Exclude smpi_process_argc and smpi_glogal_size when !SMPI_F2C.
X-Git-Tag: v3_8~24^2~8
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/611b2c7233d1714294e9a7d2cf4a92705d89c70a?ds=sidebyside

Exclude smpi_process_argc and smpi_glogal_size when !SMPI_F2C.

This completes commit 4fb1f678c8da43cdf1bfcc6108883ef2a4cea952,
and fixes compilation errors in paranoid mode.
---

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)
 {