--- rpl/src/instructions_c5.c 2011/11/26 10:01:27 1.30 +++ rpl/src/instructions_c5.c 2013/03/20 17:11:44 1.44 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.5 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.13 + Copyright (C) 1989-2013 Dr. BERTRAND Joël This file is part of RPL/2. @@ -48,9 +48,9 @@ instruction_col_plus(struct_processus *s struct_objet *s_objet_argument_2; struct_objet *s_objet_argument_3; - unsigned long i; - unsigned long j; - unsigned long l; + integer8 i; + integer8 j; + integer8 l; void *tampon; @@ -186,30 +186,16 @@ instruction_col_plus(struct_processus *s if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .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_execution = d_ex_variable_non_definie; - if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - liberation(s_etat_processus, s_objet_argument_1); liberation(s_etat_processus, s_objet_argument_2); return; @@ -217,8 +203,7 @@ instruction_col_plus(struct_processus *s variable_partagee = d_vrai; s_objet_argument_3 = (*(*s_etat_processus) - .s_liste_variables_partagees).table[(*(*s_etat_processus) - .s_liste_variables_partagees).position_variable].objet; + .pointeur_variable_partagee_courante).objet; } else { @@ -241,7 +226,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -263,7 +248,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -287,14 +272,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -334,14 +320,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -380,14 +367,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -428,7 +416,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -454,7 +442,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -482,13 +470,14 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)).tableau[i] - = malloc((((*((struct_matrice *) (*s_copie_argument_3) - .objet)).nombre_colonnes) + 1) * sizeof(integer8))) == NULL) + = malloc((((size_t) (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes) + 1) * + sizeof(integer8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -540,7 +529,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -568,7 +557,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -596,14 +585,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((((*((struct_matrice *) + .tableau[i] = malloc((((size_t) (*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes) + 1) * sizeof(real8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -621,7 +611,7 @@ instruction_col_plus(struct_processus *s if ((signed long) j == (position - 1)) { ((real8 **) (*((struct_matrice *) (*s_copie_argument_3) - .objet)).tableau)[i][j] = ((integer8 **) + .objet)).tableau)[i][j] = (real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_1) .objet)).tableau)[i][0]; l = 1; @@ -636,7 +626,7 @@ instruction_col_plus(struct_processus *s ((real8 **) (*((struct_matrice *) (*s_copie_argument_3) .objet)).tableau)[i][(*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes] = - ((integer8 **) (*((struct_matrice *) + (real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_1).objet)).tableau)[i][0]; } @@ -655,7 +645,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -683,7 +673,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -711,14 +701,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((((*((struct_matrice *) + .tableau[i] = malloc((((size_t) (*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes) + 1) * sizeof(real8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -773,7 +764,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -801,7 +792,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -829,14 +820,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((((*((struct_matrice *) + .tableau[i] = malloc((((size_t) (*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes) + 1) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -855,7 +847,7 @@ instruction_col_plus(struct_processus *s { ((complex16 **) (*((struct_matrice *) (*s_copie_argument_3).objet)).tableau)[i][j] - .partie_reelle = ((integer8 **) + .partie_reelle = (real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_1) .objet)).tableau)[i][0]; ((complex16 **) (*((struct_matrice *) @@ -877,7 +869,7 @@ instruction_col_plus(struct_processus *s ((complex16 **) (*((struct_matrice *) (*s_copie_argument_3) .objet)).tableau)[i][(*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes] - .partie_reelle = ((integer8 **) + .partie_reelle = (real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_1).objet)) .tableau)[i][0]; ((complex16 **) (*((struct_matrice *) (*s_copie_argument_3) @@ -901,7 +893,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -929,7 +921,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -957,14 +949,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((((*((struct_matrice *) + .tableau[i] = malloc((((size_t) (*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes) + 1) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1029,7 +1022,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1057,7 +1050,7 @@ instruction_col_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1085,14 +1078,15 @@ instruction_col_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_copie_argument_3).objet)) - .tableau[i] = malloc((((*((struct_matrice *) + .tableau[i] = malloc((((size_t) (*((struct_matrice *) (*s_copie_argument_3).objet)).nombre_colonnes) + 1) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1185,13 +1179,12 @@ instruction_col_plus(struct_processus *s } else { - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_copie_argument_3; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_copie_argument_3; (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1232,10 +1225,10 @@ instruction_col_moins(struct_processus * struct_objet *s_objet_argument_2; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long k; - unsigned long colonne; + integer8 i; + integer8 j; + integer8 k; + integer8 colonne; void *tampon; @@ -1324,38 +1317,23 @@ instruction_col_moins(struct_processus * if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .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_execution = d_ex_variable_non_definie; - if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - liberation(s_etat_processus, s_objet_argument_1); return; } variable_partagee = d_vrai; s_objet_argument_2 = (*(*s_etat_processus) - .s_liste_variables_partagees).table[(*(*s_etat_processus) - .s_liste_variables_partagees).position_variable].objet; + .pointeur_variable_partagee_courante).objet; } else { @@ -1376,7 +1354,7 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1402,7 +1380,7 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1428,7 +1406,7 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1445,7 +1423,7 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1471,14 +1449,15 @@ instruction_col_moins(struct_processus * (*s_objet_resultat).type = MIN; if (((*((struct_matrice *) (*s_objet_resultat).objet)) - .tableau = malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_lignes * + .tableau = malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * sizeof(integer8 *))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1500,8 +1479,8 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1531,16 +1510,16 @@ instruction_col_moins(struct_processus * (*s_copie_argument_2).objet)).tableau)[i]; if ((((*((struct_matrice *) (*s_copie_argument_2) - .objet)).tableau)[i] = malloc( + .objet)).tableau)[i] = malloc(((size_t) ((*((struct_matrice *) (*s_copie_argument_2) - .objet)).nombre_colonnes - 1) * + .objet)).nombre_colonnes) - 1) * sizeof(integer8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1580,14 +1559,15 @@ instruction_col_moins(struct_processus * (*s_objet_resultat).type = MRL; if (((*((struct_matrice *) (*s_objet_resultat).objet)) - .tableau = malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_lignes * + .tableau = malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * sizeof(real8 *))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1609,8 +1589,8 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1640,16 +1620,16 @@ instruction_col_moins(struct_processus * (*s_copie_argument_2).objet)).tableau)[i]; if ((((*((struct_matrice *) (*s_copie_argument_2) - .objet)).tableau)[i] = malloc( + .objet)).tableau)[i] = malloc(((size_t) ((*((struct_matrice *) (*s_copie_argument_2) - .objet)).nombre_colonnes - 1) * + .objet)).nombre_colonnes) - 1) * sizeof(real8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1689,15 +1669,15 @@ instruction_col_moins(struct_processus * (*s_objet_resultat).type = MCX; if (((*((struct_matrice *) (*s_objet_resultat).objet)) - .tableau = malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_lignes * + .tableau = malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * sizeof(complex16 *))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1720,8 +1700,8 @@ instruction_col_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1758,16 +1738,16 @@ instruction_col_moins(struct_processus * (*s_copie_argument_2).objet)).tableau)[i]; if ((((*((struct_matrice *) (*s_copie_argument_2) - .objet)).tableau)[i] = malloc( + .objet)).tableau)[i] = malloc(((size_t) ((*((struct_matrice *) (*s_copie_argument_2) - .objet)).nombre_colonnes - 1) * + .objet)).nombre_colonnes) - 1) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) - != 0) + .pointeur_variable_partagee_courante) + .mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1856,13 +1836,12 @@ instruction_col_moins(struct_processus * } else { - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_copie_argument_2; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_copie_argument_2; (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return;