version 1.75, 2015/01/28 21:47:26
|
version 1.87, 2017/01/18 15:44:17
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.20 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 1493 recherche_instruction_suivante_recursive
|
Line 1493 recherche_instruction_suivante_recursive
|
((*(pointeur_caractere_courant - 1)) == |
((*(pointeur_caractere_courant - 1)) == |
d_code_espace)) |
d_code_espace)) |
{ |
{ |
if ((*(++pointeur_caractere_courant)) == '>') |
pointeur_caractere_courant++; |
{ |
|
|
if ((*pointeur_caractere_courant) == '>') |
|
{ // Cas de '>>' |
drapeau_fin_objet = d_vrai; |
drapeau_fin_objet = d_vrai; |
|
pointeur_caractere_courant++; |
|
break; |
} |
} |
else |
else if ((*pointeur_caractere_courant) == '=') |
{ |
{ // Cas de '>=' |
|
pointeur_caractere_courant++; |
|
} |
|
else if ((*pointeur_caractere_courant) != |
|
d_code_espace) |
|
{ // Tous les cas différents de '>' |
erreur_analyse = d_ex_syntaxe; |
erreur_analyse = d_ex_syntaxe; |
|
break; |
} |
} |
|
|
pointeur_caractere_courant++; |
pointeur_caractere_courant--; |
break; |
|
} |
} |
|
|
if ((erreur_format == d_absence_erreur) && |
if ((erreur_format == d_absence_erreur) && |
Line 1701 recherche_instruction_suivante_recursive
|
Line 1710 recherche_instruction_suivante_recursive
|
erreur = ((erreur_analyse == d_ex) && (erreur_format == d_ex)) |
erreur = ((erreur_analyse == d_ex) && (erreur_format == d_ex)) |
? d_absence_erreur : d_erreur; |
? d_absence_erreur : d_erreur; |
(*s_etat_processus).erreur_execution = erreur_analyse; |
(*s_etat_processus).erreur_execution = erreur_analyse; |
|
|
|
if ((*s_etat_processus).erreur_execution == d_ex) |
|
{ |
|
(*s_etat_processus).erreur_execution = erreur_format; |
|
} |
} |
} |
else |
else |
{ |
{ |