rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/types.c between versions 1.56 and 1.58

version 1.56, 2013/02/27 14:28:29	version 1.58, 2013/03/16 11:31:41
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.13
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 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));

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.56
changed lines
	Added in v.1.58