Changeset a0da83 in git for Singular/fevoices.cc

Timestamp:

Mar 31, 2015, 3:36:56 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

06cff955d56f17b8a3199fd8db5e3f4a6be98f35

Parents:

56225c216f0df9632a02f7b745efacd6da070754

Message:

test for a code coverage tool: via smon.out

File:

• Singular/fevoices.cc (modified) (2 diffs)

Singular/fevoices.cc

@@ -35 +35 @@
 
 char fe_promptstr[] ="  ";
+FILE *File_Profiling=NULL;
 
 // output/print buffer:
@@ -458 +459 @@
     Print("{%d}",yylineno);
     mflush();
+  }
+  else if (traceit&TRACE_PROFILING)
+  {
+    if (File_Profiling==NULL)
+      File_Profiling=fopen("smon.out","a");
+    if (File_Profiling==NULL)
+      traceit &= (~TRACE_PROFILING);
+    else
+    {
+      if (currentVoice->filename==NULL)
+        fprintf(File_Profiling,"(none) %d\n",yylineno);
+      else
+        fprintf(File_Profiling,"%s %d\n",currentVoice->filename,yylineno);
+    }
   }
 #ifdef HAVE_SDB