[cig-commits] r14785 - mc/3D/CitcomS/trunk/lib

[leif at geodynamics.org]

Author: leif
Date: 2009-04-21 17:59:20 -0700 (Tue, 21 Apr 2009)
New Revision: 14785

Modified:
   mc/3D/CitcomS/trunk/lib/Instructions.c
Log:
Avoid core dump in record() when E->fp hasn't been set yet.


Modified: mc/3D/CitcomS/trunk/lib/Instructions.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Instructions.c	2009-04-21 22:29:26 UTC (rev 14784)
+++ mc/3D/CitcomS/trunk/lib/Instructions.c	2009-04-22 00:59:20 UTC (rev 14785)
@@ -1286,7 +1286,7 @@
 void record(E,string)
      struct All_variables *E;
      char * string;
-{ if(E->control.verbose)
+{ if(E->control.verbose && E->fp)
     { fprintf(E->fp,"%s\n",string);
       fflush(E->fp);
     }