version 1.15, 2010/09/23 15:27:36
|
version 1.51, 2015/01/05 13:12:33
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.20 |
RPL/2 (R) version 4.1.19 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 777 instruction_axes(struct_processus *s_eta
|
Line 777 instruction_axes(struct_processus *s_eta
|
|
|
if (presence_type == d_faux) |
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 ((*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"); |
strcpy(tampon, "MAIN"); |
} |
} |
else |
else |
{ |
{ |
|
if ((tampon = malloc(10 * sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
return; |
|
} |
|
|
strcpy(tampon, "AUXILIARY"); |
strcpy(tampon, "AUXILIARY"); |
} |
} |
} |
} |
Line 909 instruction_axes(struct_processus *s_eta
|
Line 917 instruction_axes(struct_processus *s_eta
|
} |
} |
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mx_tics = (real8) |
(*s_etat_processus).mx_tics = |
(*((integer8 *) (* |
(*((integer8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
Line 939 instruction_axes(struct_processus *s_eta
|
Line 947 instruction_axes(struct_processus *s_eta
|
} |
} |
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mx2_tics = (real8) |
(*s_etat_processus).mx2_tics = |
(*((integer8 *) (* |
(*((integer8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
Line 975 instruction_axes(struct_processus *s_eta
|
Line 983 instruction_axes(struct_processus *s_eta
|
} |
} |
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).my_tics = (real8) |
(*s_etat_processus).my_tics = |
(*((integer8 *) (* |
(*((integer8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
Line 1005 instruction_axes(struct_processus *s_eta
|
Line 1013 instruction_axes(struct_processus *s_eta
|
} |
} |
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).my2_tics = (real8) |
(*s_etat_processus).my2_tics = |
(*((integer8 *) (* |
(*((integer8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
Line 1041 instruction_axes(struct_processus *s_eta
|
Line 1049 instruction_axes(struct_processus *s_eta
|
} |
} |
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mz_tics = (real8) |
(*s_etat_processus).mz_tics = |
(*((integer8 *) (* |
(*((integer8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
Line 1071 instruction_axes(struct_processus *s_eta
|
Line 1079 instruction_axes(struct_processus *s_eta
|
} |
} |
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mz2_tics = (real8) |
(*s_etat_processus).mz2_tics = |
(*((integer8 *) (* |
(*((integer8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
Line 1133 instruction_axes(struct_processus *s_eta
|
Line 1141 instruction_axes(struct_processus *s_eta
|
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mx_tics = |
(*s_etat_processus).mx_tics = |
(*((real8 *) (* |
(integer8) (*((real8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
(*s_etat_processus).mx_lines = |
(*s_etat_processus).mx_lines = |
Line 1163 instruction_axes(struct_processus *s_eta
|
Line 1171 instruction_axes(struct_processus *s_eta
|
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mx2_tics = |
(*s_etat_processus).mx2_tics = |
(*((real8 *) (* |
(integer8) (*((real8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
(*s_etat_processus).mx2_lines = |
(*s_etat_processus).mx2_lines = |
Line 1199 instruction_axes(struct_processus *s_eta
|
Line 1207 instruction_axes(struct_processus *s_eta
|
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).my_tics = |
(*s_etat_processus).my_tics = |
(*((real8 *) (* |
(integer8) (*((real8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
(*s_etat_processus).my_lines = |
(*s_etat_processus).my_lines = |
Line 1229 instruction_axes(struct_processus *s_eta
|
Line 1237 instruction_axes(struct_processus *s_eta
|
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).my2_tics = |
(*s_etat_processus).my2_tics = |
(*((real8 *) (* |
(integer8) (*((real8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
(*s_etat_processus).my2_lines = |
(*s_etat_processus).my2_lines = |
Line 1265 instruction_axes(struct_processus *s_eta
|
Line 1273 instruction_axes(struct_processus *s_eta
|
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mz_tics = |
(*s_etat_processus).mz_tics = |
(*((real8 *) (* |
(integer8) (*((real8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
(*s_etat_processus).mz_lines = |
(*s_etat_processus).mz_lines = |
Line 1295 instruction_axes(struct_processus *s_eta
|
Line 1303 instruction_axes(struct_processus *s_eta
|
else if (nombre_arguments_auxiliaires == 2) |
else if (nombre_arguments_auxiliaires == 2) |
{ |
{ |
(*s_etat_processus).mz2_tics = |
(*s_etat_processus).mz2_tics = |
(*((real8 *) (* |
(integer8) (*((real8 *) (* |
(*l_element_courant_auxiliaire) |
(*l_element_courant_auxiliaire) |
.donnee).objet)); |
.donnee).objet)); |
(*s_etat_processus).mz2_lines = |
(*s_etat_processus).mz2_lines = |