rpl/src/compilation.c - diff

Return to compilation.c CVS log

Up to [local] / rpl / src

version 1.77, 2015/02/19 11:01:18	version 1.87, 2017/01/18 15:44:17
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.21	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 1501 recherche_instruction_suivante_recursive	Line 1501 recherche_instruction_suivante_recursive
pointeur_caractere_courant++;	pointeur_caractere_courant++;
break;	break;
}	}
	else if ((*pointeur_caractere_courant) == '=')
	{ // Cas de '>='
	pointeur_caractere_courant++;
	}
else if ((*pointeur_caractere_courant) !=	else if ((*pointeur_caractere_courant) !=
d_code_espace)	d_code_espace)
{ // Tous les cas différents de '>'	{ // Tous les cas différents de '>'
Line 1706 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
{	{