--- rpl/src/instructions_r5.c 2010/04/30 15:01:14 1.8 +++ rpl/src/instructions_r5.c 2020/01/10 11:15:47 1.72 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.15 - Copyright (C) 1989-2010 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. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -43,8 +43,8 @@ instruction_rswp(struct_processus *s_eta struct_objet *s_objet_argument_2; struct_objet *s_objet_argument_3; - signed long ligne_1; - signed long ligne_2; + integer8 ligne_1; + integer8 ligne_2; void *tampon; @@ -120,9 +120,9 @@ instruction_rswp(struct_processus *s_eta ligne_1 = (*((integer8 *) (*s_objet_argument_1).objet)) - 1; ligne_2 = (*((integer8 *) (*s_objet_argument_2).objet)) - 1; - if ((ligne_1 < 0) || (ligne_1 >= (long) (*((struct_matrice *) + if ((ligne_1 < 0) || (ligne_1 >= (*((struct_matrice *) (*s_objet_argument_3).objet)).nombre_lignes) || - (ligne_2 < 0) || (ligne_2 >= (long) (*((struct_matrice *) + (ligne_2 < 0) || (ligne_2 >= (*((struct_matrice *) (*s_objet_argument_3).objet)).nombre_lignes)) { liberation(s_etat_processus, s_objet_argument_1); @@ -212,8 +212,8 @@ instruction_row_plus(struct_processus *s struct_objet *s_objet_argument_2; struct_objet *s_objet_argument_3; - unsigned long i; - unsigned long j; + integer8 i; + integer8 j; void **tableau; void *tampon; @@ -348,8 +348,8 @@ instruction_row_plus(struct_processus *s liberation(s_etat_processus, s_objet_argument_3); - if ((*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_verrouillee == d_vrai) + if ((*(*s_etat_processus).pointeur_variable_courante) + .variable_verrouillee == d_vrai) { (*s_etat_processus).erreur_execution = d_ex_variable_verrouillee; @@ -359,34 +359,17 @@ instruction_row_plus(struct_processus *s return; } - s_objet_argument_3 = (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet; + s_objet_argument_3 = (*(*s_etat_processus).pointeur_variable_courante) + .objet; if (s_objet_argument_3 == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, - (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].nom, - (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante] - .variable_partagee, (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].origine) - == d_faux) + (*(*s_etat_processus).pointeur_variable_courante).nom, + (*(*s_etat_processus).pointeur_variable_courante) + .variable_partagee, (*(*s_etat_processus) + .pointeur_variable_courante).origine) == NULL) { - 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; @@ -398,9 +381,7 @@ instruction_row_plus(struct_processus *s } s_objet_argument_3 = (*(*s_etat_processus) - .s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet; + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } @@ -410,7 +391,7 @@ instruction_row_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -424,8 +405,8 @@ instruction_row_plus(struct_processus *s liberation(s_etat_processus, s_objet_argument_3); s_objet_argument_3 = s_copie_argument_3; - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].objet = s_objet_argument_3; + (*(*s_etat_processus).pointeur_variable_courante).objet = + s_objet_argument_3; } else { @@ -459,7 +440,7 @@ instruction_row_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -492,14 +473,15 @@ instruction_row_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_objet_argument_3).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_objet_argument_3).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument_3).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -539,14 +521,15 @@ instruction_row_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_objet_argument_3).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_objet_argument_3).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument_3).objet)).nombre_colonnes) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -585,14 +568,15 @@ instruction_row_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_objet_argument_3).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_objet_argument_3).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument_3).objet)).nombre_colonnes) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -635,14 +619,15 @@ instruction_row_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_objet_argument_1).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_objet_argument_1).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument_1).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -682,14 +667,15 @@ instruction_row_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_objet_argument_1).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_objet_argument_1).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument_1).objet)).nombre_colonnes) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -728,14 +714,15 @@ instruction_row_plus(struct_processus *s .tableau[i]; if (((*((struct_matrice *) (*s_objet_argument_1).objet)) - .tableau[i] = malloc((*((struct_matrice *) - (*s_objet_argument_1).objet)).nombre_colonnes * + .tableau[i] = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument_1).objet)).nombre_colonnes) * sizeof(complex16))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -774,7 +761,7 @@ instruction_row_plus(struct_processus *s if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -799,13 +786,13 @@ instruction_row_plus(struct_processus *s if (matrice_vide == d_faux) { if (((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau - = malloc(((*((struct_matrice *) (*s_objet_argument_3).objet)) - .nombre_lignes + 1) * sizeof(void *))) == NULL) + = malloc(((size_t) ((*((struct_matrice *) (*s_objet_argument_3) + .objet)).nombre_lignes + 1)) * sizeof(void *))) == 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; @@ -822,7 +809,7 @@ instruction_row_plus(struct_processus *s for(j = i = 0; i < (*((struct_matrice *) (*s_objet_argument_3).objet)).nombre_lignes; i++) { - if (i == (unsigned long) (position - 1)) + if (i == (position - 1)) { (*((struct_matrice *) (*s_objet_argument_3).objet)) .tableau[i] = (*((struct_matrice *) @@ -853,13 +840,15 @@ instruction_row_plus(struct_processus *s } else { + free((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau[0]); + if (((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau = malloc(sizeof(void *))) == 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; @@ -894,12 +883,11 @@ instruction_row_plus(struct_processus *s { if (variable_partagee == d_vrai) { - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_argument_3; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet + = s_objet_argument_3; 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; @@ -942,9 +930,9 @@ instruction_row_moins(struct_processus * struct_objet *s_objet_argument_2; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long colonne; + integer8 i; + integer8 j; + integer8 colonne; void **tableau; @@ -1024,8 +1012,8 @@ instruction_row_moins(struct_processus * liberation(s_etat_processus, s_objet_argument_2); - if ((*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].variable_verrouillee == d_vrai) + if ((*(*s_etat_processus).pointeur_variable_courante) + .variable_verrouillee == d_vrai) { liberation(s_etat_processus, s_objet_argument_1); @@ -1033,34 +1021,17 @@ instruction_row_moins(struct_processus * return; } - s_objet_argument_2 = (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].objet; + s_objet_argument_2 = (*(*s_etat_processus).pointeur_variable_courante) + .objet; if (s_objet_argument_2 == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, - (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].nom, - (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante] - .variable_partagee, (*s_etat_processus).s_liste_variables - [(*s_etat_processus).position_variable_courante].origine) - == d_faux) + (*(*s_etat_processus).pointeur_variable_courante).nom, + (*(*s_etat_processus).pointeur_variable_courante) + .variable_partagee, (*(*s_etat_processus) + .pointeur_variable_courante).origine) == NULL) { - 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; @@ -1071,9 +1042,7 @@ instruction_row_moins(struct_processus * } s_objet_argument_2 = (*(*s_etat_processus) - .s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet; + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } @@ -1083,7 +1052,7 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1097,8 +1066,8 @@ instruction_row_moins(struct_processus * liberation(s_etat_processus, s_objet_argument_2); s_objet_argument_2 = s_copie_argument_2; - (*s_etat_processus).s_liste_variables[(*s_etat_processus) - .position_variable_courante].objet = s_objet_argument_2; + (*(*s_etat_processus).pointeur_variable_courante).objet = + s_objet_argument_2; } else { @@ -1129,7 +1098,7 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1154,7 +1123,7 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1177,7 +1146,7 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1199,13 +1168,15 @@ instruction_row_moins(struct_processus * .tableau; if (((*((struct_matrice *) (*s_objet_argument_2).objet)).tableau - = malloc(((*((struct_matrice *) (*s_objet_argument_2) - .objet)).nombre_lignes - 1) * sizeof(void *))) == NULL) + = malloc(((size_t) ((*((struct_matrice *) + (*s_objet_argument_2).objet)).nombre_lignes - 1)) * + sizeof(void *))) == 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; @@ -1242,7 +1213,8 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) + != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1263,7 +1235,7 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1286,7 +1258,7 @@ instruction_row_moins(struct_processus * if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1316,12 +1288,11 @@ instruction_row_moins(struct_processus * } else if (variable_partagee == d_vrai) { - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_argument_2; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_objet_argument_2; 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;