version 1.40, 2012/12/13 16:59:41
|
version 1.45, 2013/02/27 17:11:43
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2012 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 429 instruction_prvar(struct_processus *s_et
|
Line 429 instruction_prvar(struct_processus *s_et
|
(*(*s_etat_processus).pointeur_variable_courante).nom, |
(*(*s_etat_processus).pointeur_variable_courante).nom, |
(*(*s_etat_processus).pointeur_variable_courante) |
(*(*s_etat_processus).pointeur_variable_courante) |
.variable_partagee, (*(*s_etat_processus) |
.variable_partagee, (*(*s_etat_processus) |
.pointeur_variable_courante).origine) == d_faux) |
.pointeur_variable_courante).origine) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_execution = d_ex_variable_non_definie; |
(*s_etat_processus).erreur_execution = d_ex_variable_non_definie; |
Line 510 instruction_prusr(struct_processus *s_et
|
Line 510 instruction_prusr(struct_processus *s_et
|
} |
} |
} |
} |
|
|
nb_variables = nombre_variables(s_etat_processus, |
nb_variables = nombre_variables(s_etat_processus); |
(*s_etat_processus).s_arbre_variables); |
|
|
|
if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables))) |
if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables))) |
== NULL) |
== NULL) |
{ |
{ |
|
liberation_mutexes_arbre_variables_partagees(s_etat_processus, |
|
(*(*s_etat_processus).s_arbre_variables_partagees)); |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
liste_variables(s_etat_processus, tableau, 0, |
liste_variables(s_etat_processus, tableau); |
(*s_etat_processus).s_arbre_variables); |
|
|
|
s_objet.type = CHN; |
s_objet.type = CHN; |
|
|