rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

version 1.48, 2012/04/13 14:12:48	version 1.57, 2013/03/16 20:11:29
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.8	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2012 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 1815 formateur(struct_processus *s_etat_proce	Line 1815 formateur(struct_processus *s_etat_proce

while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
if ((chaine_formatee = formateur(s_etat_processus, 0,	if ((chaine_formatee = formateur(s_etat_processus, offset_initial,
(*l_element_courant).donnee)) == NULL)	(*l_element_courant).donnee)) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 3522 formateur_reel(struct_processus *s_etat_	Line 3522 formateur_reel(struct_processus *s_etat_
}	}
else if (tampon_entier < ((integer8) 0))	else if (tampon_entier < ((integer8) 0))
{	{
exposant = (long) floor(log10(-tampon_entier));	if (tampon_entier != INT64_MIN)
	{
	exposant = (long) floor(log10(-tampon_entier));
	}
	else
	{
	tampon_reel = (real8) tampon_entier;
	exposant = (long) floor(log10(-tampon_reel));
	}
}	}
else	else
{	{