version 1.52, 2013/04/01 15:29:38
|
version 1.76, 2017/07/12 15:42:42
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.14 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 36
|
Line 36
|
*/ |
*/ |
|
|
logical1 |
logical1 |
sequenceur_optimise(struct_processus *s_etat_processus) |
sequenceur_optimise(struct_processus *s_etat_processus, struct_liste_chainee |
|
*l_bibliotheques) |
{ |
{ |
integer8 adresse_point_entree; |
integer8 adresse_point_entree; |
integer8 i; |
integer8 i; |
Line 46 sequenceur_optimise(struct_processus *s_
|
Line 47 sequenceur_optimise(struct_processus *s_
|
|
|
logical1 erreur; |
logical1 erreur; |
|
|
|
struct_liste_chainee *l_bibliotheque_courante; |
|
struct_liste_chainee *l_nouvelle_bibliotheque; |
|
|
struct_objet *programme_principal; |
struct_objet *programme_principal; |
|
|
struct_tableau_variables *tableau; |
struct_tableau_variables *tableau; |
Line 156 sequenceur_optimise(struct_processus *s_
|
Line 160 sequenceur_optimise(struct_processus *s_
|
|
|
registre = (*s_etat_processus).autorisation_nom_implicite; |
registre = (*s_etat_processus).autorisation_nom_implicite; |
(*s_etat_processus).autorisation_nom_implicite = 'Y'; |
(*s_etat_processus).autorisation_nom_implicite = 'Y'; |
|
(*s_etat_processus).type_en_cours = NON; |
recherche_type(s_etat_processus); |
recherche_type(s_etat_processus); |
(*s_etat_processus).autorisation_nom_implicite = registre; |
(*s_etat_processus).autorisation_nom_implicite = registre; |
|
|