Remove warnings + cleanup of the code and comments 87/12487/3
Sylvestre Ledru [Wed, 11 Sep 2013 10:35:55 +0000 (12:35 +0200)]
Change-Id: Id217c48ebd7ce37cc3859ce3fb398617b23cce94

scilab/modules/mpi/sci_gateway/c/sci_mpi_bcast.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_comm_rank.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_comm_size.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_finalize.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_get_processor_name.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_init.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_isend.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_send.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_wait.c
scilab/modules/mpi/src/c/deserialization.c

index 87f4cca..4f35ea6 100644 (file)
@@ -26,13 +26,12 @@ int sci_mpi_bcast(char *fname, unsigned long fname_len)
     int iRet = 0;
     int *piAddr = NULL;
     int *piAddr2 = NULL;
-    int iType = 0;
 
     int *piBuffer = NULL;
     int iBufferSize = 0;
     double rootID = 0;
     int rank = 0;
-    
+
     CheckInputArgument(pvApiCtx, 2, 2);
     CheckOutputArgument(pvApiCtx, 1, 1);
 
index aaaf944..56c8b65 100644 (file)
 #include "api_scilab.h"
 
 /**
- * SCILAB function : mpi_comm_rank, fin = 7
  * This function returns the rank of a process within
  * the specified communicator.
  */
-
 int sci_mpi_comm_rank (char *fname, unsigned long fname_len)
 {
     int comm_rank = 0;
index e1d0e85..eea4cba 100644 (file)
@@ -19,7 +19,6 @@
 #include "MALLOC.h"
 
 /**
- * SCILAB function : mpi_comm_size, fin = 3
  * This function returns the rank of a process
  */
 int sci_mpi_comm_size(char *fname, unsigned long fname_len)
index 0200970..7380b2d 100644 (file)
 #include "api_scilab.h"
 #include "MALLOC.h"
 
-/******************************************
- * SCILAB function : mpi_finalize, fin = 2
- ******************************************/
-
 static void mpi_finalize_internal()
 {
     FREE(listRequestPointer);
index 789aa2e..7f0d21e 100644 (file)
 #include "localization.h"
 
 /**
- * SCILAB function : mpi_get_processor_name, fin = 3
  * This function returns the rank of a process
  */
 int sci_mpi_get_processor_name(char *fname, unsigned long fname_len)
 {
-    MPI_Comm comm = 0;
-    int *piAddr = NULL;
-    int iRows = 1;
-    int iCols = 1;
-    int iRows2 = 1;
-    int iCols2 = 1;
     int iSizeProcessorName;
     char processorName[MPI_MAX_PROCESSOR_NAME];
     int iRet = 0;
index 35e3c13..07a2f3c 100644 (file)
@@ -9,16 +9,16 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include <stdio.h>
-#include "api_scilab.h"
-#include "stack-c.h"
-#include "gw_mpi.h"
-#include "sci_mpi.h"
+#include <stdio.h>                      // for NULL, fprintf, stderr
 #include "MALLOC.h"
+#include "BOOL.h"                       // for ::TRUE, ::FALSE, BOOL
+#include "api_scilab.h"                 // for pvApiCtx, etc
+#include "mpi.h"                        // for MPI_Request, etc
+#include "sci_mpi.h"                    // for REQUEST_MAXSIZE, etc
+
 
 /**
- * SCILAB function : mpi_init, fin = 1
- * This function init the mpi env
+ * This function init the MPI env
  */
 MPI_Errhandler errhdl;
 
@@ -30,7 +30,7 @@ void MPIErrHandler(MPI_Comm * comm, int *errorcode, ...)
 
     MPI_Error_string(*errorcode, buffer, &resultlen);
     buffer[resultlen] = 0;
-    printf("Erreur mpi : %s\n", buffer);
+    fprintf(stderr, "MPI internal error: %s\n", buffer);
 }
 
 BOOL mpi_initialized = FALSE;
index 948ef5c..94a38bd 100644 (file)
@@ -29,7 +29,6 @@ int sci_mpi_isend(char *fname, unsigned long fname_len)
     int *piAddr = NULL;
     int *piAddr2 = NULL;
     int *piAddr3 = NULL;
-    int iType = 0;
 
     int *piBuffer = NULL;
     int iBufferSize = 0;
index 4b7a117..7ab21df 100644 (file)
@@ -26,7 +26,6 @@ int sci_mpi_send(char *fname, unsigned long fname_len)
     int iRet = 0;
     int *piAddr = NULL;
     int *piAddr2 = NULL;
-    int iType = 0;
 
     int *piBuffer = NULL;
     int iBufferSize = 0;
index 504bd56..dd1b820 100644 (file)
@@ -20,9 +20,6 @@
 #include "serialization.h"
 #include "deserialization.h"
 
-#define TAG 0
-
-
 int sci_mpi_wait(char *fname, unsigned long fname_len)
 {
     SciErr sciErr;
@@ -33,7 +30,6 @@ int sci_mpi_wait(char *fname, unsigned long fname_len)
     double NodeID = 0;
     int iRequestID;
     double dblRequestID;
-    int iRank = 0;
 
     CheckInputArgument(pvApiCtx, 1, 1);
     CheckOutputArgument(pvApiCtx, 1, 1);
@@ -87,7 +83,7 @@ int sci_mpi_wait(char *fname, unsigned long fname_len)
     FREE(piBuffer);
     if (iRet)
     {
-        Scierror(999, _("%s: Unable to deserialize data !\n"), fname);
+        Scierror(999, _("%s: Unable to deserialize data!\n"), fname);
         return 0;
     }
 
index 6bbcba2..6089a1c 100644 (file)
@@ -243,7 +243,6 @@ static int deserialize_sparse(void *_pvCtx, int *_piBuffer, int _iBufferSize, BO
     double *pdblR = NULL;
     double *pdblI = NULL;
     int iSize = 0;
-    void *pvData = NULL;
 
     iSize = 5 + iRows + iItemCount;
     if (_bData)