--- rpl/src/instructions_p2.c 2012/10/01 11:05:05 1.38 +++ rpl/src/instructions_p2.c 2017/01/18 15:44:21 1.61 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.11 - Copyright (C) 1989-2012 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.26 + Copyright (C) 1989-2017 Dr. BERTRAND Joël This file is part of RPL/2. @@ -112,7 +112,7 @@ instruction_p_vers_r(struct_processus *s if ((*s_objet_argument).type == INT) { (*((struct_complexe16 *) (*s_objet_resultat).objet)).partie_reelle - = (*((integer8 *) (*s_objet_argument).objet)); + = (real8) (*((integer8 *) (*s_objet_argument).objet)); } else { @@ -389,11 +389,11 @@ instruction_put(struct_processus *s_etat struct_objet *s_objet_4; struct_objet *s_objet_element; - unsigned long i; - unsigned long indice_i; - unsigned long indice_j; - unsigned long j; - unsigned long nombre_dimensions; + integer8 i; + integer8 indice_i; + integer8 indice_j; + integer8 j; + integer8 nombre_dimensions; void *tampon; @@ -610,8 +610,8 @@ instruction_put(struct_processus *s_etat (*s_objet_3).type = VRL; if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_3).objet)).taille * sizeof(real8))) + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_3).objet)).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -645,8 +645,8 @@ instruction_put(struct_processus *s_etat (*s_objet_3).type = VCX; if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_3).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_3).objet)).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -726,8 +726,8 @@ instruction_put(struct_processus *s_etat (*s_objet_3).type = VCX; if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_3).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_3).objet)).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -969,8 +969,8 @@ instruction_put(struct_processus *s_etat (*s_objet_3).type = MRL; if (((*((struct_matrice *) (*s_objet_3).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_lignes * sizeof(real8 *))) + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -983,8 +983,8 @@ instruction_put(struct_processus *s_etat { if ((((real8 **) (*((struct_matrice *) (*s_objet_3).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -1022,8 +1022,8 @@ instruction_put(struct_processus *s_etat (*s_objet_3).type = MCX; if (((*((struct_matrice *) (*s_objet_3).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -1036,8 +1036,8 @@ instruction_put(struct_processus *s_etat { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_3).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -1122,8 +1122,8 @@ instruction_put(struct_processus *s_etat (*s_objet_3).type = MCX; if (((*((struct_matrice *) (*s_objet_3).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -1136,8 +1136,8 @@ instruction_put(struct_processus *s_etat { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_3).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -1454,26 +1454,12 @@ instruction_put(struct_processus *s_etat if (s_objet_4 == 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) { - if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).erreur_execution = d_ex_variable_non_definie; @@ -1485,9 +1471,8 @@ instruction_put(struct_processus *s_etat return; } - s_objet_4 = (*(*s_etat_processus).s_liste_variables_partagees) - .table[(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet; + s_objet_4 = (*(*s_etat_processus) + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } @@ -1500,7 +1485,7 @@ instruction_put(struct_processus *s_etat 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; @@ -1530,7 +1515,7 @@ instruction_put(struct_processus *s_etat 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; @@ -1553,7 +1538,7 @@ instruction_put(struct_processus *s_etat 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; @@ -1574,7 +1559,7 @@ instruction_put(struct_processus *s_etat 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; @@ -1595,7 +1580,7 @@ instruction_put(struct_processus *s_etat 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; @@ -1618,7 +1603,7 @@ instruction_put(struct_processus *s_etat 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; @@ -1661,14 +1646,15 @@ instruction_put(struct_processus *s_etat (*s_objet_4).type = VRL; if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_4).objet)).taille * sizeof(real8))) + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_4).objet)).taille) * 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; @@ -1708,14 +1694,15 @@ instruction_put(struct_processus *s_etat (*s_objet_4).type = VCX; if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_4).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_4).objet)).taille) * sizeof(struct_complexe16))) == 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; @@ -1755,7 +1742,8 @@ instruction_put(struct_processus *s_etat 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; @@ -1811,14 +1799,15 @@ instruction_put(struct_processus *s_etat (*s_objet_4).type = VCX; if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_4).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_4).objet)).taille) * sizeof(struct_complexe16))) == 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; @@ -1858,7 +1847,8 @@ instruction_put(struct_processus *s_etat 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; @@ -1928,7 +1918,8 @@ instruction_put(struct_processus *s_etat 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; @@ -1954,12 +1945,11 @@ instruction_put(struct_processus *s_etat else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_4; + (*(*s_etat_processus).pointeur_variable_partagee_courante) + .objet = s_objet_4; 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; @@ -1979,7 +1969,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2009,7 +1999,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2037,7 +2027,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2059,7 +2050,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2096,7 +2088,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2117,7 +2109,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2160,14 +2152,15 @@ instruction_put(struct_processus *s_etat (*s_objet_4).type = MRL; if (((*((struct_matrice *) (*s_objet_4).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).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; @@ -2185,15 +2178,15 @@ instruction_put(struct_processus *s_etat { if ((((real8 **) (*((struct_matrice *) (*s_objet_4).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).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; @@ -2236,14 +2229,15 @@ instruction_put(struct_processus *s_etat (*s_objet_4).type = MCX; if (((*((struct_matrice *) (*s_objet_4).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == 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; @@ -2261,15 +2255,15 @@ instruction_put(struct_processus *s_etat { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_4).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == 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; @@ -2315,7 +2309,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2371,15 +2366,15 @@ instruction_put(struct_processus *s_etat (*s_objet_4).type = MCX; if (((*((struct_matrice *) (*s_objet_4).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == 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; @@ -2397,15 +2392,15 @@ instruction_put(struct_processus *s_etat { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_4).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == 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; @@ -2451,7 +2446,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2524,7 +2520,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2550,13 +2547,11 @@ instruction_put(struct_processus *s_etat else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_4; + (*(*s_etat_processus).pointeur_variable_partagee_courante) + .objet = s_objet_4; 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; @@ -2575,8 +2570,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2604,7 +2598,7 @@ instruction_put(struct_processus *s_etat if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = @@ -2640,7 +2634,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2664,12 +2658,11 @@ instruction_put(struct_processus *s_etat else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_4; + (*(*s_etat_processus).pointeur_variable_partagee_courante) + .objet = s_objet_4; 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; @@ -2687,7 +2680,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2712,7 +2705,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2740,7 +2734,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2762,7 +2757,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2788,7 +2784,8 @@ instruction_put(struct_processus *s_etat 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; @@ -2827,12 +2824,11 @@ instruction_put(struct_processus *s_etat else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_4; + (*(*s_etat_processus).pointeur_variable_partagee_courante) + .objet = s_objet_4; 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; @@ -2847,7 +2843,7 @@ instruction_put(struct_processus *s_etat 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; @@ -2911,12 +2907,12 @@ instruction_puti(struct_processus *s_eta struct_objet *s_objet_3; struct_objet *s_objet_4; - unsigned long i; - unsigned long indice_i; - unsigned long indice_j; - unsigned long j; - unsigned long nombre_dimensions; - unsigned long nombre_elements; + integer8 i; + integer8 indice_i; + integer8 indice_j; + integer8 j; + integer8 nombre_dimensions; + integer8 nombre_elements; void *tampon; @@ -3122,8 +3118,8 @@ instruction_puti(struct_processus *s_eta (*s_objet_3).type = VRL; if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_3).objet)).taille * sizeof(real8))) + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_3).objet)).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3157,8 +3153,8 @@ instruction_puti(struct_processus *s_eta (*s_objet_3).type = VCX; if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_3).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_3).objet)).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3238,8 +3234,8 @@ instruction_puti(struct_processus *s_eta (*s_objet_3).type = VCX; if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_3).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_3).objet)).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3490,8 +3486,8 @@ instruction_puti(struct_processus *s_eta (*s_objet_3).type = MRL; if (((*((struct_matrice *) (*s_objet_3).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_lignes * sizeof(real8 *))) + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3504,8 +3500,8 @@ instruction_puti(struct_processus *s_eta { if ((((real8 **) (*((struct_matrice *) (*s_objet_3).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3543,8 +3539,8 @@ instruction_puti(struct_processus *s_eta (*s_objet_3).type = MCX; if (((*((struct_matrice *) (*s_objet_3).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3557,8 +3553,8 @@ instruction_puti(struct_processus *s_eta { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_3).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3643,8 +3639,8 @@ instruction_puti(struct_processus *s_eta (*s_objet_3).type = MCX; if (((*((struct_matrice *) (*s_objet_3).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3657,8 +3653,8 @@ instruction_puti(struct_processus *s_eta { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_3).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_3).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_3).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -3918,21 +3914,14 @@ instruction_puti(struct_processus *s_eta if (s_objet_4 == 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) { 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; @@ -3949,9 +3938,8 @@ instruction_puti(struct_processus *s_eta return; } - s_objet_4 = (*(*s_etat_processus).s_liste_variables_partagees) - .table[(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet; + s_objet_4 = (*(*s_etat_processus) + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } @@ -3964,7 +3952,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -3994,7 +3982,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4017,7 +4005,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4038,7 +4026,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4059,7 +4047,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4082,7 +4070,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4125,14 +4113,15 @@ instruction_puti(struct_processus *s_eta (*s_objet_4).type = VRL; if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_4).objet)).taille * sizeof(real8))) + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_4).objet)).taille) * 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; @@ -4172,14 +4161,15 @@ instruction_puti(struct_processus *s_eta (*s_objet_4).type = VCX; if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_4).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_4).objet)).taille) * sizeof(struct_complexe16))) == 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; @@ -4219,7 +4209,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -4275,14 +4266,15 @@ instruction_puti(struct_processus *s_eta (*s_objet_4).type = VCX; if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau - = malloc((*((struct_vecteur *) - (*s_objet_4).objet)).taille * + = malloc(((size_t) (*((struct_vecteur *) + (*s_objet_4).objet)).taille) * sizeof(struct_complexe16))) == 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; @@ -4322,7 +4314,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -4392,7 +4385,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -4422,15 +4416,13 @@ instruction_puti(struct_processus *s_eta else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees) - .table[(*(*s_etat_processus) - .s_liste_variables_partagees).position_variable].objet - = s_objet_4; + (*(*s_etat_processus) + .pointeur_variable_partagee_courante).objet = s_objet_4; 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; @@ -4449,7 +4441,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4479,7 +4471,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4507,7 +4499,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -4529,7 +4522,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -4566,7 +4560,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4587,7 +4581,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -4630,14 +4624,15 @@ instruction_puti(struct_processus *s_eta (*s_objet_4).type = MRL; if (((*((struct_matrice *) (*s_objet_4).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).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; @@ -4655,15 +4650,15 @@ instruction_puti(struct_processus *s_eta { if ((((real8 **) (*((struct_matrice *) (*s_objet_4).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).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; @@ -4706,14 +4701,15 @@ instruction_puti(struct_processus *s_eta (*s_objet_4).type = MCX; if (((*((struct_matrice *) (*s_objet_4).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == 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; @@ -4731,15 +4727,15 @@ instruction_puti(struct_processus *s_eta { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_4).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == 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; @@ -4785,7 +4781,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -4841,14 +4838,15 @@ instruction_puti(struct_processus *s_eta (*s_objet_4).type = MCX; if (((*((struct_matrice *) (*s_objet_4).objet)).tableau - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_lignes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == 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; @@ -4866,15 +4864,15 @@ instruction_puti(struct_processus *s_eta { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_4).objet)).tableau)[i] - = malloc((*((struct_matrice *) - (*s_objet_4).objet)).nombre_colonnes * + = malloc(((size_t) (*((struct_matrice *) + (*s_objet_4).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == 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; @@ -4920,7 +4918,7 @@ instruction_puti(struct_processus *s_eta if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = @@ -4994,7 +4992,7 @@ instruction_puti(struct_processus *s_eta if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = @@ -5038,14 +5036,13 @@ instruction_puti(struct_processus *s_eta else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_4; + (*(*s_etat_processus).pointeur_variable_partagee_courante) + .objet = s_objet_4; 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; @@ -5063,7 +5060,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -5091,7 +5088,8 @@ instruction_puti(struct_processus *s_eta 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; @@ -5135,7 +5133,7 @@ instruction_puti(struct_processus *s_eta 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; @@ -5162,14 +5160,13 @@ instruction_puti(struct_processus *s_eta else { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_4; + (*(*s_etat_processus).pointeur_variable_partagee_courante) + .objet = s_objet_4; 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; @@ -5183,7 +5180,7 @@ instruction_puti(struct_processus *s_eta 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;