rpl/src/rplcore.c - diff

Return to rplcore.c CVS log

Up to [local] / rpl / src

-version 1.14, 2010/08/06 15:33:04
+version 1.15, 2010/08/12 14:13:57
  Line 142  rplcore(struct_processus *s_etat_process
          return;
      }
-     if (fprintf(fichier, "// Error :\n%s [%s at level %lu]\n\n",
+     if ((*s_etat_processus).instruction_derniere_erreur != NULL)
+     {
+         if (fprintf(fichier, "// Error :\n%s [level %lu]\n\n",
+                 message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
+         {
+             free(message_erreur);
+             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+             return;
+         }
+     }
+     else if ((*s_etat_processus).instruction_derniere_erreur[0] ==
+             d_code_fin_chaine)
+     {
+         if (fprintf(fichier, "// Error :\n%s [level %lu]\n\n",
+                 message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
+         {
+             free(message_erreur);
+             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+             return;
+         }
+     }
+     else if (fprintf(fichier, "// Error :\n%s [%s at level %lu]\n\n",
              message_erreur, (*s_etat_processus).instruction_derniere_erreur,
              (*s_etat_processus).niveau_derniere_erreur) < 0)
      {