--- rpl/src/instructions_s3.c 2012/12/13 16:59:42 1.39 +++ rpl/src/instructions_s3.c 2019/01/01 09:03:10 1.66 @@ -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.30 + Copyright (C) 1989-2019 Dr. BERTRAND Joël This file is part of RPL/2. @@ -50,7 +50,7 @@ instruction_sub(struct_processus *s_etat unsigned char *ptr1; unsigned char *ptr2; - unsigned long i; + integer8 i; (*s_etat_processus).erreur_execution = d_ex; @@ -188,7 +188,7 @@ instruction_sub(struct_processus *s_etat return; } - if (((*s_objet_resultat).objet = malloc(((ptr2 - ptr1) + 1) * + if (((*s_objet_resultat).objet = malloc(((size_t) ((ptr2 - ptr1) + 1)) * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -196,7 +196,7 @@ instruction_sub(struct_processus *s_etat } strncpy((unsigned char *) (*s_objet_resultat).objet, ptr1, - ptr2 - ptr1)[ptr2 - ptr1] = d_code_fin_chaine; + (size_t) (ptr2 - ptr1))[ptr2 - ptr1] = d_code_fin_chaine; } /* @@ -221,7 +221,7 @@ instruction_sub(struct_processus *s_etat .objet; i = 1; - while(i < (unsigned long) (*((integer8 *) (*s_objet_argument_2).objet))) + while(i < (*((integer8 *) (*s_objet_argument_2).objet))) { if (l_element_courant == NULL) { @@ -244,7 +244,7 @@ instruction_sub(struct_processus *s_etat (*s_objet_argument_3).objet = l_element_courant; - while(i < (unsigned long) (*((integer8 *) (*s_objet_argument_1).objet))) + while(i < (*((integer8 *) (*s_objet_argument_1).objet))) { if (l_element_courant == NULL) { @@ -491,7 +491,7 @@ instruction_sto_plus(struct_processus *s (*(*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 = @@ -760,7 +760,7 @@ instruction_sto_plus(struct_processus *s (*(*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 = @@ -1186,7 +1186,7 @@ instruction_sto_moins(struct_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 = @@ -1454,7 +1454,7 @@ instruction_sto_moins(struct_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 = @@ -1879,7 +1879,7 @@ instruction_sto_fois(struct_processus *s (*(*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 = @@ -2147,7 +2147,7 @@ instruction_sto_fois(struct_processus *s (*(*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 = @@ -2572,7 +2572,7 @@ instruction_sto_division(struct_processu (*(*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 = @@ -2840,7 +2840,7 @@ instruction_sto_division(struct_processu (*(*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 = @@ -3226,7 +3226,7 @@ instruction_sneg(struct_processus *s_eta (*(*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 = @@ -3590,7 +3590,7 @@ instruction_sinv(struct_processus *s_eta (*(*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 = @@ -3954,7 +3954,7 @@ instruction_sconj(struct_processus *s_et (*(*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 =