--- rpl/src/instructions_i3.c 2015/01/05 13:12:36 1.52 +++ rpl/src/instructions_i3.c 2023/08/07 17:42:55 1.73 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.19 - Copyright (C) 1989-2015 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.35 + Copyright (C) 1989-2023 Dr. BERTRAND Joël This file is part of RPL/2. @@ -96,6 +96,7 @@ instruction_inquire(struct_processus *s_ printf(" NAME : %s\n", d_CHN); printf(" FORMATTED : %s (true/false)\n", d_INT); printf(" KEY FIELD : %s\n", d_INT); + printf(" FORMAT : %s\n", d_LST); printf(" PROTECTION : %s (WRITEONLY/READONLY/READWRITE)\n\n", d_CHN); @@ -108,7 +109,6 @@ instruction_inquire(struct_processus *s_ printf(" Queries by name:\n\n"); } - printf(" FORMAT : %s\n", d_LST); printf(" EXISTENCE : %s (true/false)\n", d_INT); printf(" LOCK : %s (NONE/READ/WRITE)\n", d_CHN); @@ -153,7 +153,7 @@ instruction_inquire(struct_processus *s_ return; } - if ((requete = conversion_majuscule((unsigned char *) + if ((requete = conversion_majuscule(s_etat_processus, (unsigned char *) (*s_objet_argument_1).objet)) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;