La chaîne de production de programmes - Architecture des Machines et des Systemes Informatiques - page 55

table des liens : tableau (1.1000) de structure entrée_table_des_liens;
➥ -- la table des liens
le_lien : structure lien;
pour tous les modules de la liste
faire
se placer sur le premier lien de l'en-tête;
tant que (il y a un lien dans l'en-tête du module)
faire
si (table_des_liens.nom_objet < > lien.nom_objet pour toutes
➥ les entrées de la table)
alors
-- l'objet n'existe pas dans la table
créer une nouvelle entrée nv_entree dans table_des_liens
➥ pour laquelle nom_objet

= lien.nom_objet;

si lien.genre = LU
alors
nv_entree.adresse_objet : = lien.adresse_objet +
➥ adr_implantation_module;

fsi
si lien.genre = LAS
alors
nv_entree.adresse_objet :

= indéfinie;

fsi
sinon
il existe une entrée dans la table pour laquelle
➥ nom_objet = lien.nom_objet : c'est entree_trouvee
si (lien.genre = LU et entree_trouvee.adresse_objet = indefinie)
alors
-- resolution LAS/LU
entree_trouvee.adresse_objet : = lien.adresse_objet +

➥ adr_implantation_module;

fsi
si (lien.genre = LU et entree_trouvee.adresse_objet < > indefinie)

alors

-- deux LU pour un seul LAS : ERREUR

fsi
si (lien.genre = LAS)
alors
ne rien faire

fsi

fsi
passer au lien suivant;
fait
passer au module suivant;
fait