version 1.43, 2012/05/21 17:25:44
|
version 1.48, 2012/12/13 16:59:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.9 |
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 |
*/ |
*/ |