Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
bea0e864
Commit
bea0e864
authored
Feb 01, 2017
by
yoogx
Browse files
* Print the "public" token in case of package that are only
annex libraries, e.g. EMV2 ErrorLibrary
parent
f7c1181d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-be_aadl-namespaces.adb
View file @
bea0e864
...
...
@@ -203,11 +203,16 @@ package body Ocarina.BE_AADL.Namespaces is
Print_Identifier
(
Pack_Identifier
);
Write_Eol
;
if
Has_Public
or
else
not
Is_Empty
(
Ocarina
.
ME_AADL
.
AADL_Tree
.
Nodes
.
Annexes
(
Node
))
then
Write_Eol
;
Print_Token
(
T_Public
);
end
if
;
-- Public part
if
Has_Public
then
Print_Token
(
T_Public
);
Write_Eol
;
List_Node
:=
First_Node
(
Declarations
(
Node
));
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment