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

Diff for /rpl/src/gestion_pile.c between versions 1.48 and 1.80

version 1.48, 2013/03/21 12:08:25 version 1.80, 2025/04/15 10:17:51
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 128  empilement(struct_processus *s_etat_proc Line 128  empilement(struct_processus *s_etat_proc
             if ((*s_etat_processus).langue == 'F')              if ((*s_etat_processus).langue == 'F')
             {              {
                 printf("[%d] Empilement de type %d "                  printf("[%d] Empilement de type %d "
                         "(profondeur %lu)\n", (int) getpid(),                          "(profondeur %lld)\n", (int) getpid(),
                         (*s_objet).type,                          (*s_objet).type,
                         (*s_etat_processus).hauteur_pile_operationnelle);                          (*s_etat_processus).hauteur_pile_operationnelle);
             }              }
             else              else
             {              {
                 printf("[%d] Pushing a type %d object "                  printf("[%d] Pushing a type %d object "
                         "(depth %lu)\n", (int) getpid(), (*s_objet).type,                          "(depth %lld)\n", (int) getpid(), (*s_objet).type,
                         (*s_etat_processus).hauteur_pile_operationnelle);                          (*s_etat_processus).hauteur_pile_operationnelle);
             }              }
   
Line 192  depilement(struct_processus *s_etat_proc Line 192  depilement(struct_processus *s_etat_proc
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     printf("[%d] Dépilement de type %d "                      printf("[%d] Dépilement de type %d "
                             "(profondeur %lu)\n", (int) getpid(),                              "(profondeur %lld)\n", (int) getpid(),
                             (*(*s_objet)).type,                              (*(*s_objet)).type,
                             (*s_etat_processus).hauteur_pile_operationnelle);                              (*s_etat_processus).hauteur_pile_operationnelle);
                 }                  }
                 else                  else
                 {                  {
                     printf("[%d] Pulling a type %d object "                      printf("[%d] Pulling a type %d object "
                             "(depth %lu)\n", (int) getpid(), (*(*s_objet)).type,                              "(depth %lld)\n", (int) getpid(),
                               (*(*s_objet)).type,
                             (*s_etat_processus).hauteur_pile_operationnelle);                              (*s_etat_processus).hauteur_pile_operationnelle);
                 }                  }
   
Line 266  affichage_pile(struct_processus *s_etat_ Line 267  affichage_pile(struct_processus *s_etat_
     return;      return;
 }  }
   
   // Bug de gcc à partir de gcc 4.6 (bug 48544)
   #pragma GCC diagnostic push
   #pragma GCC diagnostic ignored "-Wclobbered"
   
 void  void
 ecriture_pile(struct_processus *s_etat_processus, file *flux,  ecriture_pile(struct_processus *s_etat_processus, file *flux,
         struct_liste_chainee *l, integer8 niveau_courant)          struct_liste_chainee *l, integer8 niveau_courant)
Line 294  ecriture_pile(struct_processus *s_etat_p Line 299  ecriture_pile(struct_processus *s_etat_p
   
                 if ((*s_etat_processus).var_volatile_recursivite == 0)                  if ((*s_etat_processus).var_volatile_recursivite == 0)
                 {                  {
                     if (fprintf(flux, "%lu: ...\n", niveau_courant) < 0)                      if (fprintf(flux, "%lld: ...\n", niveau_courant) < 0)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
                                 d_es_erreur_fichier;                                  d_es_erreur_fichier;
Line 345  ecriture_pile(struct_processus *s_etat_p Line 350  ecriture_pile(struct_processus *s_etat_p
             free(registre);              free(registre);
         }          }
   
         if (fprintf(flux, "%lu: %s\n", niveau_courant, chaine) < 0)          if (fprintf(flux, "%lld: %s\n", niveau_courant, chaine) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return;              return;
Line 469  impression_pile(struct_processus *s_etat Line 474  impression_pile(struct_processus *s_etat
     return;      return;
 }  }
   
   #pragma GCC diagnostic pop
   
 // vim: ts=4  // vim: ts=4
Removed from v.1.48  
changed lines
  Added in v.1.80

CVSweb interface <joel.bertrand@systella.fr>