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
c8e7379f
Commit
c8e7379f
authored
Dec 04, 2014
by
yoogx
Browse files
* Defend against a dubious iteration over Expanded_Multi_Value
that is null for record properties. For github ticket #17
parent
1c7c282a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/instance/ocarina-instances-properties.adb
View file @
c8e7379f
...
...
@@ -553,18 +553,25 @@ package body Ocarina.Instances.Properties is
(
Duplicated_Property_Value
,
Multi_Value
(
Duplicated_Property_Value
));
List_Node
:=
ATN
.
First_Node
(
Expanded_Multi_Value
(
Property_Value
));
while
Present
(
List_Node
)
loop
Append_Node_To_List
(
Instantiate_Property_Value
(
Instance_Root
,
List_Node
,
Instance
),
Multi_Value
(
Duplicated_Property_Value
));
List_Node
:=
ATN
.
Next_Node
(
List_Node
);
end
loop
;
if
Present
(
Expanded_Multi_Value
(
Property_Value
))
then
-- XXX It appears that for record properties,
-- Expanded_Multi_Value is set to No_Node. An
-- inspection of the declarative tree reveals this
-- seems OK. To be investigated further
List_Node
:=
ATN
.
First_Node
(
Expanded_Multi_Value
(
Property_Value
));
while
Present
(
List_Node
)
loop
Append_Node_To_List
(
Instantiate_Property_Value
(
Instance_Root
,
List_Node
,
Instance
),
Multi_Value
(
Duplicated_Property_Value
));
List_Node
:=
ATN
.
Next_Node
(
List_Node
);
end
loop
;
end
if
;
end
if
;
end
if
;
...
...
Write
Preview
Markdown
is supported
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