rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

version 1.23, 2011/03/17 21:42:51	version 1.35, 2011/07/25 07:44:54
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.21	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 392 formateur(struct_processus *s_etat_proce	Line 392 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

if (alsprintf(&chaine, "Socket %016lX",	if (alsprintf(&chaine, "Socket $ %016lX",
(unsigned long) (((struct_socket )	(unsigned long) (((struct_socket )
((*s_objet).objet))).socket) < 0)	((*s_objet).objet))).socket) < 0)
{	{
Line 3883 formateur_reel(struct_processus *s_etat_	Line 3883 formateur_reel(struct_processus *s_etat_

if (exposant >= 0)	if (exposant >= 0)
{	{
sprintf(format, "%%.%luf", (longueur_utile_limite - exposant	if ((exposant + 1) < longueur_utile_limite)
- 1));	{
	sprintf(format, "%%.%luf", (longueur_utile_limite - exposant
	- 1));
	}
	else
	{
	strcpy(format, "%.0f.");
	}
}	}
else	else
{	{