Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
545997d4
Commit
545997d4
authored
Apr 29, 2013
by
yoogx
Browse files
* Fix mapping rules for dependencies
parent
e94d3b6e
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-cheddar-mapping.adb
View file @
545997d4
...
...
@@ -626,10 +626,8 @@ package body Ocarina.Backends.Cheddar.Mapping is
while
Present
(
Z
)
loop
M
:=
Make_XML_Node
(
"buffer_user"
);
K
:=
Make_Defining_Identifier
(
To_XML_Name
(
Display_Name
(
Identifier
(
Parent_Subcomponent
(
Parent_Component
(
Item
(
Z
)))))));
(
Fully_Qualified_Instance_Name
(
Parent_Component
(
Item
(
Z
))));
Append_Node_To_List
(
K
,
XTN
.
Subitems
(
M
));
K
:=
Make_Literal
(
XV
.
New_Numeric_Value
(
1
,
1
,
10
));
Append_Node_To_List
(
K
,
XTN
.
Subitems
(
M
));
...
...
@@ -669,7 +667,7 @@ package body Ocarina.Backends.Cheddar.Mapping is
K
:=
Make_Defining_Identifier
(
Map_Buffer_Name
(
E
,
P
));
Append_Node_To_List
(
K
,
XTN
.
Subitems
(
N
));
K
:=
Make_Defining_Identifier
(
To_XML_Name
(
Display_Name
(
Identifier
(
Parent_Subcomponent
(
E
)))
));
(
Fully_Qualified_Instance_Name
(
E
));
Append_Node_To_List
(
K
,
XTN
.
Subitems
(
N
));
else
Append_Node_To_List
...
...
@@ -678,7 +676,7 @@ package body Ocarina.Backends.Cheddar.Mapping is
Make_Defining_Identifier
(
Get_String_Name
(
"buffer"
))),
XTN
.
Items
(
N
));
K
:=
Make_Defining_Identifier
(
To_XML_Name
(
Display_Name
(
Identifier
(
Parent_Subcomponent
(
E
)))
));
(
Fully_Qualified_Instance_Name
(
E
));
Append_Node_To_List
(
K
,
XTN
.
Subitems
(
N
));
K
:=
Make_Defining_Identifier
(
Map_Buffer_Name
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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