Discussion :

[Invité]

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;

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;

Et je souhaiterais que ces deux procédure s'exécute de manière atomic.

J'ai alors placé le pragma Atomic respectif dans la partie déclarative de chaque procédure mais voici l'erreur ::

pragma "Atomic" argument must be in same declarative part

Je ne sais quoi faire, Pourriez me venir en aide ?
Merci.

[batyann811]

Avant ta question je n'avais jamais entendu parlé de ça. J'ai donc regardé dans le wikibook Ada Programming. Et si j'ai bien compris la page sur le pragma atomic ça ne semble s'appliquer qu'à des types ou à des variables.

[Invité]

Avant ta question je n'avais jamais entendu parlé de ça. J'ai donc regardé dans le wikibook Ada Programming. Et si j'ai bien compris la page sur le pragma atomic ça ne semble s'appliquer qu'à des types ou à des variables.

Oui, c'est ce que j'ai lu au même endroit... ET pourtant, je suis quasi certain de l'avoir déjà utilisé ainsi.

[Blackknight]

Pourtant, même l'ARM ne précise que son utilisation ne se fait que sur des types... Ou alors, j'ai mal compris.