Fixed initialization of a pGH's identity_string.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@223 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 3 insertions, 1 deletions

diff --git a/src/SetupPGH.c b/src/SetupPGH.c
index 3d4b1b0..3a49dce 100644
--- a/src/SetupPGH.c
+++ b/src/SetupPGH.c
@@ -112,6 +112,7 @@ pGH *PUGH_SetupPGH(void *callerid,
 
   /* set staggering flag */
   /*GH->stagger = staggertype;                 */
+  GH->identity_string = NULL;
   GH->level = 0;
   GH->mglevel = 0;
   GH->convlevel = 0;
@@ -243,7 +244,8 @@ void PUGH_DestroyPGH(pGH **GHin)
     PUGH_DestroyPGExtras(&GH->GFExtras[i-1]);
   }
 
-  free(GH->identity_string);
+  if(GH->identity_string)
+    free(GH->identity_string);
   free(GH->Connectivity);
   free(GH->GFExtras);
   free(GH->variables);