version 1.48, 2013/03/21 12:08:25
|
version 1.52, 2013/09/06 10:30:51
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.16 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 128 empilement(struct_processus *s_etat_proc
|
Line 128 empilement(struct_processus *s_etat_proc
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
printf("[%d] Empilement de type %d " |
printf("[%d] Empilement de type %d " |
"(profondeur %lu)\n", (int) getpid(), |
"(profondeur %lld)\n", (int) getpid(), |
(*s_objet).type, |
(*s_objet).type, |
(*s_etat_processus).hauteur_pile_operationnelle); |
(*s_etat_processus).hauteur_pile_operationnelle); |
} |
} |
else |
else |
{ |
{ |
printf("[%d] Pushing a type %d object " |
printf("[%d] Pushing a type %d object " |
"(depth %lu)\n", (int) getpid(), (*s_objet).type, |
"(depth %lld)\n", (int) getpid(), (*s_objet).type, |
(*s_etat_processus).hauteur_pile_operationnelle); |
(*s_etat_processus).hauteur_pile_operationnelle); |
} |
} |
|
|
Line 192 depilement(struct_processus *s_etat_proc
|
Line 192 depilement(struct_processus *s_etat_proc
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
printf("[%d] Dépilement de type %d " |
printf("[%d] Dépilement de type %d " |
"(profondeur %lu)\n", (int) getpid(), |
"(profondeur %lld)\n", (int) getpid(), |
(*(*s_objet)).type, |
(*(*s_objet)).type, |
(*s_etat_processus).hauteur_pile_operationnelle); |
(*s_etat_processus).hauteur_pile_operationnelle); |
} |
} |
else |
else |
{ |
{ |
printf("[%d] Pulling a type %d object " |
printf("[%d] Pulling a type %d object " |
"(depth %lu)\n", (int) getpid(), (*(*s_objet)).type, |
"(depth %lld)\n", (int) getpid(), |
|
(*(*s_objet)).type, |
(*s_etat_processus).hauteur_pile_operationnelle); |
(*s_etat_processus).hauteur_pile_operationnelle); |
} |
} |
|
|
Line 294 ecriture_pile(struct_processus *s_etat_p
|
Line 295 ecriture_pile(struct_processus *s_etat_p
|
|
|
if ((*s_etat_processus).var_volatile_recursivite == 0) |
if ((*s_etat_processus).var_volatile_recursivite == 0) |
{ |
{ |
if (fprintf(flux, "%lu: ...\n", niveau_courant) < 0) |
if (fprintf(flux, "%lld: ...\n", niveau_courant) < 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_systeme = |
d_es_erreur_fichier; |
d_es_erreur_fichier; |
Line 345 ecriture_pile(struct_processus *s_etat_p
|
Line 346 ecriture_pile(struct_processus *s_etat_p
|
free(registre); |
free(registre); |
} |
} |
|
|
if (fprintf(flux, "%lu: %s\n", niveau_courant, chaine) < 0) |
if (fprintf(flux, "%lld: %s\n", niveau_courant, chaine) < 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
return; |
return; |