--- rpl/src/instructions_m1.c 2013/03/16 11:31:41 1.42 +++ rpl/src/instructions_m1.c 2013/03/20 22:24:36 1.43 @@ -53,9 +53,9 @@ instruction_moins(struct_processus *s_et struct_objet *s_objet_argument_2; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long nombre_elements; + integer8 i; + integer8 j; + integer8 nombre_elements; (*s_etat_processus).erreur_execution = d_ex; @@ -184,13 +184,13 @@ instruction_moins(struct_processus *s_et if ((*s_objet_argument_1).type == INT) { (*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) - (*s_objet_argument_2).objet)) - (*((integer8 *) - (*s_objet_argument_1).objet)); + (*s_objet_argument_2).objet)) - ((real8) (*((integer8 *) + (*s_objet_argument_1).objet))); } else { - (*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) - (*s_objet_argument_2).objet)) - (*((real8 *) + (*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) + (*s_objet_argument_2).objet))) - (*((real8 *) (*s_objet_argument_1).objet)); } } @@ -336,8 +336,8 @@ instruction_moins(struct_processus *s_et (*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(integer8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -364,8 +364,8 @@ instruction_moins(struct_processus *s_et free((*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau); if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -418,8 +418,8 @@ instruction_moins(struct_processus *s_et (*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -433,15 +433,15 @@ instruction_moins(struct_processus *s_et ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) .tableau)[i] = ((real8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)).tableau)[i] - - ((integer8 *) (*((struct_vecteur *) - (*s_objet_argument_1).objet)).tableau)[i]; + - ((real8) ((integer8 *) (*((struct_vecteur *) + (*s_objet_argument_1).objet)).tableau)[i]); } else { ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) - .tableau)[i] = ((integer8 *) (*((struct_vecteur *) - (*s_objet_argument_2).objet)).tableau)[i] - - ((real8 *) (*((struct_vecteur *) + .tableau)[i] = ((real8) ((integer8 *) + (*((struct_vecteur *) (*s_objet_argument_2).objet)) + .tableau)[i]) - ((real8 *) (*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[i]; } } @@ -476,8 +476,8 @@ instruction_moins(struct_processus *s_et (*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -525,8 +525,8 @@ instruction_moins(struct_processus *s_et (*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -588,8 +588,8 @@ instruction_moins(struct_processus *s_et (*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -649,8 +649,8 @@ instruction_moins(struct_processus *s_et (*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -710,8 +710,8 @@ instruction_moins(struct_processus *s_et .nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(integer8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(integer8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -723,9 +723,9 @@ instruction_moins(struct_processus *s_et .objet))).nombre_lignes; i++) { if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i] = malloc((*(( + .objet)).tableau)[i] = malloc(((size_t) (*(( (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(integer8))) == NULL) + .nombre_colonnes) * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -759,9 +759,9 @@ instruction_moins(struct_processus *s_et (*s_objet_resultat).objet)).tableau)[i]); if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i] = malloc((*(( + .objet)).tableau)[i] = malloc(((size_t) (*(( (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(real8))) == NULL) + .nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -821,8 +821,8 @@ instruction_moins(struct_processus *s_et .nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -832,9 +832,9 @@ instruction_moins(struct_processus *s_et .objet))).nombre_lignes; i++) { if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i] = malloc((*(( + .objet)).tableau)[i] = malloc(((size_t) (*(( (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(real8))) == NULL) + .nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -848,16 +848,16 @@ instruction_moins(struct_processus *s_et ((real8 **) (*((struct_matrice *) (*s_objet_resultat) .objet)).tableau)[i][j] = ((real8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)) - .tableau)[i][j] - ((integer8 **) + .tableau)[i][j] - ((real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_1).objet)) - .tableau)[i][j]; + .tableau)[i][j]); } else { ((real8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i][j] = ((integer8 **) + .objet)).tableau)[i][j] = ((real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_2) - .objet)).tableau)[i][j] - ((real8 **) + .objet)).tableau)[i][j]) - ((real8 **) (*((struct_matrice *) (*s_objet_argument_1).objet)) .tableau)[i][j]; } @@ -902,8 +902,8 @@ instruction_moins(struct_processus *s_et .nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -913,9 +913,9 @@ instruction_moins(struct_processus *s_et .objet))).nombre_lignes; i++) { if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i] = malloc((*(( + .objet)).tableau)[i] = malloc(((size_t) (*(( (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(real8))) == NULL) + .nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -972,8 +972,9 @@ instruction_moins(struct_processus *s_et .nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -983,9 +984,10 @@ instruction_moins(struct_processus *s_et .objet))).nombre_lignes; i++) { if ((((struct_complexe16 **) (*((struct_matrice *) - (*s_objet_resultat).objet)).tableau)[i] = malloc((*(( - (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(struct_complexe16))) == NULL) + (*s_objet_resultat).objet)).tableau)[i] = malloc( + ((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -1056,8 +1058,9 @@ instruction_moins(struct_processus *s_et .nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -1067,9 +1070,9 @@ instruction_moins(struct_processus *s_et .objet))).nombre_lignes; i++) { if ((((struct_complexe16 **) (*((struct_matrice *) - (*s_objet_resultat).objet)).tableau)[i] = malloc((*(( - (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(struct_complexe16))) == NULL) + (*s_objet_resultat).objet)).tableau)[i] = malloc(((size_t) + (*(((struct_matrice *) (*s_objet_resultat).objet))) + .nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -1138,8 +1141,9 @@ instruction_moins(struct_processus *s_et .nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -1149,9 +1153,9 @@ instruction_moins(struct_processus *s_et .objet))).nombre_lignes; i++) { if ((((struct_complexe16 **) (*((struct_matrice *) - (*s_objet_resultat).objet)).tableau)[i] = malloc((*(( - (struct_matrice *) (*s_objet_resultat).objet))) - .nombre_colonnes * sizeof(struct_complexe16))) == NULL) + (*s_objet_resultat).objet)).tableau)[i] = malloc(((size_t) + (*(((struct_matrice *) (*s_objet_resultat).objet))) + .nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -1214,14 +1218,15 @@ instruction_moins(struct_processus *s_et if ((*s_objet_argument_1).type == BIN) { (*((logical8 *) (*s_objet_resultat).objet)) = - (*((integer8 *) (*s_objet_argument_2).objet)) + ((logical8) (*((integer8 *) (*s_objet_argument_2).objet))) - (*((logical8 *) (*s_objet_argument_1).objet)); } else { (*((logical8 *) (*s_objet_resultat).objet)) = (*((logical8 *) (*s_objet_argument_2).objet)) - - (*((integer8 *) (*s_objet_argument_1).objet)); + - ((logical8) (*((integer8 *) (*s_objet_argument_1) + .objet))); } } @@ -1933,10 +1938,10 @@ instruction_multiplication(struct_proces struct_objet *s_objet_argument_2; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long k; - unsigned long nombre_elements; + integer8 i; + integer8 j; + integer8 k; + integer8 nombre_elements; void *accumulateur; @@ -2083,13 +2088,13 @@ instruction_multiplication(struct_proces if ((*s_objet_argument_1).type == INT) { (*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) - (*s_objet_argument_2).objet)) * (*((integer8 *) - (*s_objet_argument_1).objet)); + (*s_objet_argument_2).objet)) * ((real8) (*((integer8 *) + (*s_objet_argument_1).objet))); } else { - (*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) - (*s_objet_argument_2).objet)) * (*((real8 *) + (*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) + (*s_objet_argument_2).objet))) * (*((real8 *) (*s_objet_argument_1).objet)); } } @@ -2234,8 +2239,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(integer8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2276,8 +2281,8 @@ instruction_multiplication(struct_proces (*((struct_vecteur *) (*s_objet_resultat).objet)).type = 'R'; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2334,8 +2339,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2347,16 +2352,18 @@ instruction_multiplication(struct_proces if ((*s_objet_argument_1).type == VRL) { ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) - .tableau)[i] = (*((integer8 *) (*s_objet_argument_2) - .objet)) * ((real8 *) (*((struct_vecteur *) - (*s_objet_argument_1).objet)).tableau)[i]; + .tableau)[i] = ((real8) (*((integer8 *) + (*s_objet_argument_2).objet))) * ((real8 *) + (*((struct_vecteur *) (*s_objet_argument_1).objet)) + .tableau)[i]; } else { ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) - .tableau)[i] = (*((integer8 *) (*s_objet_argument_1) - .objet)) * ((real8 *) (*((struct_vecteur *) - (*s_objet_argument_2).objet)).tableau)[i]; + .tableau)[i] = ((real8) (*((integer8 *) + (*s_objet_argument_1).objet))) * ((real8 *) + (*((struct_vecteur *) (*s_objet_argument_2).objet)) + .tableau)[i]; } } } @@ -2389,8 +2396,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2448,8 +2455,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2462,15 +2469,15 @@ instruction_multiplication(struct_proces { ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) .tableau)[i] = (*((real8 *) (*s_objet_argument_2) - .objet)) * ((integer8 *) (*((struct_vecteur *) - (*s_objet_argument_1).objet)).tableau)[i]; + .objet)) * ((real8) ((integer8 *) (*((struct_vecteur *) + (*s_objet_argument_1).objet)).tableau)[i]); } else { ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) .tableau)[i] = (*((real8 *) (*s_objet_argument_1) - .objet)) * ((integer8 *) (*((struct_vecteur *) - (*s_objet_argument_2).objet)).tableau)[i]; + .objet)) * ((real8) ((integer8 *) (*((struct_vecteur *) + (*s_objet_argument_2).objet)).tableau)[i]); } } } @@ -2503,8 +2510,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2558,8 +2565,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2617,8 +2624,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2676,8 +2683,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2735,8 +2742,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_vecteur *) (*s_objet_resultat) - .objet))).taille * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) + .objet))).taille) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2809,8 +2816,8 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(integer8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(integer8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2822,8 +2829,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(integer8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2871,8 +2878,8 @@ instruction_multiplication(struct_proces (*s_objet_resultat).objet)).tableau)[i]); if (((*((struct_matrice *) (*s_objet_resultat).objet)) - .tableau[i] = malloc((*(((struct_matrice *) - (*s_objet_resultat).objet))).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_resultat).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -2942,8 +2949,8 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2953,8 +2960,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -2967,16 +2974,16 @@ instruction_multiplication(struct_proces { ((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i][j] = - (*((integer8 *) (*s_objet_argument_2) - .objet)) * ((real8 **) (*((struct_matrice *) + ((real8) (*((integer8 *) (*s_objet_argument_2) + .objet))) * ((real8 **) (*((struct_matrice *) (*s_objet_argument_1).objet)).tableau)[i][j]; } else { ((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i][j] = - (*((integer8 *) (*s_objet_argument_1) - .objet)) * ((real8 **) (*((struct_matrice *) + ((real8) (*((integer8 *) (*s_objet_argument_1) + .objet))) * ((real8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)).tableau)[i][j]; } } @@ -3019,8 +3026,9 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3030,8 +3038,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3099,8 +3107,8 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3110,8 +3118,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3125,16 +3133,16 @@ instruction_multiplication(struct_proces ((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i][j] = (*((real8 *) (*s_objet_argument_2) - .objet)) * ((integer8 **) (*((struct_matrice *) - (*s_objet_argument_1).objet)).tableau)[i][j]; + .objet)) * ((real8) ((integer8 **) (*((struct_matrice *) + (*s_objet_argument_1).objet)).tableau)[i][j]); } else { ((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i][j] = (*((real8 *) (*s_objet_argument_1) - .objet)) * ((integer8 **) (*((struct_matrice *) - (*s_objet_argument_2).objet)).tableau)[i][j]; + .objet)) * ((real8) ((integer8 **) (*((struct_matrice *) + (*s_objet_argument_2).objet)).tableau)[i][j]); } } } @@ -3176,8 +3184,8 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3187,8 +3195,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3253,8 +3261,9 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3264,8 +3273,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3333,8 +3342,9 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3344,8 +3354,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3413,8 +3423,9 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3424,8 +3435,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3493,8 +3504,9 @@ instruction_multiplication(struct_proces } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3504,8 +3516,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3573,8 +3585,8 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(integer8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3618,8 +3630,9 @@ instruction_multiplication(struct_proces (*((struct_vecteur *) (*s_objet_resultat).objet)).type = 'R'; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_lignes) * + sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -3678,15 +3691,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3699,10 +3712,10 @@ instruction_multiplication(struct_proces for(k = 0; k < (*(((struct_matrice *) (*s_objet_argument_2) .objet))).nombre_colonnes; k++) { - ((real8 *) accumulateur)[k] = (((integer8 **) + ((real8 *) accumulateur)[k] = ((real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)) - .tableau)[i][k] * ((real8 *) (*((struct_vecteur *) - (*s_objet_argument_1).objet)).tableau)[k]); + .tableau)[i][k]) * ((real8 *) (*((struct_vecteur *) + (*s_objet_argument_1).objet)).tableau)[k]; } ((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) @@ -3751,15 +3764,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3825,15 +3838,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3846,9 +3859,9 @@ instruction_multiplication(struct_proces for(k = 0; k < (*(((struct_matrice *) (*s_objet_argument_2) .objet))).nombre_colonnes; k++) { - ((real8 *) accumulateur)[k] = (((real8 **) (*((struct_matrice *) + ((real8 *) accumulateur)[k] = ((real8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)).tableau)[i][k] * - ((integer8 *) (*((struct_vecteur *) + ((real8) ((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau)[k]); } @@ -3898,15 +3911,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3971,15 +3984,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4045,15 +4058,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4119,15 +4132,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4193,15 +4206,15 @@ instruction_multiplication(struct_proces } if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_argument_2) - .objet))).nombre_lignes * sizeof(struct_complexe16))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument_2) + .objet))).nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4274,8 +4287,8 @@ instruction_multiplication(struct_proces .objet))).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(integer8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(integer8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -4287,8 +4300,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(integer8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -4330,8 +4343,8 @@ instruction_multiplication(struct_proces (*s_objet_resultat).type = MRL; (*((struct_matrice *) (*s_objet_resultat).objet)).type = 'R'; - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4345,8 +4358,8 @@ instruction_multiplication(struct_proces (*s_objet_resultat).objet)).tableau)[i]); if (((*((struct_matrice *) (*s_objet_resultat).objet)) - .tableau[i] = malloc((*(((struct_matrice *) - (*s_objet_resultat).objet))).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_resultat).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = @@ -4424,15 +4437,15 @@ instruction_multiplication(struct_proces .objet))).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4443,8 +4456,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -4459,17 +4472,17 @@ instruction_multiplication(struct_proces if ((*s_objet_argument_1).type == MRL) { ((real8 *) accumulateur)[k] = - (((integer8 **) (*((struct_matrice *) - (*s_objet_argument_2).objet)).tableau)[i][k] * + ((real8) ((integer8 **) (*((struct_matrice *) + (*s_objet_argument_2).objet)).tableau)[i][k]) * ((real8 **) (*((struct_matrice *) - (*s_objet_argument_1).objet)).tableau)[k][j]); + (*s_objet_argument_1).objet)).tableau)[k][j]; } else { ((real8 *) accumulateur)[k] = - (((real8 **) (*((struct_matrice *) + ((real8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)).tableau)[i][k] * - ((integer8 **) (*((struct_matrice *) + ((real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_1).objet)).tableau)[k][j]); } } @@ -4527,15 +4540,16 @@ instruction_multiplication(struct_proces .objet))).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4546,8 +4560,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4631,15 +4645,15 @@ instruction_multiplication(struct_proces .objet))).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4650,8 +4664,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(real8))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -4723,15 +4737,16 @@ instruction_multiplication(struct_proces .objet))).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4742,8 +4757,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4827,15 +4842,16 @@ instruction_multiplication(struct_proces .objet))).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_lignes) * sizeof(struct_complexe16 *))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if ((accumulateur = malloc((*(((struct_matrice *) - (*s_objet_argument_2).objet))).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*(((struct_matrice *) + (*s_objet_argument_2).objet))).nombre_colonnes) * sizeof(complex16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4846,8 +4862,8 @@ instruction_multiplication(struct_proces .objet))).nombre_lignes; i++) { if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau[i] = - malloc((*(((struct_matrice *) (*s_objet_resultat) - .objet))).nombre_colonnes * sizeof(struct_complexe16))) + malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) + .objet))).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -4936,14 +4952,15 @@ instruction_multiplication(struct_proces if ((*s_objet_argument_1).type == BIN) { (*((logical8 *) (*s_objet_resultat).objet)) = - (*((integer8 *) (*s_objet_argument_2).objet)) + ((logical8) (*((integer8 *) (*s_objet_argument_2).objet))) * (*((logical8 *) (*s_objet_argument_1).objet)); } else { (*((logical8 *) (*s_objet_resultat).objet)) = (*((logical8 *) (*s_objet_argument_2).objet)) - * (*((integer8 *) (*s_objet_argument_1).objet)); + * ((logical8) (*((integer8 *) (*s_objet_argument_1) + .objet))); } } @@ -5862,7 +5879,7 @@ instruction_mant(struct_processus *s_eta return; } - exposant = (integer8) floor(log10((*((integer8 *) + exposant = (integer8) floor(log10((real8) (*((integer8 *) (*s_objet_argument).objet)))); base_entiere = 10; @@ -5870,7 +5887,7 @@ instruction_mant(struct_processus *s_eta (*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) (*s_objet_argument).objet))) / - reduction_entiere; + ((real8) reduction_entiere); } /* @@ -6129,9 +6146,9 @@ instruction_mod(struct_processus *s_etat struct_objet *s_objet_argument_2; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long nombre_elements; + integer8 i; + integer8 j; + integer8 nombre_elements; (*s_etat_processus).erreur_execution = d_ex; @@ -6216,9 +6233,9 @@ instruction_mod(struct_processus *s_etat (*((integer8 *) (*s_objet_resultat).objet)) = (*((integer8 *) (*s_objet_argument_2).objet)) - ((*((integer8 *) (*s_objet_argument_1).objet)) * - floor(((real8) (*((integer8 *) (*s_objet_argument_2) - .objet))) / ((real8) (*((integer8 *) - (*s_objet_argument_1).objet))))); + ((integer8) floor(((real8) (*((integer8 *) + (*s_objet_argument_2).objet))) / ((real8) + (*((integer8 *) (*s_objet_argument_1).objet)))))); } else { @@ -6232,7 +6249,7 @@ instruction_mod(struct_processus *s_etat (*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) (*s_objet_argument_2).objet)) - - ((*((integer8 *) (*s_objet_argument_1).objet)) * + ((real8) (*((integer8 *) (*s_objet_argument_1).objet)) * floor((*((real8 *) (*s_objet_argument_2) .objet)) / ((real8) (*((integer8 *) (*s_objet_argument_1).objet))))); @@ -6250,8 +6267,8 @@ instruction_mod(struct_processus *s_etat return; } - (*((real8 *) (*s_objet_resultat).objet)) = - (*((integer8 *) (*s_objet_argument_2).objet)) - + (*((real8 *) (*s_objet_resultat).objet)) = ((real8) + (*((integer8 *) (*s_objet_argument_2).objet))) - ((*((real8 *) (*s_objet_argument_1).objet)) * floor(((real8) (*((integer8 *) (*s_objet_argument_2) .objet))) / (*((real8 *) @@ -6305,8 +6322,9 @@ instruction_mod(struct_processus *s_etat .taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_vecteur *) (*s_objet_resultat).objet)) - .taille * sizeof(integer8))) == NULL) + malloc(((size_t) (*((struct_vecteur *) + (*s_objet_resultat).objet)).taille) * sizeof(integer8))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6320,11 +6338,11 @@ instruction_mod(struct_processus *s_etat .objet)).tableau)[i] = ((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)) .tableau)[i] - ((*((integer8 *) - (*s_objet_argument_1).objet)) * floor(((real8) - ((integer8 *) (*((struct_vecteur *) + (*s_objet_argument_1).objet)) * ((integer8) + floor(((real8) ((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)).tableau)[i]) / ((real8) (*((integer8 *) (*s_objet_argument_1) - .objet))))); + .objet)))))); } } else @@ -6342,8 +6360,9 @@ instruction_mod(struct_processus *s_etat .taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_vecteur *) (*s_objet_resultat).objet)) - .taille * sizeof(real8))) == NULL) + malloc(((size_t) (*((struct_vecteur *) + (*s_objet_resultat).objet)).taille) * sizeof(real8))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6356,7 +6375,7 @@ instruction_mod(struct_processus *s_etat ((real8 *) (*((struct_vecteur *) (*s_objet_resultat) .objet)).tableau)[i] = ((real8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)) - .tableau)[i] - ((*((integer8 *) + .tableau)[i] - ((real8) (*((integer8 *) (*s_objet_argument_1).objet)) * floor( ((real8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)).tableau)[i] / @@ -6382,8 +6401,9 @@ instruction_mod(struct_processus *s_etat .taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_vecteur *) (*s_objet_resultat).objet)) - .taille * sizeof(real8))) == NULL) + malloc(((size_t) (*((struct_vecteur *) + (*s_objet_resultat).objet)).taille) * sizeof(real8))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6394,9 +6414,9 @@ instruction_mod(struct_processus *s_etat .taille; i++) { ((real8 *) (*((struct_vecteur *) (*s_objet_resultat) - .objet)).tableau)[i] = ((integer8 *) + .objet)).tableau)[i] = ((real8) ((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)) - .tableau)[i] - ((*((real8 *) + .tableau)[i]) - ((*((real8 *) (*s_objet_argument_1).objet)) * floor(((real8) ((integer8 *) (*((struct_vecteur *) (*s_objet_argument_2).objet)).tableau)[i]) / @@ -6419,8 +6439,9 @@ instruction_mod(struct_processus *s_etat .taille; if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_vecteur *) (*s_objet_resultat).objet)) - .taille * sizeof(real8))) == NULL) + malloc(((size_t) (*((struct_vecteur *) + (*s_objet_resultat).objet)).taille) * sizeof(real8))) + == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6475,8 +6496,9 @@ instruction_mod(struct_processus *s_etat (*s_objet_argument_2).objet)).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_matrice *) (*s_objet_resultat).objet)) - .nombre_lignes * sizeof(integer8 *))) == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * + sizeof(integer8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6488,9 +6510,9 @@ instruction_mod(struct_processus *s_etat { if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i] = - malloc((*((struct_matrice *) (*s_objet_resultat) - .objet)).nombre_colonnes * sizeof(integer8))) - == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_colonnes) + * sizeof(integer8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6504,11 +6526,12 @@ instruction_mod(struct_processus *s_etat .objet)).tableau)[i][j] = ((integer8 **) (*((struct_matrice *) (*s_objet_argument_2) .objet)).tableau)[i][j] - ((*((integer8 *) - (*s_objet_argument_1).objet)) * floor(((real8) + (*s_objet_argument_1).objet)) * + ((integer8) floor(((real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)).tableau)[i][j]) / ((real8) (*((integer8 *) (*s_objet_argument_1) - .objet))))); + .objet)))))); } } } @@ -6530,8 +6553,9 @@ instruction_mod(struct_processus *s_etat (*s_objet_argument_2).objet)).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_matrice *) (*s_objet_resultat).objet)) - .nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * + sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6543,9 +6567,9 @@ instruction_mod(struct_processus *s_etat { if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i] = - malloc((*((struct_matrice *) (*s_objet_resultat) - .objet)).nombre_colonnes * sizeof(real8))) - == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_colonnes) * + sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6558,7 +6582,8 @@ instruction_mod(struct_processus *s_etat ((real8 **) (*((struct_matrice *) (*s_objet_resultat) .objet)).tableau)[i][j] = ((real8 **) (*((struct_matrice *) (*s_objet_argument_2) - .objet)).tableau)[i][j] - ((*((integer8 *) + .objet)).tableau)[i][j] - + ((real8) (*((integer8 *) (*s_objet_argument_1).objet)) * floor( ((real8 **) (*((struct_matrice *) (*s_objet_argument_2).objet)).tableau)[i][j] / @@ -6588,8 +6613,9 @@ instruction_mod(struct_processus *s_etat (*s_objet_argument_2).objet)).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_matrice *) (*s_objet_resultat).objet)) - .nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * + sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6601,9 +6627,9 @@ instruction_mod(struct_processus *s_etat { if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i] = - malloc((*((struct_matrice *) (*s_objet_resultat) - .objet)).nombre_colonnes * sizeof(real8))) - == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_colonnes) + * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6614,14 +6640,14 @@ instruction_mod(struct_processus *s_etat .objet)).nombre_colonnes; j++) { ((real8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i][j] = ((integer8 **) + .objet)).tableau)[i][j] = ((real8) + ((integer8 **) (*((struct_matrice *) + (*s_objet_argument_2).objet)).tableau)[i][j]) + - ((*((real8 *) (*s_objet_argument_1).objet)) * + floor(((real8) ((integer8 **) (*((struct_matrice *) (*s_objet_argument_2) - .objet)).tableau)[i][j] - ((*((real8 *) - (*s_objet_argument_1).objet)) * floor(((real8) - ((integer8 **) (*((struct_matrice *) - (*s_objet_argument_2).objet)).tableau)[i][j]) / - (*((real8 *) (*s_objet_argument_1) - .objet)))); + .objet)).tableau)[i][j]) / (*((real8 *) + (*s_objet_argument_1).objet)))); } } } @@ -6643,8 +6669,9 @@ instruction_mod(struct_processus *s_etat (*s_objet_argument_2).objet)).nombre_colonnes; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_matrice *) (*s_objet_resultat).objet)) - .nombre_lignes * sizeof(real8 *))) == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_lignes) * + sizeof(real8 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -6656,9 +6683,9 @@ instruction_mod(struct_processus *s_etat { if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i] = - malloc((*((struct_matrice *) (*s_objet_resultat) - .objet)).nombre_colonnes * sizeof(real8))) - == NULL) + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_colonnes) * + sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;