Changeset 5977

Timestamp:

09/23/10 07:31:09 (14 years ago)

Author:

Mathieu Morlighem

Message:

Fixed compilation

File:

• issm/trunk/src/c/toolkits/petsc/patches/PetscOptionsDetermineSolverType.cpp (modified) (4 diffs)

issm/trunk/src/c/toolkits/petsc/patches/PetscOptionsDetermineSolverType.cpp

@@ -41 +41 @@
 void PetscOptionsDetermineSolverType(int* psolver_type,Parameters* parameters){
 
-        
-        
-
         /*The list of options is going to be pairs of the type "-option option_value"*/
         #if _PETSC_VERSION_ == 2
@@ -52 +49 @@
         char* first=NULL;
         char* second=NULL;
+        char* options_string=NULL;
         size_t len;
         int ignore_second;
@@ -68 +66 @@
                 parameters->FindParam(&options_string,PetscRcEnum);
 
-
                 PetscTokenCreate(options_string,' ',&token);
                 for (;;){
-                        
 
                         /*Read next tokens*/
@@ -151 +147 @@
         #endif
 
-
-
-        /*Assign output: */
+        /*Clean-up and assign output*/
+        xfree((void**)&options_string);
         *psolver_type=solver_type;
 }