--- rpl/src/instructions_m2.c 2010/01/27 22:22:14 1.2 +++ rpl/src/instructions_m2.c 2022/09/07 13:40:37 1.68 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.10 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.34 + Copyright (C) 1989-2021 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -53,11 +53,11 @@ instruction_max(struct_processus *s_etat struct_objet *s_objet_position; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long nombre_elements; - unsigned long position_max_i; - unsigned long position_max_j; + integer8 i; + integer8 j; + integer8 nombre_elements; + integer8 position_max_i; + integer8 position_max_j; (*s_etat_processus).erreur_execution = d_ex; @@ -82,14 +82,14 @@ instruction_max(struct_processus *s_etat printf("-> 2: %s, %s, %s\n", d_INT, d_REL, d_CPL); printf(" 1: %s\n\n", d_LST); - printf(" 2: %s, %s, %s\n", d_INT, d_REL, d_CPL); - printf(" 1: %s, %s, %s\n", d_INT, d_REL, d_CPL); - printf("-> 1: %s, %s, %s\n\n", d_INT, d_REL, d_CPL); - - printf(" 2: %s, %s, %s, %s, %s, %s\n", - d_INT, d_REL, d_CPL, d_NOM, d_ALG, d_RPN); - printf(" 1: %s, %s, %s, %s, %s, %s\n", - d_INT, d_REL, d_CPL, d_NOM, d_ALG, d_RPN); + printf(" 2: %s, %s\n", d_INT, d_REL); + printf(" 1: %s, %s\n", d_INT, d_REL); + printf("-> 1: %s, %s\n\n", d_INT, d_REL); + + printf(" 2: %s, %s, %s, %s, %s\n", + d_INT, d_REL, d_NOM, d_ALG, d_RPN); + printf(" 1: %s, %s, %s, %s, %s\n", + d_INT, d_REL, d_NOM, d_ALG, d_RPN); printf("-> 1: %s, %s\n", d_ALG, d_RPN); return; @@ -1216,11 +1216,11 @@ instruction_min(struct_processus *s_etat struct_objet *s_objet_position; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long nombre_elements; - unsigned long position_min_i; - unsigned long position_min_j; + integer8 i; + integer8 j; + integer8 nombre_elements; + integer8 position_min_i; + integer8 position_min_j; (*s_etat_processus).erreur_execution = d_ex; @@ -1245,14 +1245,14 @@ instruction_min(struct_processus *s_etat printf("-> 2: %s, %s, %s\n", d_INT, d_REL, d_CPL); printf(" 1: %s\n\n", d_LST); - printf(" 2: %s, %s, %s\n", d_INT, d_REL, d_CPL); - printf(" 1: %s, %s, %s\n", d_INT, d_REL, d_CPL); - printf("-> 1: %s, %s, %s\n\n", d_INT, d_REL, d_CPL); - - printf(" 2: %s, %s, %s, %s, %s, %s\n", - d_INT, d_REL, d_CPL, d_NOM, d_ALG, d_RPN); - printf(" 1: %s, %s, %s, %s, %s, %s\n", - d_INT, d_REL, d_CPL, d_NOM, d_ALG, d_RPN); + printf(" 2: %s, %s\n", d_INT, d_REL); + printf(" 1: %s, %s\n", d_INT, d_REL); + printf("-> 1: %s, %s\n\n", d_INT, d_REL); + + printf(" 2: %s, %s, %s, %s, %s\n", + d_INT, d_REL, d_NOM, d_ALG, d_RPN); + printf(" 1: %s, %s, %s, %s, %s\n", + d_INT, d_REL, d_NOM, d_ALG, d_RPN); printf("-> 1: %s, %s\n", d_ALG, d_RPN); return;