version 1.22, 2011/03/12 15:32:02
|
version 1.24.2.4, 2011/05/09 13:52:11
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.21 |
RPL/2 (R) version 4.0.24 |
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 1759 formateur(struct_processus *s_etat_proce
|
Line 1759 formateur(struct_processus *s_etat_proce
|
return(NULL); |
return(NULL); |
} |
} |
|
|
if ((*s_etat_processus).autorisation_conversion_chaine == 'Y') |
if (((*s_etat_processus).autorisation_conversion_chaine == 'Y') && |
|
(test_cfsf(s_etat_processus, 34) == d_vrai)) |
{ |
{ |
ptr_lecture = (unsigned char *) (*s_objet).objet; |
ptr_lecture = (unsigned char *) (*s_objet).objet; |
ptr_ecriture = chaine; |
ptr_ecriture = chaine; |
Line 3882 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 |
{ |
{ |