rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur.c between versions 1.41 and 1.57

version 1.41, 2011/11/17 22:21:16	version 1.57, 2013/03/16 20:11:29
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.4	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2011 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 75 formateur(struct_processus *s_etat_proce	Line 75 formateur(struct_processus *s_etat_proce
unsigned long i;	unsigned long i;
unsigned long j;	unsigned long j;
unsigned long k;	unsigned long k;
unsigned long longueur_binaire;
unsigned long longueur_courante;	unsigned long longueur_courante;
unsigned long longueur_decimale_courante;	unsigned long longueur_decimale_courante;
unsigned long *longueurs_maximales;	unsigned long *longueurs_maximales;
Line 94 formateur(struct_processus *s_etat_proce	Line 93 formateur(struct_processus *s_etat_proce

strcpy(base, " ");	strcpy(base, " ");

longueur_binaire = 0;
masque_binaire = 0;	masque_binaire = 0;

if ((*s_objet).type == ADR)	if ((*s_objet).type == ADR)
Line 1580 formateur(struct_processus *s_etat_proce	Line 1578 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

longueur_binaire = longueur_entiers_binaires(s_etat_processus);
masque_binaire = masque_entiers_binaires(s_etat_processus);	masque_binaire = masque_entiers_binaires(s_etat_processus);

if ((test_cfsf(s_etat_processus, 43) == d_faux) &&	if ((test_cfsf(s_etat_processus, 43) == d_faux) &&
Line 1818 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 2996 formateur(struct_processus *s_etat_proce	Line 2993 formateur(struct_processus *s_etat_proce
}	}
else if ((*s_objet).type == MTX)	else if ((*s_objet).type == MTX)
{	{
if (alsprintf(&chaine, "Mutex $ %016lX", (unsigned long)	if (alsprintf(&chaine, "Mutex $ %016lX owned by $ %016lX",
&((((struct_mutex ) (*s_objet).objet)).mutex)) < 0)	(unsigned long) &((((struct_mutex ) (*s_objet).objet)).mutex),
	(unsigned long) (((struct_mutex ) (*s_objet).objet)).tid) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
Line 3524 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
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.41
changed lines
	Added in v.1.57