version 1.23, 2011/03/17 21:42:51
|
version 1.24.2.3, 2011/05/09 08:33:52
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.21 |
RPL/2 (R) version 4.0.23 |
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 |
{ |
{ |