version 1.13, 2010/08/06 15:26:51
|
version 1.24, 2011/06/21 15:26:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.1.0.prerelease.2 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 142 rplcore(struct_processus *s_etat_process
|
Line 142 rplcore(struct_processus *s_etat_process
|
return; |
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, |
message_erreur, (*s_etat_processus).instruction_derniere_erreur, |
(*s_etat_processus).niveau_derniere_erreur) < 0) |
(*s_etat_processus).niveau_derniere_erreur) < 0) |
{ |
{ |