--- rpl/src/instructions_c5.c 2011/06/21 15:26:30 1.22 +++ rpl/src/instructions_c5.c 2022/09/07 13:40:34 1.71 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.0.prerelease.2 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.34 + Copyright (C) 1989-2021 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; @@ -448,13 +436,13 @@ instruction_col_plus(struct_processus *s return; } - if ((position < 1) || (position > ((signed long) (*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes + 1))) + if ((position < 1) || (position > (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes + 1)) { 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; @@ -502,7 +491,7 @@ instruction_col_plus(struct_processus *s for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3) .objet)).nombre_colonnes; j++) { - if ((signed long) j == (position - 1)) + if (j == (position - 1)) { ((integer8 **) (*((struct_matrice *) (*s_copie_argument_3) .objet)).tableau)[i][j] = ((integer8 **) @@ -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; @@ -561,14 +550,14 @@ instruction_col_plus(struct_processus *s return; } - if ((position < 1) || (position > ((signed long) + if ((position < 1) || (position > (*((struct_matrice *) (*s_copie_argument_3).objet)) - .nombre_colonnes + 1))) + .nombre_colonnes + 1)) { 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; @@ -618,10 +608,10 @@ instruction_col_plus(struct_processus *s for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3) .objet)).nombre_colonnes; j++) { - if ((signed long) j == (position - 1)) + if (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; @@ -676,14 +666,14 @@ instruction_col_plus(struct_processus *s return; } - if ((position < 1) || (position > ((signed long) + if ((position < 1) || (position > (*((struct_matrice *) (*s_copie_argument_3).objet)) - .nombre_colonnes + 1))) + .nombre_colonnes + 1)) { 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; @@ -733,7 +724,7 @@ instruction_col_plus(struct_processus *s for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3) .objet)).nombre_colonnes; j++) { - if ((signed long) j == (position - 1)) + if (j == (position - 1)) { ((real8 **) (*((struct_matrice *) (*s_copie_argument_3) .objet)).tableau)[i][j] = ((real8 **) @@ -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; @@ -794,14 +785,13 @@ instruction_col_plus(struct_processus *s return; } - if ((position < 1) || (position > ((signed long) - (*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes + 1))) + if ((position < 1) || (position > (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes + 1)) { 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 +819,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; @@ -851,11 +842,11 @@ instruction_col_plus(struct_processus *s for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3) .objet)).nombre_colonnes; j++) { - if ((signed long) j == (position - 1)) + if (j == (position - 1)) { ((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 +868,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 +892,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; @@ -922,14 +913,13 @@ instruction_col_plus(struct_processus *s return; } - if ((position < 1) || (position > ((signed long) - (*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes + 1))) + if ((position < 1) || (position > (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes + 1)) { 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 +947,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; @@ -979,7 +970,7 @@ instruction_col_plus(struct_processus *s for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3) .objet)).nombre_colonnes; j++) { - if ((signed long) j == (position - 1)) + if (j == (position - 1)) { ((complex16 **) (*((struct_matrice *) (*s_copie_argument_3).objet)).tableau)[i][j] @@ -1029,7 +1020,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; @@ -1050,14 +1041,13 @@ instruction_col_plus(struct_processus *s return; } - if ((position < 1) || (position > ((signed long) - (*((struct_matrice *) - (*s_copie_argument_3).objet)).nombre_colonnes + 1))) + if ((position < 1) || (position > (*((struct_matrice *) + (*s_copie_argument_3).objet)).nombre_colonnes + 1)) { 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 +1075,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; @@ -1107,7 +1098,7 @@ instruction_col_plus(struct_processus *s for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3) .objet)).nombre_colonnes; j++) { - if ((signed long) j == (position - 1)) + if (j == (position - 1)) { ((complex16 **) (*((struct_matrice *) (*s_copie_argument_3).objet)).tableau)[i][j] @@ -1185,13 +1176,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 +1222,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 +1314,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 +1351,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; @@ -1395,14 +1370,13 @@ instruction_col_moins(struct_processus * { position = (*((integer8 *) (*s_objet_argument_1).objet)); - if ((position <= 0) || (position > (signed long) - (*((struct_matrice *) + if ((position <= 0) || (position > (*((struct_matrice *) (*s_copie_argument_2).objet)).nombre_colonnes)) { 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 +1402,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 +1419,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 +1445,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 +1475,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 +1506,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 +1555,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 +1585,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 +1616,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 +1665,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 +1696,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 +1734,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 +1832,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;