version 1.3, 2010/02/10 10:14:19
|
version 1.6, 2010/03/08 08:34:15
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.0.12 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1565 formateur_fichier(struct_processus *s_et
|
Line 1565 formateur_fichier(struct_processus *s_et
|
longueur, longueur_champ, format_sortie, type, |
longueur, longueur_champ, format_sortie, type, |
longueur_effective, recursivite)) == NULL) |
longueur_effective, recursivite)) == NULL) |
{ |
{ |
|
free(chaine); |
return(NULL); |
return(NULL); |
} |
} |
|
|
Line 5633 formateur_fichier_nombre(struct_processu
|
Line 5634 formateur_fichier_nombre(struct_processu
|
strcat(construction_chaine, tampon); |
strcat(construction_chaine, tampon); |
free(tampon); |
free(tampon); |
|
|
if (test_cfsf(s_etat_processus, 48) == d_faux) |
strcat(construction_chaine, ","); |
{ |
|
strcat(construction_chaine, ","); |
|
} |
|
else |
|
{ |
|
strcat(construction_chaine, "."); |
|
} |
|
|
|
tampon = formateur_fichier_reel(s_etat_processus, |
tampon = formateur_fichier_reel(s_etat_processus, |
(void *) &((*((struct_complexe16 *) |
(void *) &((*((struct_complexe16 *) |