--- rpl/src/instructions_i2.c 2012/08/22 10:47:16 1.41 +++ rpl/src/instructions_i2.c 2020/01/10 11:15:46 1.74 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.10 - Copyright (C) 1989-2012 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.32 + Copyright (C) 1989-2020 Dr. BERTRAND Joël This file is part of RPL/2. @@ -44,8 +44,8 @@ instruction_idn(struct_processus *s_etat logical1 argument_nom; logical1 variable_partagee; - unsigned long i; - unsigned long j; + integer8 i; + integer8 j; (*s_etat_processus).erreur_execution = d_ex; @@ -119,26 +119,12 @@ instruction_idn(struct_processus *s_etat if (s_objet_argument == 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; @@ -147,8 +133,7 @@ instruction_idn(struct_processus *s_etat } s_objet_argument = (*(*s_etat_processus) - .s_liste_variables_partagees).table[(*(*s_etat_processus) - .s_liste_variables_partagees).position_variable].objet; + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } else @@ -181,7 +166,7 @@ instruction_idn(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; @@ -215,7 +200,7 @@ instruction_idn(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; @@ -238,13 +223,13 @@ instruction_idn(struct_processus *s_etat } 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) { 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; @@ -259,14 +244,14 @@ instruction_idn(struct_processus *s_etat .nombre_lignes; i++) { if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i] = malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_colonnes * - sizeof(integer8))) == NULL) + .objet)).tableau)[i] = malloc(((size_t) + (*((struct_matrice *) (*s_objet_resultat).objet)) + .nombre_colonnes) * sizeof(integer8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -297,7 +282,7 @@ instruction_idn(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; @@ -325,12 +310,11 @@ instruction_idn(struct_processus *s_etat if (variable_partagee == d_vrai) { (*(*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_resultat; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_objet_resultat; 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; @@ -375,10 +359,10 @@ instruction_ifft(struct_processus *s_eta logical1 presence_longueur_fft; - unsigned long i; - unsigned long j; - unsigned long k; - unsigned long longueur_fft; + integer8 i; + integer8 j; + integer8 k; + integer8 longueur_fft; (*s_etat_processus).erreur_execution = d_ex; @@ -484,18 +468,18 @@ instruction_ifft(struct_processus *s_eta { if (presence_longueur_fft == d_faux) { - longueur_fft = pow(2, (integer4) ceil(log((real8) + longueur_fft = (integer8) pow(2, ceil(log((real8) (*((struct_vecteur *) (*s_objet_argument).objet)).taille) / log((real8) 2))); - if ((longueur_fft / ((real8) (*((struct_vecteur *) + if ((((real8) longueur_fft) / ((real8) (*((struct_vecteur *) (*s_objet_argument).objet)).taille)) == 2) { longueur_fft /= 2; } } - if ((matrice_f77 = malloc(longueur_fft * + if ((matrice_f77 = malloc(((size_t) longueur_fft) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -545,7 +529,7 @@ instruction_ifft(struct_processus *s_eta } nombre_lignes = 1; - nombre_colonnes = longueur_fft; + nombre_colonnes = (integer4) longueur_fft; inverse = -1; dft(matrice_f77, &nombre_lignes, &nombre_colonnes, &inverse, &erreur); @@ -581,21 +565,20 @@ instruction_ifft(struct_processus *s_eta { if (presence_longueur_fft == d_faux) { - longueur_fft = pow(2, (integer4) ceil(log((real8) - (*((struct_matrice *) - (*s_objet_argument).objet)).nombre_colonnes) / - log((real8) 2))); + longueur_fft = (integer8) pow(2, ceil(log((real8) + (*((struct_matrice *) (*s_objet_argument).objet)) + .nombre_colonnes) / log((real8) 2))); - if ((longueur_fft / ((real8) (*((struct_matrice *) + if ((((real8) longueur_fft) / ((real8) (*((struct_matrice *) (*s_objet_argument).objet)).nombre_colonnes)) == 2) { longueur_fft /= 2; } } - if ((matrice_f77 = malloc(longueur_fft * - (*((struct_matrice *) (*s_objet_argument).objet)) - .nombre_lignes * sizeof(struct_complexe16))) == NULL) + if ((matrice_f77 = malloc(((size_t) longueur_fft) * + ((size_t) (*((struct_matrice *) (*s_objet_argument).objet)) + .nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -671,9 +654,9 @@ instruction_ifft(struct_processus *s_eta } } - nombre_lignes = (*((struct_matrice *) (*s_objet_argument).objet)) - .nombre_lignes; - nombre_colonnes = longueur_fft; + nombre_lignes = (integer4) (*((struct_matrice *) + (*s_objet_argument).objet)).nombre_lignes; + nombre_colonnes = (integer4) longueur_fft; inverse = -1; dft(matrice_f77, &nombre_lignes, &nombre_colonnes, &inverse, &erreur); @@ -700,8 +683,8 @@ instruction_ifft(struct_processus *s_eta longueur_fft; 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; @@ -712,8 +695,8 @@ instruction_ifft(struct_processus *s_eta { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i] = - malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_colonnes * + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -787,7 +770,7 @@ instruction_input(struct_processus *s_et unsigned char *tampon; unsigned char *tampon2; - unsigned long i; + integer8 i; (*s_etat_processus).erreur_execution = d_ex; @@ -829,6 +812,7 @@ instruction_input(struct_processus *s_et } flockfile(stdin); + (*s_objet_resultat).objet = (void *) readline(""); funlockfile(stdin); @@ -867,7 +851,7 @@ instruction_input(struct_processus *s_et ptr_l++; } - if ((tampon2 = malloc((strlen(tampon) + 1 + i) * + if ((tampon2 = malloc((strlen(tampon) + 1 + ((size_t) i)) * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -1219,7 +1203,7 @@ instruction_int(struct_processus *s_etat if ((*s_objet_argument_1).type == INT) { - precision = (*((integer8 *) (*s_objet_argument_1).objet)); + precision = (real8) (*((integer8 *) (*s_objet_argument_1).objet)); } else if ((*s_objet_argument_1).type == REL) { @@ -1533,18 +1517,11 @@ instruction_incr(struct_processus *s_eta if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .variable_partagee, (*(*s_etat_processus) - .pointeur_variable_courante).origine) == d_faux) + .pointeur_variable_courante).origine) == NULL) { (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).erreur_execution = @@ -1554,9 +1531,7 @@ instruction_incr(struct_processus *s_eta } s_objet_argument = (*(*s_etat_processus) - .s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet; + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } else @@ -1572,7 +1547,7 @@ instruction_incr(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; @@ -1588,10 +1563,8 @@ instruction_incr(struct_processus *s_eta if (variable_partagee == d_vrai) { (*(*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_copie_argument; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_copie_argument; } else { @@ -1606,7 +1579,7 @@ instruction_incr(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; @@ -1618,7 +1591,7 @@ instruction_incr(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;