--- rpl/src/instructions_a4.c 2011/06/27 09:04:56 1.25 +++ rpl/src/instructions_a4.c 2012/08/22 10:47:15 1.37 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.0 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.10 + Copyright (C) 1989-2012 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"); } }