--- rpl/src/instructions_a4.c 2011/07/25 07:44:55 1.27 +++ rpl/src/instructions_a4.c 2011/11/26 10:01:27 1.31 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.2 + RPL/2 (R) version 4.1.5 Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -777,18 +777,26 @@ instruction_axes(struct_processus *s_eta if (presence_type == d_faux) { - if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } - if ((*s_etat_processus).systeme_axes == 0) { + if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return; + } + strcpy(tampon, "MAIN"); } else { + if ((tampon = malloc(10 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return; + } + strcpy(tampon, "AUXILIARY"); } }