version 1.47, 2013/03/20 22:24:36
|
version 1.57, 2015/01/05 13:12:37
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.19 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 471 void
|
Line 471 void
|
instruction_prusr(struct_processus *s_etat_processus) |
instruction_prusr(struct_processus *s_etat_processus) |
{ |
{ |
integer8 i; |
integer8 i; |
|
integer8 j; |
integer8 nb_variables; |
integer8 nb_variables; |
|
|
struct_objet s_objet; |
struct_objet s_objet; |
Line 521 instruction_prusr(struct_processus *s_et
|
Line 522 instruction_prusr(struct_processus *s_et
|
return; |
return; |
} |
} |
|
|
liste_variables(s_etat_processus, tableau); |
nb_variables = liste_variables(s_etat_processus, tableau); |
|
|
s_objet.type = CHN; |
s_objet.type = CHN; |
|
|
for(i = 0; i < nb_variables; i++) |
for(i = 0; i < nb_variables; i++) |
Line 530 instruction_prusr(struct_processus *s_et
|
Line 530 instruction_prusr(struct_processus *s_et
|
if ((s_objet.objet = malloc((strlen(tableau[i].nom) + 64) |
if ((s_objet.objet = malloc((strlen(tableau[i].nom) + 64) |
* sizeof(unsigned char))) == NULL) |
* sizeof(unsigned char))) == NULL) |
{ |
{ |
|
for(j = i; j < nb_variables; j++) |
|
{ |
|
if (tableau[j].mutex != NULL) |
|
{ |
|
pthread_mutex_unlock(tableau[i].mutex); |
|
} |
|
} |
|
|
free(tableau); |
free(tableau); |
|
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 539 instruction_prusr(struct_processus *s_et
|
Line 547 instruction_prusr(struct_processus *s_et
|
sprintf((unsigned char *) s_objet.objet, "\\\\noindent %s [%lld]\n", |
sprintf((unsigned char *) s_objet.objet, "\\\\noindent %s [%lld]\n", |
tableau[i].nom, tableau[i].niveau); |
tableau[i].nom, tableau[i].niveau); |
|
|
|
if (tableau[i].mutex != NULL) |
|
{ |
|
pthread_mutex_unlock(tableau[i].mutex); |
|
} |
|
|
formateur_tex(s_etat_processus, &s_objet, 'N'); |
formateur_tex(s_etat_processus, &s_objet, 'N'); |
free(s_objet.objet); |
free(s_objet.objet); |
} |
} |