rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

version 1.33, 2011/06/27 09:04:55	version 1.37, 2011/08/01 10:01:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0	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

	if (isnan((((real8 ) valeur_numerique))))
	{
	strcpy(chaine, "undef");
	return(chaine);
	}

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

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