Commit 36aeb6dc authored by yoogx's avatar yoogx

* Minor reformatting

parent f17fd02e
...@@ -263,6 +263,7 @@ package body Ocarina.Analyzer.AADL.Semantics is ...@@ -263,6 +263,7 @@ package body Ocarina.Analyzer.AADL.Semantics is
or else Kind (Container) = K_Feature_Group_Type or else Kind (Container) = K_Feature_Group_Type
then then
Pack_Container := Namespace (Container); Pack_Container := Namespace (Container);
elsif Kind (Container) = K_Subcomponent elsif Kind (Container) = K_Subcomponent
or else Kind (Container) = K_Port_Spec or else Kind (Container) = K_Port_Spec
or else Kind (Container) = K_Parameter or else Kind (Container) = K_Parameter
...@@ -271,6 +272,7 @@ package body Ocarina.Analyzer.AADL.Semantics is ...@@ -271,6 +272,7 @@ package body Ocarina.Analyzer.AADL.Semantics is
or else Kind (Container) = K_Connection or else Kind (Container) = K_Connection
then then
Pack_Container := Namespace (Container_Component (Container)); Pack_Container := Namespace (Container_Component (Container));
elsif Kind (Container) = K_Package_Specification then elsif Kind (Container) = K_Package_Specification then
Pack_Container := Container; Pack_Container := Container;
end if; end if;
......
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