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
1e2e45e3
Commit
1e2e45e3
authored
Nov 13, 2019
by
bouazizrahma
Committed by
Jerome Hugues
Nov 13, 2019
Browse files
fix bug in Get_Subcomponent_Data_Instance function
parent
fc0dc901
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-c_common-ba.adb
View file @
1e2e45e3
...
...
@@ -5849,18 +5849,16 @@ package body Ocarina.Backends.C_Common.BA is
(
Node
:
Node_Id
;
Parent_Component
:
Node_Id
)
return
Node_Id
is
use
type
AIN
.
Node_Kind
;
Fs
:
constant
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nutils
.
Node_Array
:=
Subcomponents_Of
(
Parent_Component
);
result
:
Node_Id
;
begin
for
F
of
Fs
loop
if
Standard
.
Utils
.
To_Upper
(
AIN
.
Display_Name
(
AIN
.
Identifier
(
F
)))
if
Present
(
AIN
.
Identifier
(
F
))
and
then
Standard
.
Utils
.
To_Upper
(
AIN
.
Display_Name
(
AIN
.
Identifier
(
F
)))
=
Standard
.
Utils
.
To_Upper
(
AAN
.
Display_Name
(
AAN
.
Identifier
(
Node
)))
and
then
AIN
.
Kind
(
F
)
=
AIN
.
K_Subcomponent_Instance
then
result
:=
F
;
end
if
;
...
...
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