In CCTK_VWarn(), check if the parameter 'cactus::cctk_full_warnings' was

already created and thus can be used. If not created it is assumed to be zero.

This closes PR Cactus 656.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2141 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 7 insertions, 8 deletions

diff --git a/src/main/WarnLevel.c b/src/main/WarnLevel.c
index 625bde03..6bd70c06 100644
--- a/src/main/WarnLevel.c
+++ b/src/main/WarnLevel.c
@@ -286,7 +286,7 @@ int CCTK_VWarn (int level,
                 const char *format,
                 ...)
 {
-  int cctk_full_warnings;
+  CCTK_INT *cctk_full_warnings;
   int param_type;
 
 
@@ -294,12 +294,10 @@ int CCTK_VWarn (int level,
 
   if (level <= warning_level)
   {
-    va_start (ap, format);
-
-    cctk_full_warnings = *((CCTK_INT *)
-                           CCTK_ParameterGet ("cctk_full_warnings",
-                                              "Cactus", &param_type));
-    if (cctk_full_warnings)
+    cctk_full_warnings = (CCTK_INT *) CCTK_ParameterGet ("cctk_full_warnings",
+                                                         "Cactus",
+                                                         &param_type);
+    if (cctk_full_warnings && *cctk_full_warnings)
     {
       fprintf (stderr, "WARNING level %d in thorn %s\n"
                        "  (line %d of %s): \n"
@@ -310,10 +308,11 @@ int CCTK_VWarn (int level,
     {
       fprintf (stderr, "WARNING[%d] (%s): ", level, thorn);
     }
+
+    va_start (ap, format);
     vfprintf (stderr, format, ap);
     fprintf (stderr, "\n");
     fflush (stderr);
-
     va_end (ap);
   }