rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

version 1.57, 2013/02/27 17:11:46	version 1.58, 2013/03/16 11:31:41
Line 3547 recherche_type(struct_processus *s_etat_	Line 3547 recherche_type(struct_processus *s_etat_
integer8 conversion_entiere;	integer8 conversion_entiere;
real8 conversion_reelle;	real8 conversion_reelle;

if (sscanf((*s_etat_processus).instruction_courante, "%lg",
&conversion_reelle) != 1)
{
(*s_etat_processus).erreur_execution = d_ex_syntaxe;
}

if (sscanf((*s_etat_processus).instruction_courante, "%lld",	if (sscanf((*s_etat_processus).instruction_courante, "%lld",
&conversion_entiere) != 1)	&conversion_entiere) != 1)
{	{
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
}	}

if (abs(nextafter(conversion_reelle, conversion_entiere)	if (errno != ERANGE)
- conversion_reelle) >= abs(conversion_reelle
- conversion_entiere))
{	{
(*s_objet).type = INT;	(*s_objet).type = INT;

Line 3580 recherche_type(struct_processus *s_etat_	Line 3572 recherche_type(struct_processus *s_etat_
}	}
else	else
{	{
	if (sscanf((*s_etat_processus).instruction_courante,
	"%lg", &conversion_reelle) != 1)
	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	}

(*s_objet).type = REL;	(*s_objet).type = REL;

element = malloc(sizeof(real8));	element = malloc(sizeof(real8));