version 1.71, 2013/03/27 21:26:11
|
version 1.74, 2013/04/18 21:38:04
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.14 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 64 sequenceur(struct_processus *s_etat_proc
|
Line 64 sequenceur(struct_processus *s_etat_proc
|
unsigned char *message; |
unsigned char *message; |
unsigned char *registre; |
unsigned char *registre; |
unsigned char *tampon; |
unsigned char *tampon; |
unsigned char tampon_retour; |
|
unsigned char *t_ligne; |
unsigned char *t_ligne; |
|
|
Keymap ancien_keymap; |
Keymap ancien_keymap; |
Line 334 sequenceur(struct_processus *s_etat_proc
|
Line 333 sequenceur(struct_processus *s_etat_proc
|
} |
} |
else |
else |
{ |
{ |
tampon_retour = (*(*s_etat_processus) |
empilement_pile_systeme(s_etat_processus); |
.l_base_pile_systeme).retour_definition; |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
|
{ |
|
return(d_erreur); |
|
} |
|
|
(*(*s_etat_processus).l_base_pile_systeme) |
(*(*s_etat_processus).l_base_pile_systeme) |
.retour_definition = 'Y'; |
.retour_definition = 'Y'; |
|
|
Line 356 sequenceur(struct_processus *s_etat_proc
|
Line 360 sequenceur(struct_processus *s_etat_proc
|
printf("+++Error : Too few arguments\n"); |
printf("+++Error : Too few arguments\n"); |
} |
} |
|
|
(*(*s_etat_processus).l_base_pile_systeme) |
depilement_pile_systeme(s_etat_processus); |
.retour_definition = tampon_retour; |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
|
{ |
|
return(d_erreur); |
|
} |
|
|
fflush(stdout); |
fflush(stdout); |
} |
} |
else if (evaluation(s_etat_processus, s_objet, 'I') == |
else if (evaluation(s_etat_processus, s_objet, 'I') == |
d_erreur) |
d_erreur) |
{ |
{ |
(*(*s_etat_processus).l_base_pile_systeme) |
|
.retour_definition = tampon_retour; |
|
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
{ |
{ |
if (test_cfsf(s_etat_processus, 51) == d_faux) |
if (test_cfsf(s_etat_processus, 51) == d_faux) |
Line 451 sequenceur(struct_processus *s_etat_proc
|
Line 456 sequenceur(struct_processus *s_etat_proc
|
{ |
{ |
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
} |
} |
|
|
(*(*s_etat_processus).l_base_pile_systeme) |
|
.retour_definition = tampon_retour; |
|
} |
} |
} |
} |
else if ((*s_etat_processus).invalidation_message_erreur |
else if ((*s_etat_processus).invalidation_message_erreur |