Commit 58abbd69 authored by jhugues's avatar jhugues
Browse files

* (Perform_Annex_Action): Correct the name of the BA annex



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2669 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 07b334ef
...@@ -156,7 +156,7 @@ package body Ocarina.Options is ...@@ -156,7 +156,7 @@ package body Ocarina.Options is
Tmp_Name := Name_Find; Tmp_Name := Name_Find;
if Tmp_Name = Get_String_Name ("real") then if Tmp_Name = Get_String_Name ("real") then
Set_Annex_Action (Disable_REAL); Set_Annex_Action (Disable_REAL);
elsif Tmp_Name = Get_String_Name ("behavior") then elsif Tmp_Name = Get_String_Name ("behavior_specification") then
Set_Annex_Action (Disable_BA); Set_Annex_Action (Disable_BA);
elsif Tmp_Name = Get_String_Name ("all") then elsif Tmp_Name = Get_String_Name ("all") then
Set_Annex_Action (Disable_ALL); Set_Annex_Action (Disable_ALL);
...@@ -186,10 +186,12 @@ package body Ocarina.Options is ...@@ -186,10 +186,12 @@ package body Ocarina.Options is
begin begin
if Current_Annex_Action (Disable_ALL) = 1 then if Current_Annex_Action (Disable_ALL) = 1 then
Perform := False; Perform := False;
elsif Language = Behavior_Language_Name elsif Language = Behavior_Language_Name
and then Current_Annex_Action (Disable_BA) = 1 and then Current_Annex_Action (Disable_BA) = 1
then then
Perform := False; Perform := False;
elsif Language = Real_Language_Name elsif Language = Real_Language_Name
and then Current_Annex_Action (Disable_REAL) = 1 and then Current_Annex_Action (Disable_REAL) = 1
then then
...@@ -197,7 +199,6 @@ package body Ocarina.Options is ...@@ -197,7 +199,6 @@ package body Ocarina.Options is
end if; end if;
return Perform; return Perform;
end Perform_Annex_Action; end Perform_Annex_Action;
end Ocarina.Options; end Ocarina.Options;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment