[BACK]Return to rplcore.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/rplcore.c between versions 1.45 and 1.49

version 1.45, 2013/03/21 12:07:38 version 1.49, 2013/04/15 11:45:33
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.14
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 147  rplcore(struct_processus *s_etat_process Line 147  rplcore(struct_processus *s_etat_process
   
     if ((*s_etat_processus).instruction_derniere_erreur != NULL)      if ((*s_etat_processus).instruction_derniere_erreur != NULL)
     {      {
         if (fprintf(fichier, "// Error :\n%s [level %lu]\n\n",          if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",
                 message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)                  message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
         {          {
             free(message_erreur);              free(message_erreur);
Line 159  rplcore(struct_processus *s_etat_process Line 159  rplcore(struct_processus *s_etat_process
     else if ((*s_etat_processus).instruction_derniere_erreur[0] ==      else if ((*s_etat_processus).instruction_derniere_erreur[0] ==
             d_code_fin_chaine)              d_code_fin_chaine)
     {      {
         if (fprintf(fichier, "// Error :\n%s [level %lu]\n\n",          if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",
                 message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)                  message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
         {          {
             free(message_erreur);              free(message_erreur);
Line 168  rplcore(struct_processus *s_etat_process Line 168  rplcore(struct_processus *s_etat_process
             return;              return;
         }          }
     }      }
     else if (fprintf(fichier, "// Error :\n%s [%s at level %lu]\n\n",      else if (fprintf(fichier, "// Error :\n%s [%s at level %lld]\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)
     {      {
Line 206  rplcore(struct_processus *s_etat_process Line 206  rplcore(struct_processus *s_etat_process
                     (*(*l_element_courant).donnee).objet)).thread)                      (*(*l_element_courant).donnee).objet)).thread)
                     .processus_detache == d_vrai)                      .processus_detache == d_vrai)
             {              {
                 if (fprintf(fichier, "%ld: Process [%d]\n",                  if (fprintf(fichier, "%d: Process [%d]\n",
                         i++, (int) (*(*((struct_processus_fils *)                          (int) i++, (int) (*(*((struct_processus_fils *)
                         (*(*l_element_courant).donnee).objet)).thread).pid) < 0)                          (*(*l_element_courant).donnee).objet)).thread).pid) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 216  rplcore(struct_processus *s_etat_process Line 216  rplcore(struct_processus *s_etat_process
             }              }
             else              else
             {              {
                 if (fprintf(fichier, "%ld: Thread [%llu] from [%llu]\n",                  if (fprintf(fichier, "%ld: Thread [%llu] from [%d]\n", (int)
                         i++, (unsigned long long) (*(*((struct_processus_fils *)                          i++, (unsigned long long) (*(*((struct_processus_fils *)
                         (*(*l_element_courant).donnee).objet)).thread)                          (*(*l_element_courant).donnee).objet)).thread)
                         .tid, (unsigned long long)                          .tid, (int)
                         (*(*((struct_processus_fils *) (*(*l_element_courant)                          (*(*((struct_processus_fils *) (*(*l_element_courant)
                         .donnee).objet)).thread).pid) < 0)                          .donnee).objet)).thread).pid) < 0)
                 {                  {
Line 231  rplcore(struct_processus *s_etat_process Line 231  rplcore(struct_processus *s_etat_process
             l_element_courant = (*l_element_courant).suivant;              l_element_courant = (*l_element_courant).suivant;
         }          }
   
         if (fprintf(fichier, "%ld: Process [%d]\n\n", i,          if (fprintf(fichier, "%ld: Process [%d]\n\n", (int) i,
                 (int) getpid()) < 0)                  (int) getpid()) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Removed from v.1.45  
changed lines
  Added in v.1.49

CVSweb interface <joel.bertrand@systella.fr>