version 1.61, 2013/03/20 17:11:43
|
version 1.62, 2013/03/21 12:07:38
|
Line 4303 formateur_fichier_reel(struct_processus
|
Line 4303 formateur_fichier_reel(struct_processus
|
real8 mantisse; |
real8 mantisse; |
real8 tampon_reel; |
real8 tampon_reel; |
|
|
|
integer8 i; |
integer8 tampon_entier; |
integer8 tampon_entier; |
|
|
long correction; |
long correction; |
Line 4315 formateur_fichier_reel(struct_processus
|
Line 4316 formateur_fichier_reel(struct_processus
|
unsigned char mode[3 + 1]; |
unsigned char mode[3 + 1]; |
unsigned char tampon[16 + 1]; |
unsigned char tampon[16 + 1]; |
|
|
unsigned long i; |
|
|
|
chaine = (unsigned char *) malloc((32 + 1) * sizeof(unsigned char)); |
chaine = (unsigned char *) malloc((32 + 1) * sizeof(unsigned char)); |
|
|
if (chaine == NULL) |
if (chaine == NULL) |
Line 4479 formateur_fichier_reel(struct_processus
|
Line 4478 formateur_fichier_reel(struct_processus
|
|
|
sprintf(tampon, format, *((real8 *) valeur_numerique)); |
sprintf(tampon, format, *((real8 *) valeur_numerique)); |
|
|
i = strlen(tampon) - 1; |
i = (integer8) (strlen(tampon)) - 1; |
while(tampon[i] == '0') |
while(tampon[i] == '0') |
{ |
{ |
tampon[i] = 0; |
tampon[i] = 0; |
Line 4488 formateur_fichier_reel(struct_processus
|
Line 4487 formateur_fichier_reel(struct_processus
|
|
|
if (ds_imposition_separateur_decimal == d_faux) |
if (ds_imposition_separateur_decimal == d_faux) |
{ |
{ |
i = strlen(tampon) - 1; |
i = ((integer8) strlen(tampon)) - 1; |
if (tampon[i] == '.') |
if (tampon[i] == '.') |
{ |
{ |
tampon[i] = 0; |
tampon[i] = 0; |
Line 4503 formateur_fichier_reel(struct_processus
|
Line 4502 formateur_fichier_reel(struct_processus
|
{ |
{ |
if (strlen(chaine) > (size_t) longueur_champ) |
if (strlen(chaine) > (size_t) longueur_champ) |
{ |
{ |
for(i = 0; i < (unsigned long) longueur_champ; i++) |
for(i = 0; i < longueur_champ; i++) |
{ |
{ |
chaine[i] = '*'; |
chaine[i] = '*'; |
} |
} |