Bonjour,
J'essaie de placer un pragma Atomic mais Ada me renvoie un message d'erreur.
J'ai réécrit deux procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure Put_line(Output : in Wide_String) is begin Ada.Wide_Text_Io.Put_Line(" Prophet > " & Output); end Put_Line;Et je souhaiterais que ces deux procédure s'exécute de manière atomic.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 procedure Get_line(Input : out Wide_String; Last : out Natural) is begin Put(" Prophet < " ); Ada.Wide_Text_Io.Get_Line(Input, Last); end Get_Line;
J'ai alors placé le pragma Atomic respectif dans la partie déclarative de chaque procédure mais voici l'erreur ::
Je ne sais quoi faire, Pourriez me venir en aide ?pragma "Atomic" argument must be in same declarative part
Merci.
Partager