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
26afb0f9
Commit
26afb0f9
authored
Dec 11, 2014
by
yoogx
Browse files
* If the property Schedule_Module is not defined, return an
empty array Fix for #21
parent
b18ceaef
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-properties-arinc653.adb
View file @
26afb0f9
...
...
@@ -101,6 +101,10 @@ package body Ocarina.Backends.Properties.ARINC653 is
Init
;
end
if
;
if
not
Is_Defined_List_Property
(
E
,
Module_Schedule_Name
)
then
return
Empty_Schedule_Window_Record_Term_Array
;
end
if
;
Property_Value
:=
Get_List_Property
(
E
,
Module_Schedule_Name
);
declare
...
...
src/backends/ocarina-backends-properties-arinc653.ads
View file @
26afb0f9
...
...
@@ -45,6 +45,10 @@ package Ocarina.Backends.Properties.ARINC653 is
type
Schedule_Window_Record_Term_Array
is
array
(
Natural
range
<>
)
of
Schedule_Window_Record_Term
;
Empty_Schedule_Window_Record_Term_Array
:
constant
Schedule_Window_Record_Term_Array
(
1
..
0
)
:=
(
others
=>
(
No_Name
,
(
0
,
Picosecond
),
False
));
function
Get_Module_Schedule_Property
(
E
:
Node_Id
)
return
Schedule_Window_Record_Term_Array
;
...
...
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