first rewrite (2)

libcob/profiling.c

@@ -395,24 +395,24 @@ cob_prof_end ()
 	FILE *file;
 	char prof_file_buf[COB_NORMAL_BUFF];
 	const char* prof_filename = NULL;
-	
-	if (!cobsetptr || !is_active) return;
-	
+
+	if (!cobsetptr || !is_active || !prof_program_id) return;
+
 	while (current_idx >= 0) {
 		cob_prof_exit_section (called_runtimes[current_idx], called_procedures[current_idx]);
 	}
-	
+
 	prof_filename = cobsetptr->cob_prof_filename;
 	if (!prof_filename){
-		
+
 		/* Do not use cob_sys_getpid() in case of fork() */
 		int pid = getpid();
 		sprintf(prof_file_buf, "%d-%s-prof.csv", pid, prof_program_id);
 		prof_filename = prof_file_buf;
 	}
-	
+
 	file = fopen (prof_filename, !cobsetptr->cob_unix_lf ? "w" : "wb");
-	
+
 	/* XXX
 	   
 	   The filename should use the "normal" way filenames are
@@ -424,10 +424,9 @@ Please include the PID in each line, this way it is no problem if multiple runni
 
 To not break the tests under MinGW, please handle COB_UNIX_LF here, too.
      */
-	
+
 	if (!!file) {
 		/* XXX
-		   
 		   Should we wait (with a timeout) if we get a file lock (another process
 writing to the file)?  Should we allow multiple processes to write to
 the same file in parallel?