rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

version 1.34, 2011/07/22 07:38:35	version 1.36, 2011/08/01 08:07:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.1	RPL/2 (R) version 4.1.2
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 3653 formateur_reel(struct_processus *s_etat_	Line 3653 formateur_reel(struct_processus *s_etat_

if (type == 'R')	if (type == 'R')
{	{
	# ifdef FP_INFINITE
	if (isinf((((real8 ) valeur_numerique))))
	{
	strcpy(chaine, "infinity");
	return(chaine);
	}
	# endif

tampon_reel = ((real8 ) valeur_numerique);	tampon_reel = ((real8 ) valeur_numerique);

if (tampon_reel > ((real8) 0))	if (tampon_reel > ((real8) 0))