version 1.41, 2013/03/21 11:30:31
|
version 1.72, 2025/04/15 10:17:57
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.36 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2025 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 312 ecriture_profil(struct_processus *s_etat
|
Line 312 ecriture_profil(struct_processus *s_etat
|
} |
} |
|
|
snprintf(nom, strlen(ds_rplprofile) + 64 + 1, |
snprintf(nom, strlen(ds_rplprofile) + 64 + 1, |
"%s-%lu-%lu", ds_rplprofile, (unsigned long) getpid(), |
"%s-%llu-%llu", ds_rplprofile, (unsigned long long) getpid(), |
(unsigned long) pthread_self()); |
(unsigned long long) pthread_self()); |
|
|
if ((fichier = fopen(nom, "w+")) == NULL) |
if ((fichier = fopen(nom, "w+")) == NULL) |
{ |
{ |
Line 333 ecriture_profil(struct_processus *s_etat
|
Line 333 ecriture_profil(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if (fprintf(fichier, "Process : %lu\n", (unsigned long) |
if (fprintf(fichier, "Process : %llu\n", (unsigned long long) |
getpid()) < 0) |
getpid()) < 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
return; |
return; |
} |
} |
|
|
if (fprintf(fichier, "Thread : %lu\n", (unsigned long) |
if (fprintf(fichier, "Thread : %llu\n", (unsigned long long) |
pthread_self()) < 0) |
pthread_self()) < 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |