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

Diff for /rpl/src/instructions_m4.c between versions 1.42 and 1.48

version 1.42, 2012/05/20 17:28:26 version 1.48, 2012/12/13 16:59:41
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.8    RPL/2 (R) version 4.1.11
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2012 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 47  instruction_mem(struct_processus *s_etat Line 47  instruction_mem(struct_processus *s_etat
   
     struct_tableau_variables    *tableau;      struct_tableau_variables    *tableau;
   
     unsigned long               i;  
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 169  instruction_mem(struct_processus *s_etat Line 167  instruction_mem(struct_processus *s_etat
   
     free(tableau);      free(tableau);
   
     for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)  
     {  
         // Comptabilisation des empreintes mémoire des variables  
         // statiques qui ne sont pas accessibles, les variables statiques  
         // accessibles étant déjà comptabilitées par la boucle précédente.  
   
         if ((*s_etat_processus).s_liste_variables_statiques[i].objet != NULL)  
         {  
             (*((integer8 *) (*((*((*((struct_liste_chainee *)  
                     (*s_objet_resultat).objet)).suivant)).donnee)).objet)) +=  
                     sizeof(unsigned char) * strlen((*s_etat_processus)  
                     .s_liste_variables_statiques[i].nom);  
             (*((integer8 *) (*((*((*((struct_liste_chainee *)  
                     (*s_objet_resultat).objet)).suivant)).donnee)).objet)) +=  
                     occupation_memoire((*s_etat_processus)  
                     .s_liste_variables_statiques[i].objet);  
         }  
     }  
   
     for(i = 0; i < (*(*s_etat_processus).s_liste_variables_partagees)  
             .nombre_variables; i++)  
     {  
         (*((integer8 *) (*((*((*((struct_liste_chainee *)  
                 (*s_objet_resultat).objet)).suivant)).donnee)).objet)) +=  
                 sizeof(unsigned char) * strlen((*(*s_etat_processus)  
                 .s_liste_variables_partagees).table[i].nom);  
         (*((integer8 *) (*((*((*((struct_liste_chainee *)  
                 (*s_objet_resultat).objet)).suivant)).donnee)).objet)) +=  
                 occupation_memoire((*(*s_etat_processus)  
                 .s_liste_variables_partagees).table[i].objet);  
     }  
   
     /*      /*
      * Empilement du résultat       * Empilement du résultat
      */       */
Removed from v.1.42  
changed lines
  Added in v.1.48

CVSweb interface <joel.bertrand@systella.fr>