Enable/disable storage for CCTK_SCALAR variables. Although memory for those

types is allocated only once (in the first call to CCTK_EnableGroupStorage())
the current state of allocation is kept in a flag for every group.
This is returned by CCTK_QueryGroupStorage() then.

Main purpose of this is to make the NaNChecker working for CCTK_SCALARs also.


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

1 files changed, 4 insertions, 1 deletions

diff --git a/src/SetupPGH.c b/src/SetupPGH.c
index d1a3caa..f9b05e4 100644
--- a/src/SetupPGH.c
+++ b/src/SetupPGH.c
@@ -274,7 +274,10 @@ void PUGH_DestroyPGH (pGH **GHin)
             PUGH_DestroyGArray(&(((pGA ***)GH->variables)[variable][i]));
             break;
           case CCTK_SCALAR:
-            free(GH->variables[variable][i]);
+            if (GH->variables[variable][i])
+            {
+              free(GH->variables[variable][i]);
+            }
             break;
         }
       }