--- rpl/src/instructions_c5.c 2010/01/26 15:22:45 1.1 +++ rpl/src/instructions_c5.c 2013/03/20 17:11:44 1.44 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.9 - Copyright (C) 1989-2010 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. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -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; @@ -174,8 +174,8 @@ instruction_col_plus(struct_processus *s liberation(s_etat_processus, s_objet_argument_3); - if ((*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_verrouillee == d_vrai) + if ((*(*s_etat_processus).pointeur_variable_courante) + .variable_verrouillee == d_vrai) { liberation(s_etat_processus, s_objet_argument_1); liberation(s_etat_processus, s_objet_argument_2); @@ -184,35 +184,18 @@ instruction_col_plus(struct_processus *s return; } - if ((*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet == NULL) + 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).s_liste_variables[(*s_etat_processus) - .position_variable_courante].nom, (*s_etat_processus) - .s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_partagee, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].origine) == d_faux) + (*(*s_etat_processus).pointeur_variable_courante).nom, + (*(*s_etat_processus).pointeur_variable_courante) + .variable_partagee, (*(*s_etat_processus) + .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; @@ -220,13 +203,12 @@ 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 { - s_objet_argument_3 = (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet; + s_objet_argument_3 = (*(*s_etat_processus) + .pointeur_variable_courante).objet; } } else @@ -244,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; @@ -266,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; @@ -290,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; @@ -337,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; @@ -383,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; @@ -431,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; @@ -457,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; @@ -485,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; @@ -543,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; @@ -571,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; @@ -599,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; @@ -624,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; @@ -639,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]; } @@ -658,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; @@ -686,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; @@ -714,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; @@ -776,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; @@ -804,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; @@ -832,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; @@ -858,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 *) @@ -880,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) @@ -904,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; @@ -932,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; @@ -960,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; @@ -1032,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; @@ -1060,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; @@ -1088,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; @@ -1183,21 +1174,17 @@ instruction_col_plus(struct_processus *s { if (variable_partagee == d_faux) { - (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet = + (*(*s_etat_processus).pointeur_variable_courante).objet = s_copie_argument_3; } 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).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet = - NULL; + (*(*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; @@ -1238,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; @@ -1319,8 +1306,8 @@ instruction_col_moins(struct_processus * liberation(s_etat_processus, s_objet_argument_2); - if ((*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_verrouillee == d_vrai) + if ((*(*s_etat_processus).pointeur_variable_courante) + .variable_verrouillee == d_vrai) { liberation(s_etat_processus, s_objet_argument_1); @@ -1328,48 +1315,30 @@ instruction_col_moins(struct_processus * return; } - if ((*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].objet == NULL) + 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).s_liste_variables[(*s_etat_processus) - .position_variable_courante].nom, (*s_etat_processus) - .s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_partagee, - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].origine) == d_faux) + (*(*s_etat_processus).pointeur_variable_courante).nom, + (*(*s_etat_processus).pointeur_variable_courante) + .variable_partagee, (*(*s_etat_processus) + .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 { - s_objet_argument_2 = (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet; + s_objet_argument_2 = (*(*s_etat_processus) + .pointeur_variable_courante).objet; } presence_variable = d_vrai; @@ -1385,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; @@ -1411,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; @@ -1437,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; @@ -1454,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; @@ -1480,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; @@ -1509,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; @@ -1540,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; @@ -1589,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; @@ -1618,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; @@ -1649,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; @@ -1698,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; @@ -1729,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; @@ -1767,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; @@ -1860,21 +1831,17 @@ instruction_col_moins(struct_processus * { if (variable_partagee == d_faux) { - (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet = + (*(*s_etat_processus).pointeur_variable_courante).objet = s_copie_argument_2; } 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).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet = - NULL; + (*(*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;