--- rpl/src/rplcore.c 2010/02/10 08:09:29 1.3 +++ rpl/src/rplcore.c 2010/08/06 15:26:51 1.13 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.10 + RPL/2 (R) version 4.0.18 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -154,6 +154,14 @@ rplcore(struct_processus *s_etat_process free(message_erreur); + if (fprintf(fichier, "// System stack\n\n") < 0) + { + (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + return; + } + + trace(s_etat_processus, fichier); + if (fprintf(fichier, "// Process stack\n\n") < 0) { (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;