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

Diff for /rpl/src/gestion_niveaux.c between versions 1.1 and 1.78

version 1.1, 2010/01/26 15:22:44 version 1.78, 2024/01/09 07:33:48
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.9    RPL/2 (R) version 4.1.35
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2024 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 20 Line 20
 */  */
   
   
 #include "rpl.conv.h"  #include "rpl-conv.h"
   
   
 /*  /*
Line 76  instruction_vers_niveau_superieur(struct Line 76  instruction_vers_niveau_superieur(struct
     {      {
         if ((*s_etat_processus).langue == 'F')          if ((*s_etat_processus).langue == 'F')
         {          {
             printf("[%d] Initialisation du niveau %lu\n", (int) getpid(),              printf("[%d] Initialisation du niveau %lld\n", (int) getpid(),
                     (*s_etat_processus).niveau_courant);                      (*s_etat_processus).niveau_courant);
         }          }
         else          else
         {          {
             printf("[%d] Initialization of level %lu\n", (int) getpid(),              printf("[%d] Initialization of level %lld\n", (int) getpid(),
                     (*s_etat_processus).niveau_courant);                      (*s_etat_processus).niveau_courant);
         }          }
   
Line 126  instruction_vers_niveau_inferieur(struct Line 126  instruction_vers_niveau_inferieur(struct
     {      {
         if ((*s_etat_processus).langue == 'F')          if ((*s_etat_processus).langue == 'F')
         {          {
             printf("[%d] Fermeture du niveau %lu\n", (int) getpid(),              printf("[%d] Fermeture du niveau %lld\n", (int) getpid(),
                     (*s_etat_processus).niveau_courant);                      (*s_etat_processus).niveau_courant);
         }          }
         else          else
         {          {
             printf("[%d] Closing of level %lu\n", (int) getpid(),              printf("[%d] Closing of level %lld\n", (int) getpid(),
                     (*s_etat_processus).niveau_courant);                      (*s_etat_processus).niveau_courant);
         }          }
   
Line 168  instruction_vers_niveau_inferieur(struct Line 168  instruction_vers_niveau_inferieur(struct
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     printf("[%d] Retour récursif de niveau "                      printf("[%d] Retour récursif de niveau "
                             "%lu\n", (int) getpid(), (*s_etat_processus)                              "%lld\n", (int) getpid(), (*s_etat_processus)
                             .niveau_recursivite);                              .niveau_recursivite);
                 }                  }
                 else                  else
                 {                  {
                     printf("[%d] Level %lu recursive "                      printf("[%d] Level %lld recursive "
                             "return\n", (int) getpid(), (*s_etat_processus)                              "return\n", (int) getpid(), (*s_etat_processus)
                             .niveau_recursivite);                              .niveau_recursivite);
                 }                  }
Line 190  instruction_vers_niveau_inferieur(struct Line 190  instruction_vers_niveau_inferieur(struct
                 (*s_etat_processus).position_courante =                  (*s_etat_processus).position_courante =
                         (*(*s_etat_processus).l_base_pile_systeme)                          (*(*s_etat_processus).l_base_pile_systeme)
                         .adresse_retour;                          .adresse_retour;
                   (*s_etat_processus).debug_programme =
                           (*(*s_etat_processus).l_base_pile_systeme)
                           .debug_programme;
   
                 if ((*s_etat_processus).profilage == d_vrai)                  if ((*s_etat_processus).profilage == d_vrai)
                 {                  {
Line 216  instruction_vers_niveau_inferieur(struct Line 219  instruction_vers_niveau_inferieur(struct
      */       */
   
     if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)      if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)
             .s_liste_variables != NULL) && ((*s_etat_processus)  
             .gel_liste_variables == d_faux))              .gel_liste_variables == d_faux))
     {      {
         if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)          if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
         {          {
             return;              return;
         }          }
Removed from v.1.1  
changed lines
  Added in v.1.78

CVSweb interface <joel.bertrand@systella.fr>