version 1.27, 2011/06/27 09:04:57
|
version 1.30, 2011/08/03 09:26:46
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0 |
RPL/2 (R) version 4.1.2 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1049 instruction_int(struct_processus *s_etat
|
Line 1049 instruction_int(struct_processus *s_etat
|
|
|
printf(" 2: %s, %s, %s, %s\n", d_INT, d_REL, d_NOM, d_ALG); |
printf(" 2: %s, %s, %s, %s\n", d_INT, d_REL, d_NOM, d_ALG); |
printf(" 1: %s\n", d_NOM); |
printf(" 1: %s\n", d_NOM); |
printf("-> 1: %s, %s\n", d_INT, d_ALG); |
printf("-> 1: %s, %s, %s, %s\n", d_INT, d_REL, d_NOM, d_ALG); |
return; |
return; |
} |
} |
else if ((*s_etat_processus).test_instruction == 'Y') |
else if ((*s_etat_processus).test_instruction == 'Y') |
Line 1070 instruction_int(struct_processus *s_etat
|
Line 1070 instruction_int(struct_processus *s_etat
|
|
|
if (test_cfsf(s_etat_processus, 31) == d_vrai) |
if (test_cfsf(s_etat_processus, 31) == d_vrai) |
{ |
{ |
if (empilement_pile_last(s_etat_processus, 3) == d_erreur) |
if (empilement_pile_last(s_etat_processus, 2) == d_erreur) |
{ |
{ |
return; |
return; |
} |
} |