Ada sur Gnu/Linux debian 3.1 ça marche, sur debian 4 ça marche pas

Version imprimable

15/04/2008, 18h46
Invité

Ada sur Gnu/Linux debian 3.1 ça marche, sur debian 4 ça marche pas

Bonjour,

j'ai écris un petit programme basé sur les système client-serveur, avec un serveur donc, qui fonctionne à priori normalement sur debian 3.1 mais pas sur debian 4.

En effet sur cette dernière distribution, mon programme ne s'arrête pas à l'arrêt du programme.

Comme je fatigue quelque peu :aie:je viens voir si il y a des raisons de comportement différents connus ?

Merci

J'ai trouvé la partie du mon code à incriminer.

Le paquetage est le suivant

Code:

1
2
3
4
5
6
7
 
package Borg.Grand_Architect is
 
   procedure Start;
   procedure Halt;
 
end Borg.Grand_Architect;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
package body Borg.Grand_Architect is
 
 
   task Living_Process is
      entry Halt;
      entry Start;
   end Living_Process;
 
 
   procedure Start is
   begin
      Living_Process.Start;
   end Start;
 
   procedure Halt is
   begin
      Living_Process.Halt;
   end Halt;
 
 
   use Session_Lists;
 
   task body Living_Process is
      End_Of_Task : Boolean := False;
      Message     : Unbounded_String;
      Input, Output : Words_List_Access;
   begin
      accept Start;
      loop
         begin
            while not End_Of_Task loop
               select
                  accept Halt do
                     End_Of_Task := True;
                  end Halt;
               or
                  delay 0.02;

Et donc, sur Debian 4, le Halt ne s'éxécute pas, alors que sur Debian 3.1, il s'éxécute.

16/04/2008, 07h28
Invité

Bonjour, j'ai modifier mon paquetage pour démarer et arrêter la tache directement, sans passer par les procédure Start et Halt, ça ne change rien.

En fait la tache n'accepte pas l'entrée Halt, et je me demande bien pourquoi.

Merci pour votre aide.

Yep !

j'ai trouvé. C'est louche. Voila, mon appel à Halt était effectué dans une entrée de tache comme suit

Code:

1
2
3
4
5
6
 
           accept Shutdown do
               Register_Manager.Empty;
               End_Of_Task := True;
               Living_Process.Halt;
            end Shutdown;

j'ai simplement déplacé mon appel à Halt et ça marche.

Code:

1
2
3
4
5
6
 
           accept Shutdown do
               Living_Process.Halt;
               Register_Manager.Empty;
               End_Of_Task := True;
            end Shutdown;

:yaisse1:

16/04/2008, 18h50
Invité

Maintenant les mots de passes

Salut
J'ai un problème de mot de passe maintenant.

Alors que sur Debian 4.0 ça passe, sur 3.1, ça passe pas.

Une solution miracle instantané peut-être ou moins spontané alors ?
16/04/2008, 19h16
Invité

oops

Non, en fait plus rien ne fonctionne, après un grosse manipulation de code, j'ai du mettre le boxon.

Merci pour votre aide.